Supportnet / Forum / Tabellenkalkulation

Hallo ich habe folgendes Problem: Ich möchte Excellisten sortieren, welche aus einem Anderen programm herraus erstellt werden (eine menge daten, teilweise mehr als 1500 zeilen) Diese daten sind eindeutig benannt und werden durch ein macro gesplittet, getrennt, sortiert und in neue Spalten eingefügt Excelbefehl: Text in Spalten... Das läuft super.. Anschliessend sollen diese Daten in Absätze unterteilt werden, also leerzeilen einfügen. Problem ist, das die Position der leeren zeilen nicht fix ist. Frage: Gibt es eine Möglichkeit Daten aus den zellen zu lesen, und bei einem bestimmten wahrheitswert eine leere zeile UNTER diese einzufügen? Danke für eure mühe im vorraus

Hi JimSelf,

nachfolgendes Makro durchsucht die Spalte A nach dem Text „Leerzeile einfügen“ und fügt eine Zeile tiefer eine Leerzeile ein. Kopiere in ein StandardModul und starte es über eine Befehlsschaltfläche.

Option Explicit

Sub Leerzeilen_einfügen()
Dim Wiederholungen As Long
Application.ScreenUpdating = False
For Wiederholungen = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(Wiederholungen, 1) = "Leerzeile einfügen" Then
Rows(Wiederholungen + 1).Insert Shift:=xlDown
End If
Next
End Sub

Da es bei Dir sicherlich ein anderer Text sein soll als „Leerzeile einfügen“ ändere in dem Makro in der Zeile

If Cells(Wiederholungen, 1) = "Leerzeile einfügen" Then

den Text zwischen den Anführungszeichen (""). Soll bei Dir eine andere Spalte als A durchsucht werden, musst Du in dem Makro in den Zeilen

For Wiederholungen = Range("A65536").End(xlUp).Row To 1 Step -1

die Zellebezeichnung und in den Zeilen

If Cells(Wiederholungen, 1) = "Leerzeile einfügen" Then

die Spaltenindexzahl (die Zahl in der Klammer) ändern. Für Spalte A steht dort eine 1, für Spalte B müsste dort eine 2 stehen, für C eine 3 usw.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo

super klasse
funktioniert

vielen dank, spart eine menge Arbeit

Nabend JimSelf,

freut mich, dass Du klar gekommen bist und das die Lösung etwas für Dich war. Danke Dir auch für die Rückmeldung.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• Makro Zeilen einfügen
• mehrere Zeilen in Excel einfügen
• Leerzeilen einfügen
• Word automatisieren
• Zeilen einfügen