Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Leere Zellen zwischen Zellen mit Eintrag einfügen

Forumthread: Leere Zellen zwischen Zellen mit Eintrag einfügen

Leere Zellen zwischen Zellen mit Eintrag einfügen
07.08.2003 19:06:52
Anja
Hallo Forum,
habe gerade schon etwas recherchiert, aber ich glaube mein Problem ist zu trivial/unscharf, als dass ich unter "leer" oder "Zeile" etwas finde.
Was möchte ich tun?
ich habe in einer Spalte (z.B. A) lauter Einträge untereinander stehen. Nun möchte ich zwischen jeder Zelle in A mit Eintrag zwei leere Zellen einfügen - wie das manuell geht, ist mir natürlich klar. Gibt es eine Formel, mit der ich das automatisieren kann? - kann auch in einen anderen Bereich geschrieben werden, ich würde es mir dann von da an die richtige Stelle kopieren.
Danke für Hinweise!
anja
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zellen zwischen Zellen mit Eintrag einfügen
07.08.2003 20:06:10
Knut
Eine Formel kann keine Zeilen/Zellen einfügen, da muss schon
VBA ran.
Knut

AW: Leere Zellen zwischen Zellen mit Eintrag einfügen
07.08.2003 20:12:12
Stephan
Hi Anja!
Mach Dir zwei Hilfsspalten neben DEiner Spalte mit den Werten (hier A).
Schreib in Zelle B1 den Wert 1 und in die Zelle B4 die Formel: =B1+1.
Jetzt markiere den Bereich B2:B4 und zieh die Formel so weit runter, wie Du sie brauchst (mit dem Kreuzchen rechts unten).
Die Spalte C füllst Du dann mit der Formel: =WENN(ISTZAHL(B1);INDEX(A:A;B1);"")
Und schon hast Du zwei Deine Werte mit zwei leeren Zellen dazwischen. Vorsicht: Wenn Du die Spalte A jetzt löscht, erst die Spalte C kopieren und mit Bearbeiten-Inhalte einfügen-Werte die Werte unabhängig übernemen.
Viel Erfolg
Stephan

Anzeige
AW: Leere Zellen zwischen Zellen VBA-Lösung
07.08.2003 20:25:36
Stephan
Hi Anja!
Damit es komplett ist, noch eine VBA-Lösung

Sub test()
Dim i, ende As Integer
Application.ScreenUpdating = False
i = 2
ende = ActiveSheet.UsedRange.Rows.Count * 3
For i = 2 To ende
Cells(i, 1).Insert
Cells(i, 1).Insert
i = i + 2
Next
Application.ScreenUpdating = True
End Sub

Gruß
Stephan

Anzeige
AW: Leere Zellen zwischen Zellen VBA-Lösung
07.08.2003 20:29:34
Anja
Hallo Stephan,
hat schon mit Deinem ersten Tipp super geklappt - mit VBA muss ich noch üben - ich hätte es mir wahrscheinlich als Marko aufgenommen (Shame on me ;-))
Vielen Dank!
anja

AW: Leere Zellen zwischen Zellen VBA-Lösung
07.08.2003 20:33:03
Stephan
Na, das freut mich.
Makrorecorden ist keine Schande, so hat jeder mal angefangen ....
Grüßle
Stephan

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Leere Zellen zwischen Einträgen in Excel einfügen


Schritt-für-Schritt-Anleitung

Um in Excel leere Zellen zwischen Einträge einzufügen, kannst Du folgende Schritte befolgen:

  1. Hilfsspalten erstellen: Füge zwei Hilfsspalten neben Deine Daten (z.B. Spalte A) ein.
  2. Nummerierung: In der ersten Hilfsspalte (z.B. B1) schreibe den Wert 1. In der Zelle B4 schreibe die Formel =B1+1 und ziehe diese Formel nach unten, um die Zahlen fortlaufend zu erstellen.
  3. Leere Zellen erzeugen: In der zweiten Hilfsspalte (z.B. C1) fülle die Zellen mit der Formel =WENN(ISTZAHL(B1);INDEX(A:A;B1);""). Das fügt die Werte aus Spalte A ein und lässt dabei leere Zellen zwischen den Einträgen.
  4. Abschluss: Kopiere die resultierenden Werte aus Spalte C und füge sie in Spalte A ein, indem Du "Inhalte einfügen" wählst und "Werte" auswählst.

Häufige Fehler und Lösungen

  • Problem: "Excel kann keine neuen Zellen einfügen, weil nicht leere Zellen über das Ende."

    • Lösung: Stelle sicher, dass Du genügend Platz unter Deinen Daten hast, um die neuen leeren Zellen einzufügen.
  • Problem: Die Formel funktioniert nicht wie erwartet.

    • Lösung: Überprüfe, ob Du die Formeln korrekt eingegeben hast, insbesondere die Zellreferenzen.

Alternative Methoden

Eine alternative Methode, um leere Zeilen in Excel einzufügen, ist die Verwendung von VBA. Hier ist ein einfaches VBA-Skript, um zwischen jede Zeile eine leere Zeile einzufügen:

Sub LeereZeilenEinfügen()
    Dim i As Integer
    Application.ScreenUpdating = False
    For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        Rows(i & ":" & i).Insert Shift:=xlDown
    Next i
    Application.ScreenUpdating = True
End Sub

Praktische Beispiele

Angenommen, Du hast folgende Daten in Spalte A:

1
2
3
4
5

Nach Anwendung der obigen Methoden sollte es so aussehen:

1

2

3

4

5

Wenn Du die VBA-Methode verwendest, werden die leeren Zeilen automatisch hinzugefügt.


Tipps für Profis

  • Nutze die Funktion "Suchen und Ersetzen" in Excel, um schnell leere Zellen zu finden und zu entfernen.
  • Experimentiere mit der Funktion =WENN() für komplexere Bedingungen, um leere Zellen basierend auf bestimmten Kriterien einzufügen.
  • Wenn Du regelmäßig leere Zeilen zwischen Daten einfügen musst, erwäge, ein Makro zu erstellen, um den Prozess zu automatisieren.

FAQ: Häufige Fragen

1. Wie kann ich mehrere leere Zellen in Excel einfügen?
Du kannst die oben genannten Methoden verwenden, um mehrere leere Zellen automatisch hinzuzufügen, indem Du die Formeln oder das VBA-Skript anpasst.

2. Gibt es eine Möglichkeit, leere Zeilen automatisch bei jeder Eingabe einzufügen?
Es gibt keine eingebaute Funktion in Excel dafür, aber mit etwas VBA kannst Du dies automatisieren, indem Du ein Ereignis-Makro schreibst, das bei jeder Eingabe ausgeführt wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige