Hallo,
Ich möchte den Bereicht FirstAddy, LastAddy bis AJ auswählen
wie geht das? Kann mir einer Helfen.
Sub adi() '2. Prozedur
Dim C As Range, MyMonth&, MyYear&
Dim FirstAddy$
Dim LastAddy$
On Error GoTo ErrExit
Sheets("Conti").Select
Range("A7").Select
MyYear = Range("B3")
MyMonth = Range("B4")
For Each C In Range("A7:A3500")
If Month(CDate(C)) = MyMonth And Year(CDate(C)) = MyYear Then
If FirstAddy = "" Then FirstAddy = C.Address
LastAddy = C.Address
End If
Next
If FirstAddy "" And LastAddy "" Then
Range(FirstAddy, LastAddy).Offset(, 2).Copy
Gruß
adi