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 Catze vom 06.09.2019, 12:42 Options
beliebiege Anzahl zeilen einfügen vba
Hallo zusammen,
ich brauch dringend für meine Diplomarbeit ein Makro, welches immer eine unterschiedliche Anzahl von Zeilen in Excel einfügt. Leider weiß ich nicht, wie ich das variabel gestalten kann.
Bis her hab ich folgendes:
' Zählen wieviel Einträge
lng = Sheets("Zusammenfassung_Fertigung").Range("b65536").End(xlUp).Offset(0, 0).Row
i = lng - 9
z = i + 11
' neue Zeile einfügen, Anzahl ist i
Sheets("Zusammenfassung").Rows("11:11").Insert Shift:=xlDown
Ich denk, dass beim letzten Code-Teil statt der zweiten 11 eine variable gesetzt werden müsste. Allerdings hab ich das schon versucht und es tut nicht...
Ich hoff iIhr könnt mir weiter helfen!
Grüßle, Cathérine
ich brauch dringend für meine Diplomarbeit ein Makro, welches immer eine unterschiedliche Anzahl von Zeilen in Excel einfügt. Leider weiß ich nicht, wie ich das variabel gestalten kann.
Bis her hab ich folgendes:
' Zählen wieviel Einträge
lng = Sheets("Zusammenfassung_Fertigung").Range("b65536").End(xlUp).Offset(0, 0).Row
i = lng - 9
z = i + 11
' neue Zeile einfügen, Anzahl ist i
Sheets("Zusammenfassung").Rows("11:11").Insert Shift:=xlDown
Ich denk, dass beim letzten Code-Teil statt der zweiten 11 eine variable gesetzt werden müsste. Allerdings hab ich das schon versucht und es tut nicht...
Ich hoff iIhr könnt mir weiter helfen!
Grüßle, Cathérine
Antwort 1 von lleopard vom 06.09.2019, 13:42 Options
Salut Cathérine,
wenn du eine Zeile einfügen willst, darfst du doch nicht auch die Zeile angeben!
Sheets("Zusammenfassung").Rows("11").Insert Shift:=xlDown
Probiers mal... habs selber nicht getestet.
Jetzt war ich doch neugierig. Hat geklappt.
und wenn du das 11 mal wiederholen willst, gehst du einfach in die Schleife
Function test()
dim i as integer
i= i+1
for i = 1 to 11
Sheets("Zusammenfassung").Rows("11").Insert Shift:=xlDown
next i
End Function
Hab gerade gesehen, du hattest i ja schon vergeben... dann machste aus i halt j und gehst durch die Schleife mit
for j = 1 to i
...
next j
viel Erfolg
Leo :-)
wenn du eine Zeile einfügen willst, darfst du doch nicht auch die Zeile angeben!
Sheets("Zusammenfassung").Rows("11").Insert Shift:=xlDown
Probiers mal... habs selber nicht getestet.
Jetzt war ich doch neugierig. Hat geklappt.
und wenn du das 11 mal wiederholen willst, gehst du einfach in die Schleife
Function test()
dim i as integer
i= i+1
for i = 1 to 11
Sheets("Zusammenfassung").Rows("11").Insert Shift:=xlDown
next i
End Function
Hab gerade gesehen, du hattest i ja schon vergeben... dann machste aus i halt j und gehst durch die Schleife mit
for j = 1 to i
...
next j
viel Erfolg
Leo :-)
Antwort 2 von Catze vom 07.09.2019, 09:36 Options
Hi Leo,
vielen Dank, hat super geklappt!
Grüßle, Cathérine
vielen Dank, hat super geklappt!
Grüßle, Cathérine
Ähnliche Themen
Zusammenkopieren mehrerer Excel Dateien in eine Datei
Sir_Knut 01.04.2007 - 282 Hits - 5 Antworten
Seitenumbrüche in Excel-sheet einfügen per VBA
snailhouse 06.08.2007 - 47 Hits - 5 Antworten
mehrere Zeilen in Excel einfügen
Arnsen1 07.08.2007 - 119 Hits - 1 Antwort
excel doppelte Zeilen zählen nach Mehrfachnennung
zauberbengelchen 01.11.2007 - 140 Hits - 4 Antworten
Zeilen einfügen
ala 02.04.2008 - 117 Hits - 8 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
