In Spalte B der Tabelle1 stehen Datumswerte und Textwerte.
Jetzt möchte ich die Zeilen vom 1. des Monates
bis zum letzten des Monates über eine Bereichsfestlegung in die Tabelle 2 kopieren.
Ich scheitere jedoch schon an der Bereichsfestlegung.
Wer kann helfen?
Danke Peter
Sub Monatsbereich()
Worksheets("Tabelle1").Activate
lngMonth = 1
IntJahr = Year(Date)
MonatsAnf = CDate(DateSerial(IntJahr, lngMonth, 1))
MonatsEnd = CDate(DateSerial(IntJahr, lngMonth + 1, 0))
lastRow = IIf(Range("B65536") <> "", 65536, Range("B65536").End(xlUp).Row)
Set rngA = Range("B3:B" & lastRow)
For Each rng In rngA
If rng.Value = MonatsAnf Then
Set BerAnfZeile = Rows(rng.Row)
End If
If rng.Value = MonatsEnd Then
Set BerEndZeile = Rows(rng.Row)
End If
Next rng
Set Bereich = Range(Cells(BerAnfZeile, 1), Cells(BerEndZeile, 15))
Bereich.Select
End Sub