Hallo,
ich hoffe mir kann hier jemand weiterhelfen...
In einer meiner Excel-Tabellen habe ich im Feld B2 das Datum "01.01.2024" stehen. Es ist jedoch so formatiert, dass dort "Januar 2024" steht. In Spalte V4 wurde dann eine Verlinkung auf B2 eingefügt, jedoch ist das Datum dann als "TT" formatiert, so dass nur "01" da steht. In W4 folgt dann "=V4+1", so dass "02" da steht, aber im Grunde liegt das Datum, also der "02.01.2024" dahinter.
Nun zu meinem Problem.
Ich gehe mittels VBA alle Tabellenblätter (jedes Tabellenblatt ist ein Monat) durch und suche nach dem aktuellen Datum. Leider finde ich es nicht, da es wie oben beschrieben formatiert ist. Habt ihr einen Lösungsansatz für mich? Anders formatieren wollte ich es nicht, da meine Visualisierung dadurch nicht mehr schön wäre
CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed
ich hoffe mir kann hier jemand weiterhelfen...
In einer meiner Excel-Tabellen habe ich im Feld B2 das Datum "01.01.2024" stehen. Es ist jedoch so formatiert, dass dort "Januar 2024" steht. In Spalte V4 wurde dann eine Verlinkung auf B2 eingefügt, jedoch ist das Datum dann als "TT" formatiert, so dass nur "01" da steht. In W4 folgt dann "=V4+1", so dass "02" da steht, aber im Grunde liegt das Datum, also der "02.01.2024" dahinter.
Nun zu meinem Problem.
Ich gehe mittels VBA alle Tabellenblätter (jedes Tabellenblatt ist ein Monat) durch und suche nach dem aktuellen Datum. Leider finde ich es nicht, da es wie oben beschrieben formatiert ist. Habt ihr einen Lösungsansatz für mich? Anders formatieren wollte ich es nicht, da meine Visualisierung dadurch nicht mehr schön wäre
Visual Basic-Quellcode
- Sub Heute()
- Dim wks As Worksheet
- Dim Suchbegriff As Range
- For i = 1 To Worksheets.Count
- Worksheets(i).Activate
- Set Suchbegriff = Range("4:4").Find(What:=Date, LookAt:=xlWhole)
- If Suchbegriff Is Nothing = False Then
- Range(Suchbegriff.Address).Activate
- Exit Sub
- End If
- Next
- MsgBox "Das aktuelle Datum konnte nicht gefunden werden!", vbOKOnly + vbInformation, "Information"
- End Sub
CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()