Office: Leerzeilen

Hallo zusammen,

ich hoffe, Ihr könnt mir bei folgendem Excel-Problem weiterhelfen. Ich habe eine Tabelle, in der sich in der Spalte A mehr als 100 Zeilen hintereinander mit Daten/Zahlen befinden. Gibt es eine Möglichkeit im Excel, automatisch nach jeder Zeile eine Leerzeile einzufügen zu lassen?

Ciao Anke

 

Hallo Anke,
wie du eine Leerzeile einfügst, weiss ich leider nicht, aber wenn es um die verbesserte Lesbarkeit geht, versuch es doch mal mit der "Bedingten Formatierung". Im Menü Format>Bedingte Formatierung, unter Bedingung 1> Formel ist =REST(ZEILE();2)=0, dann auf Format und auf das Register "Muster", dort die Farbe auswählen und OK. Die 2 gibt an, dass jede 2. Zeile farbig markiert wird.
Vielleicht hilft dir das ja, vielleicht hat ja noch jemand eine Idee.
Gutes Gelingen
hexlein

 

Hallo,

schreibe unter alle Datensätze in Spalte A "Ende", dann A2 (wo die erste Leerzeile eingefügt werden soll) markieren und das Makro starten.

Sub zeilen_einfügen()

For x = 1 To 100000
If ActiveCell.Value = "Ende" Then
End
End If
Selection.EntireRow.Insert
ActiveCell.Offset(2, 0).Range("a1").Select
Next x

End Sub

Gruß
J.

 

Hallo,

...'hat leider nicht funktioniert. Vielleicht sollte ich das Problem noch einmal genauer beschreiben. Ich habe in Spalte A ca. 100 Artikel-Nummern hintereinander aufgeführt. Nach jeder Artikel-Nummer soll nun noch in eine neue Zeile die Beschreibung aufgeführt werden. Demzufolge muss im Excel nach jeder Nummer eine Leerzeile eingefügt sein und dies möglichst automatisch. Ist das machbar?

Ciao Anke

 

Hallo Anke,

bei mir hat das Makro von john einwandfrei funktioniert. Wechsle in den vba-Editor (mit Alt-F11), mache einen Doppelklick auf Deine Tabelle, in der die Leerzeilen eingefügt werden sollen, füge obiges Makro ein, wechsle zurück in Deine Tabelle, schreibe unter den allerletzten Eintrag Deiner Tabelle in Spalte A das Wort Ende, setze dann den Cursor in Zelle A2 und starte das Makro.

Gruß WM

 

Hallo zusammen,

...jetzt hat es funktioniert. Habt alle vielen Dank für Euere Hilfe!!!

Ciao Steffen