mit folgendem Code will ich einen Zähler einrichten:
If Sheets(1).Cells(Zeile, 8) <> "" Then
'Monat in Liefertabelle suchen
ZeileLief = 5
While ActiveSheet.Cells(ZeileLief, 2) <> ""
Ausgeschrieben = ActiveSheet.Cells(ZeileLief, 2)
MsgBox Ausgeschrieben & "-" & Str(Sheets(1).Cells(Zeile, 8))
If Ausgeschrieben = Str(Sheets(1).Cells(Zeile, 8)) Then
ActiveSheet.Cells(ZeileLief, 4) = ActiveSheet.Cells(ZeileLief, 4) + 1
End If
ZeileLief = ZeileLief + 1
Wend
...
Jedoch ist der eine Ausdruck [ActiveSheet.Cells(ZeileLief, 2)] ein formatiertes Datum der Form Januar 01 und der andere Ausdruck [Str(Sheets(1).Cells(Zeile, 8))] Text mit dem Inhalt Januar 01. Wie kann ich VBA dazu verablassen, mir meine Äpfel bei Birnen mitzuzählen.
Bin für jede Hilfe dankbar und danke schon im Voraus
Tobias