Allen ein schönes WE!
Mein Makro, bekommen aus dem Forum, selbst versucht umzustricken, es passiert schon was, aber leider nicht wie gewünscht.
Set A = Nothing: Set F = Nothing
Set A = Worksheets("Ansicht")
Set F = Worksheets("Adressen")
lngRows = F.Range("A65536").End(xlUp).Row + 1
For lng = 1 To lngRows
For c = 2 To 14 Step 2
If VarType(F.Cells(lng, 5)) = vbDate Then
If Day(F.Cells(lng, 5)) = Day(A.Cells(40, c)) And Month(F.Cells(lng, 5)) = Month(A.Cells(40, c)) Then
lng2 = lng2 + 1
A.Cells(lng2 + 35, c) = F.Cells(lng, 4) & " " & F.Cells(lng, 3)
End If
End If
Next c
Next lng
Set A = Nothing: Set F = Nothing
Problemstellung:
In Zeile 40 B, D, - N steht immer ein Datum
In die Zeilen 43, 44 und 45 sollen bei Gleichheit von Tag und Monate die Werte aus Spalte 5, Tabelle - Adressen eingetragen werden.
Das passiert auch, aber eben nicht ab 43, sondern mal in 45, dann in 44, als eben ohne System. wo mache ich denn schon wieder einen Denkfehler, bitte um Hilfe und Danke im Voraus!
Gruß Frank H.