AW: Kopierte Zellen ab A66 einfügen
22.05.2009 15:53:04
Josef
Hallo Andy,
du musst die Bereiche jeweisl um eine Zeile nach oben verschoben angeben!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Const cstrRange As String = "C21:C52,C65:C109,C121:C167,C179:C223"
Sub andy()
Dim rng As Range, lngRow As Long
With Sheets("Tabelle1")
For Each rng In .Range(cstrRange)
If rng = "" Then
If rng.Offset(1, 0) = "" And Not Intersect(rng.Offset(1, 0), .Range(cstrRange)) Is Nothing Then
lngRow = rng.Row + 1
Exit For
End If
End If
Next
If lngRow > 0 Then Sheets("Tabelle2").Range("A3:H5").Copy .Cells(lngRow, 2)
End With
End Sub
Gruß Sepp