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 rodnick vom 04.08.2021, 18:33 Options
Excel - Jede 5. Zeile eine neue Zeile einfügen
Hallo,
ich habe eine Excel-Tabelle mit 21264 Zeilen. Nach jeder 5. Zeile möchte ich eine leere Zeile einfügen. Manuell ist das jedoch ein riesiger Aufwand. Weiß vielleicht jemand wie ich es einfacher machen könnte?
Vielen Dank und viele Grüße! :)
ich habe eine Excel-Tabelle mit 21264 Zeilen. Nach jeder 5. Zeile möchte ich eine leere Zeile einfügen. Manuell ist das jedoch ein riesiger Aufwand. Weiß vielleicht jemand wie ich es einfacher machen könnte?
Vielen Dank und viele Grüße! :)
Antwort 1 von Hajo_Zi vom 04.08.2021, 19:21 Options
Halo Nick,
Option Explicit
Sub Nick()
Dim loletzte As Long
Dim Loi As Long
loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Application.ScreenUpdating = False
For Loi = loletzte To 1 Step -1
If Loi Mod 5 = 0 Then
Rows(Loi + 1).Insert Shift:=xlDown
End If
Next Loi
Application.ScreenUpdating = True
End Sub
Gruß Hajo
Option Explicit
Sub Nick()
Dim loletzte As Long
Dim Loi As Long
loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Application.ScreenUpdating = False
For Loi = loletzte To 1 Step -1
If Loi Mod 5 = 0 Then
Rows(Loi + 1).Insert Shift:=xlDown
End If
Next Loi
Application.ScreenUpdating = True
End Sub
Gruß Hajo
Antwort 2 von Rodnick vom 04.08.2021, 19:28 Options
Hallo Hajo,
vielen Dank für die Antwort. Gehe ich recht davon aus, dass dies ein Code für ein Makro ist? Könntest du mir diesen bitte kurz erklären?
Vielen Dank
Nick
vielen Dank für die Antwort. Gehe ich recht davon aus, dass dies ein Code für ein Makro ist? Könntest du mir diesen bitte kurz erklären?
Vielen Dank
Nick
Antwort 3 von Hajo_Zi vom 04.08.2021, 19:45 OptionsLösung
Halo Nick,
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen. Start über Extras, Makro, Makros, Makro wählen, ausführen.
Gruß Hajo
starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen. Start über Extras, Makro, Makros, Makro wählen, ausführen.
Gruß Hajo
Antwort 4 von Rodnick vom 04.08.2021, 20:28 Options
Hallo Hajo,
hat alles geklappt! Vielen Dank für deine Hilfe!! :)
Grüße
Nick
hat alles geklappt! Vielen Dank für deine Hilfe!! :)
Grüße
Nick
Ähnliche Themen
zeile einfügen
PeterHa 06.04.2008 - 58 Hits - 3 Antworten
VBA - Zeile ? bis letzte Zeile markieren ...
Tomschi 03.04.2008 - 120 Hits - 7 Antworten
Daten in richtige zeile einfügen
Weiss_nix 27.07.2008 - 53 Hits - 5 Antworten
Excel 2007: Zeile einfügen
toschm 10.08.2008 - 57 Hits - 4 Antworten
Excel Tabelle einfärben (eine Zeile weiss, eine Zeile grau)
weissgrau 16.10.2008 - 64 Hits - 3 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
