Zeile als "Range" einfügen

Bild

Betrifft: Zeile als "Range" einfügen von: Bert
Geschrieben am: 22.02.2005 08:14:35

Guten Morgen an Alle,

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
Bild


Betrifft: AW: Zeile als "Range" einfügen von: Jan
Geschrieben am: 22.02.2005 08:49:14

Hi Bert,


statt : Selection.Insert Shift:=xlDown

nimm :Selection.EntireRow.Insert

Jan


Bild


Betrifft: AW: Zeile als "Range" einfügen von: Bert
Geschrieben am: 22.02.2005 08:57:45

Hi Jan,

Danke für die Mühe, funktioniert leider nicht. Das Makro fügt die zwar Zeile ein, da aber in Spalte A z.B. die Zeilen A20 bis A120 verbunden sind, nimmt das Makro die Verbundenen Zellen als Eine. Ist es denn nicht möglich dies zu umgehen?

Gruß Bert


Bild


Betrifft: AW: Zeile als "Range" einfügen von: Jan
Geschrieben am: 22.02.2005 09:52:30

Hi Bert,


nimm folgenden Code :

Range(Cells(zeile, 2), Cells(zeile, 255)).Select


Jan


Bild


Betrifft: AW: Zeile als "Range" einfügen von: Bert
Geschrieben am: 22.02.2005 11:22:36

Hi Jan,

ich danke Dir. Es funktioniert.

Gruß Bert. :-)


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Lotto bzw. Keno - System"