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 hallokati vom 18.10.2019, 15:38 Options
Leerzeilen einfügen
Hallo,
vielleicht kann mir einer von euch helfen.
Ich möchte immer nach z.B. 2 Sternen (**) in Spalte A
2 Leerzeilen einfügen. Die Zeilen in den diese Sterne stehen,
haben aber nicht immer den gleichen Zeilenabstand, d.h. es sind unterschiedlich viele Zeilen bis zu den nächstren Sternen.
Wie kann ich das machen?
Wäre toll wenn es da eine Möglichkeit gäbe.
vielleicht kann mir einer von euch helfen.
Ich möchte immer nach z.B. 2 Sternen (**) in Spalte A
2 Leerzeilen einfügen. Die Zeilen in den diese Sterne stehen,
haben aber nicht immer den gleichen Zeilenabstand, d.h. es sind unterschiedlich viele Zeilen bis zu den nächstren Sternen.
Wie kann ich das machen?
Wäre toll wenn es da eine Möglichkeit gäbe.
Antwort 1 von DukeNT vom 18.10.2019, 16:05 Options
Hi,
das geht per VBA.
Drücke ALT+F11 - Einfügen - Modul
und kopiere folgenden Code in das neue Fenster.
Sub leerzeilen()
For a = Sheets(1).Range("A65536").End(xlUp).Row + 1 To 1 Step -1
If Cells(a, 1) = "**" Then Rows(a + 1 & ":" & a + 2).Insert
Next a
End Sub
Starte das Makro "leerzeilen" und schon hast du die gewünschten beiden Leerzeilen.
Gruß Niels
das geht per VBA.
Drücke ALT+F11 - Einfügen - Modul
und kopiere folgenden Code in das neue Fenster.
Sub leerzeilen()
For a = Sheets(1).Range("A65536").End(xlUp).Row + 1 To 1 Step -1
If Cells(a, 1) = "**" Then Rows(a + 1 & ":" & a + 2).Insert
Next a
End Sub
Starte das Makro "leerzeilen" und schon hast du die gewünschten beiden Leerzeilen.
Gruß Niels
Antwort 2 von hallokati vom 22.10.2019, 17:02 Options
Hallo DukeNet,
vielen Dank für Deine super schnelle Hilfe,
hat bestens funktioniert. Vielen, vielen Dank.
LG Katja
vielen Dank für Deine super schnelle Hilfe,
hat bestens funktioniert. Vielen, vielen Dank.
LG Katja
Antwort 3 von gast123 vom 22.10.2019, 17:50 Options
hallo dukent
du koenntest dein makro verbessern,das es zeilenunabhaengig wird :-)
statt Range("A65536")
Range("A" & Rows.count)
gruss gast123
du koenntest dein makro verbessern,das es zeilenunabhaengig wird :-)
statt Range("A65536")
Range("A" & Rows.count)
gruss gast123
Antwort 4 von DukeNT vom 23.10.2019, 10:11 Options
Hi gast123,
ich weiss jetzt nicht ob deine Variante wiklich besser ist da die letzte Zeile eh immer 65536 ist.
Denke mal das der Code mit Range("A65536") schneller ist (kürzer sowieso), da nicht noch erst mit .count eine weitere funktion abgearbeitet werden muß.
Korrigiert mich wenn ich da falsch liege bzw. in welchem fall die Funktion "Range("A" & Rows.count)" zu einem anderen Ergebniss als Range("A65536") führt.
Gruß Niels
ich weiss jetzt nicht ob deine Variante wiklich besser ist da die letzte Zeile eh immer 65536 ist.
Denke mal das der Code mit Range("A65536") schneller ist (kürzer sowieso), da nicht noch erst mit .count eine weitere funktion abgearbeitet werden muß.
Korrigiert mich wenn ich da falsch liege bzw. in welchem fall die Funktion "Range("A" & Rows.count)" zu einem anderen Ergebniss als Range("A65536") führt.
Gruß Niels
Antwort 5 von gast123 vom 23.10.2019, 11:21 Options
hi all
es gibt sehr viele excelvarianten mit unterschiedlicher zeilen wie spaltenanzahl
wenn man zeit sparen wollte deklariere deine variablen,in deinem fall als long,sehr hilfreich bzw ein soll,ist option explicit
gruss gast123
es gibt sehr viele excelvarianten mit unterschiedlicher zeilen wie spaltenanzahl
wenn man zeit sparen wollte deklariere deine variablen,in deinem fall als long,sehr hilfreich bzw ein soll,ist option explicit
gruss gast123
Ähnliche Themen
Makros - zweiten Drucker als Symbol in die Symbolleiste einfügen
Mikoop 24.11.2006 - 4092 Hits - 1 Antwort
daten mit leerzeilen untereinander schreiben
manzur 18.01.2007 - 89 Hits - 2 Antworten
Leerzeilen einfügen
MISSRAPIDOVS 22.02.2007 - 64 Hits -
Kopieren und Einfügen
Pascal1501 12.03.2007 - 183 Hits - 4 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
