VBA - Zeile kopieren und darunter einfügen
03.08.2006 13:24:43
stefanseevetal
ich möchte per Makro die erste leere Zeile der Spalte B finden, diese Zeile Kopieren und eine Zeile darunter einfügen. Hab da unten mal hingeschrieben, wie ich es dachte, funktioniert aber nicht:
Sub testZeileKopieren()
Dim suchbegriff As String, zelle
Dim z As Long
suchbegriff = ""
Set zelle = Range(Cells(47, 2), Cells(65536, 2)).Cells.Find(suchbegriff)
If Not zelle Is Nothing Then
z = zelle.Row
Rows(z).Copy Shift:=xlDown
End If
End Sub
Kann mir da jemand helfen?
Danke und Gruß,
Stefan
Anzeige