Hallo ihr Fachleute,
ich möchte gerne in Excel 2007 an der aktven Zelle eine ganze Zeile einfügen.
Leider geht das mit meinem "VBA-Programm" nicht.
Die ersten 3 Zeilen habe ich mit "Makro aufnehmen" gewonnen, aber dann geht es nicht mehr weiter.
Leider.
Kann mir jemand die richtige Liste schreiben.
Jetzt schon mal vielen Dank
Herbert
>>>>>>>>>>>>>>>
Sub zeile_einfügen()
' <> <> funktioniert für Zeile 4 !!
' Rows("4:4").Select
' Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
' Range("B4").Select
Dim x As String
x = ActiveCell.Row
MsgBox "Zeile: " + x
Rows("x:x").Select ' <<<< Fehlermeldung !!
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub |