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