Arbetismappe mit datum durchsuchen?
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?
2 Antworten
Hallo,
habe leider keinen Plan für VBA.
Du solltest Deine Frage eventuell nochmals stellen, falls keine Rückmeldung kommt, denn "Arbetismappe" ist etwas unvorteilhaft formuliert, "Arbeitsmappe" wäre da schon vorteilhafter, eventuell mit dem Zusatz "VBA für …".
Gruß Tron
Hi,
bei mir funktioniert der Code grundsätzlich. Es hängt aber vom Format der Zelle ab. Wenn ich in A1 beispielsweise das Datum lang formatiere (Dienstag, 10.März 2020), dann findet er die Zelle nicht. Ändere ich lediglich das Zahlenformat auf Datum, dann wird die Zelle gefunden. Übrigens auch dann, wenn in der Zelle ein Datum mit Uhrzeit eingegeben wurde - also mit Nachkommaanteil - aber nur das Datum angezeigt wird.
Mir wäre dafür die .Find Methode zu riskant. Ich würde die jeweiligen A1-Zellen in den Tabellenblättern über einen normalen Vergleich prüfen.
Hilft Dir das?
Gruß
Hannes
Danke, du hast mir damit Geholfen!! :), bin nicht auf die Idee gekommen, dass ich A1 einfach direkt ansprechen kann und das Format stimmen muss.