AW: Monatsende Daten auslesen
Ingo
Ich nehme mal an das erste Datum steht in A1:
Sub monatsende_auslesen()
Dim i As Integer
Dim rng As Range
i = 1
Do While Sheets("Tabelle1").Cells(i, 1) <> ""
Set rng = Sheets("Tabelle1").Cells(i, 1)
If rng.Value = DateSerial(Year(rng), Month(rng) + 1, 0) Then
Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0) = CDate(rng)
Sheets("Tabelle2").Range("B65536").End(xlUp).Offset(1, 0) = rng.Offset(0, 1)
End If
i = i + 1
Loop
End Sub
Die Monatsenden werden jeweils aus dem Blatt Tabelle 1 ins Blatt Tabelle 2 rausgeschrieben
m f G
Ingo Christiansen