Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon PeterHa vom 03.04.2020, 07:42 Options
zeile einfügen
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 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
Antwort 1 von Marie vom 03.04.2020, 23:05 Options
Zitat:
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
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
ich habe nicht verstanden was das heissen soll, könntest Du mal bissel genauer sagen was Du willst??? :-((
gruß marie
Antwort 2 von PeterHa vom 03.04.2020, 23:54 Options
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
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
Antwort 3 von PeterHa vom 06.04.2020, 23:31 Options
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
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
Ähnliche Themen
Makro: Zeile einfügen
10Deluxe 19.06.2007 - 110 Hits - 7 Antworten
Makros einfügen
Nona 21.07.2007 - 12 Hits - 10 Antworten
letzte beschriebene Zeile kopieren VBA
bokap1975 18.10.2007 - 147 Hits - 10 Antworten
VBA - Zeile ? bis letzte Zeile markieren ...
Tomschi 03.04.2008 - 121 Hits - 7 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
