Supportnet / Forum / Tabellenkalkulation

Moin, ich habe hier ein code, das leere zeilen einfügt. Problem ist nur das bei 1 Zeile sich aufhängt. Es muss so gelöst werden, das bei einer zeile keine Leere zeile eingefügt werden Könnt ihr mir bitte helfen ? Range("A50").Select Selection.End(xlUp).Select lngLastRow = Cells(clngSTART, 1).End(xlDown).Row For lngCounter = lngLastRow To clngSTART + 1 Step -1 Rows(lngCounter).Insert Next lngCounter Rows(51 & ":" & 50 + lngLastRow - clngSTART).Delete Gruß Peter

ich habe nicht verstanden was das heissen soll, könntest Du mal bissel genauer sagen was Du willst??? :-((

gruß marie

Hallo Marie,

ich habe unterschiedlich viele Zeilen 1 bis 20 mehr oder weniger

Wenn nur eine Zeile das ist, versucht das Programm leere Zeilen einzufügen, da es schon das obere ende ist hängt sich das Makro auf.
Bei einer Zeile soll das Programm keine Leere Zeilen einfügen.
Bekommst du das hin ?


Range("A50").Select
Selection.End(xlUp).Select
lngLastRow = Cells(clngSTART, 1).End(xlDown).Row
For lngCounter = lngLastRow To clngSTART + 1 Step -1
Rows(lngCounter).Insert
Next lngCounter
Rows(51 & ":" & 50 + lngLastRow - clngSTART).Delete

Gruß, Peter

Hallo,

kann mir einer weiterhelfen,
ich möchte das leere zeilen eingefügt werden bis zeile a1.

Range("A50").Select
Selection.End(xlUp).Select
lngLastRow = Cells(clngSTART, 1).End(xlDown).Row
For lngCounter = lngLastRow To clngSTART + 1 Step -1
Rows(lngCounter).Insert
Next lngCounter
Rows(51 & ":" & 50 + lngLastRow - clngSTART).Delete

Danke für eure hilfe
Gruß, Peter

• Makro: Zeile einfügen
• Makros einfügen
• letzte beschriebene Zeile kopieren VBA
• VBA - Zeile ? bis letzte Zeile markieren ...