Hallo liebes Forum,

ich bastel schon einige Zeit an folgendem Problem.
Eine Tagesmeldung (Bild 1) wird täglich fortgeführt.
Am Ende des Tages wird eine zweite Datei geöffnet (Bild 2) und per Button sollen die Daten vom
aktuellen Datum dort reinkopiert werden. Dabei sollen Zahlen und Texte übertragagen werden.
Folgenden Code habe ich mir aus verschiedenen Foren zusammengestellt. 

Um ihn jedoch funktionstüchtig zu machen, bräuhte ih noch Hilfe!?

Vielen Dank!

Sub XYZ() Application.ScreenUpdating = False 'Bildschirm einfrieren Application.DisplayAlerts = False 'Abfragen unterdrücken Dim geöffnet As Boolean Dim LWB As String Dim wb As Workbook Dim wsQuelle As Worksheet Dim wsZiel As Worksheet LWB = Left(ThisWorkbook.Path, 1) 'Berechnung des Laufwerkbuchstabens, da dieser je nach StO variieren kann (LWB) 'feststellen, ob Mappe bereits offen For Each wb In Application.Workbooks If wb.Name = "Liste.xlsx" Then geoeffnet = True Next wb 'entsprechend reagieren If geoeffnet Then Workbooks("Liste.xlsx").Activate Else Workbooks.Open Filename:=(LWB & ":\01_NEUE ORDNERSTRUKTUR\Liste.xlsx"), UpdateLinks:=0 End If a = 1 For i = 1 To 10000 With Worksheets("Tabelle1") If .Cells(i, "G") = Date Then WEITERER CODE ?? Else End If End With Next i Application.ScreenUpdating = True End Sub Workbooks("Liste.xlsx").Close saveChanges:=False Application.ScreenUpdating = True 'Bildschirm freigeben Application.DisplayAlerts = True 'Abfragen gestatten End Sub