Ich benötige mal wieder Eure Unterstützung. Ich habe eine Tabelle mit sehr vielen Daten, die ständig wächst. In Spalte B steht in jeder Zeile ein Datum im Format dd.mm.yyyy. Ich möchte nun eine Auswertung für bestimmte Monate mit der .Find-Methode erstellen. Und hier liegt mein Problem. Wie ich mit einem ganzen Datum und der .Find-Methode arbeite weiß ich. Aber wie stelle ich das nun an, wenn ich nur nach dem Monat auswerten möchte.
Mit
Set rngSuchbereich = dbBerechnungBehandlungszeiten.Columns("B:B").Find(What:=intMonth, _
LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=True)
If rngSuchbereich Is Nothing Then
Set rngSuchbereich = dbBerechnungBehandlungszeiten.Columns("B:B").Find(What:=CStr(intMonth), _
LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=True)
End If
If Not rngSuchbereich Is Nothing Then
strAddresse = rngSuchbereich.Address
Do
.
.
.
.
findet die Methode, wenn der Suchbegriff für Januar die Zahl 1 ist, alle Daten, die im Datum eine 1 haben, egal ob Tag, Monat oder Jahr. Wie kann ich mit der Methode denn nur nach dem Monat suchen. Weiß das jemand?
Nur zur Info: Im obigen Code ist die .find-Methode 2x vorhanden, weil nicht sichergestellt ist, das das Datum immer im Datumsformat vorliegt. Es kann auch vorkommen, dass es als reiner Text vorliegt
Danke schon mal für die Hilfe,
Kasimir