Zeile als "Range" einfügen
22.02.2005 08:14:35
Bert
hab mit meiner Excelliste ´n Problem.
Hab´n Makro, das mir ´ne Zeile einfügt. Dumm ist nur, dass es immer die erste Spalte als Bezug nimmt, denn hier sind Zeilen in einer Spalte verbunden.
Frag: Wie "sage" ich dem Makro, es soll die ganze Zeile einfügen (so als wenn ich mit der Zeilennummer vor Spalte A die Zeile markiere?
Hier der Code:
Sub Zeile_einfügen()
Dim zeile As Long
Dim sp As Integer
Application.ScreenUpdating = False
Sheets(Array("Tab1", "Tab2", "Tab3", "Tab4", "Tab4)).Select
Sheets("Tab1").Activate
zeile = ActiveCell.Row
Rows(zeile).Select
Selection.Insert Shift:=xlDown
Sheets("Tab1").Select
sp = ActiveCell.Column
Cells(zeile, sp).Activate
Application.ScreenUpdating = True
End Sub
Habt Ihr ´ne Idee was ich ändern muss?
Gruß Bert
Anzeige