Hallo Zusammen!
Vor geraumer Zeit habe ich folgenden Code von Gerd L. erhalten:
Dim A As Worksheet, F As Worksheet
Dim lng As Long, lng2 As Long
Set A = Worksheets("Ansicht")
Set F = Worksheets("Feiertage")
For lng = 1 To 11
If Month(F.Cells(lng, 2)) = A.Cells(2, 6) Then
lng2 = lng2 + 1
A.Cells(lng2 + 7, 2) = F.Cells(lng, 2)
A.Cells(lng2 + 7, 3) = F.Cells(lng, 3)
End If
Next lng
Set A = Nothing: Set F = Nothing
Nun habe ich diesen Cde versucht umzustricken, das wie folgt:
Dim A As Worksheet, F As Worksheet
Dim lng As Long, lng2 As Long
Dim lngRows As Long
Set A = Worksheets("Ansicht")
Set F = Worksheets("Adressen")
lngRows = [a65536].End(xlUp).Row + 1
For lng = 1 To lngRows
If Month(F.Cells(lng, 2)) = A.Cells(2, 6) Then
lng2 = lng2 + 1
A.Cells(lng2 + 7, 5) = F.Cells(lng, 5)
A.Cells(lng2 + 7, 6) = F.Cells(lng, 4) & "," & " " & F.Cells(lng, 3)
End If
Next lng
Set A = Nothing: Set F = Nothing
In der Tabelle Adressen Spalte 5 stehen Geburtstage, z. Bsp. 12.12.1943, diese Spalte enthält aber auch Leerzellen und das gesamte Blatt Adressen ist immer wieder erweiterbar. Nun sollen die Geburtstage in das Blatt Ansicht übertragen werden.
Jetzt kommt aber bei mir immer die Fehlermeldung "Typen unverträglich". Könnt ihr meinen Fehler erkennen? Die Geburtstage werden aber immer als Datum in die Zellen geschrieben. Bitte um Hilfe, Danke!
Gruß Frank H.