Hallo Zusammen,
ich habe eine Arbeitsmappe mit Tabellenblätter, wo sich die Namen variieren.
Da aber im jeden Tabellenblatt in Zelle A1 ein Datum Steht, will ich jedes Tabellenblatt dem Heutigen datum suchen, zellen aus dem blatt kopieren und in eine Andere arbeitsmappe einfügen, danach das gleiche noch einmal mit dem gestrigen datum.
Aktuell sieht mein Code so aus, aber der gibt mir nur die MsgBox, dass nichts gefunden worden ist.
'Aktuelles Datum auswählen bei Start
Dim bolHabWasGefunden As Boolean
Dim wksTabelle As Worksheet
Dim rngSpalteA As Range
Dim rngZelleGefunden As Range
For Each wksTabelle In ThisWorkbook.Worksheets
Set rngSpalteA = wksTabelle.Columns(1)
Set rngZelleGefunden = rngSpalteA.Find(Date, LookIn:=xlValues)
If Not rngZelleGefunden Is Nothing Then
wksTabelle.Activate
rngZelleGefunden.Select
bolHabWasGefunden = True
Exit For
End If
Next
If bolHabWasGefunden = False Then
MsgBox Date, , "Hab ich nicht gefunden:"
End If
Kennt da jemand einen ansatz bzw, eine lösung?
