Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
512to516
512to516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile einfügen bei Bedingung

Forumthread: Zeile einfügen bei Bedingung

Zeile einfügen bei Bedingung
09.11.2004 11:53:37
Elmar
Hallo Experten,
folgende Zahlenreihe:
727033787800
727033780060
727033780190
727033780230
727033780250
727033780380
727033790790
727033790790
727233700020
727233700060
727233700080
727333700050
727333700050
727333717100
727333757502
727933710170
728033727200
728833707000
729033717110
Wie kann ich erreichen, dass immer wenn in diesen Zahlenreihen (die immer verschieden lang sind) ab der dritten Stelle die Zahl wechselt eine Leerzeile eingefügt wird. Geht sowas per Makro usw.
Danke schon mal für die Hilfe
Elmar
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile einfügen bei Bedingung
Josef
Hallo Elmar!
Probier mal!

Sub LeerZeile()
Dim lEnd As Long
Dim lRow As Long
lEnd = Range("A65536").End(xlUp).Row
For lRow = lEnd To 2 Step -1
If Cells(lRow, 1) <> "" And Cells(lRow - 1, 1) <> "" _
And Mid(Cells(lRow, 1), 3, 1) <> Mid(Cells(lRow - 1, 1), 3, 1) Then
Cells(lRow, 1).Insert
End If
Next
End Sub

Gruß Sepp
Anzeige
AW: Zeile einfügen bei Bedingung
Worti
Hallo Elmar,
so gehtS:


Sub InsertLeer()
    Dim I As Long
    
    I = 1
    Do While Cells(I + 1, 1).Value <> ""
       If Mid(CStr(Cells(I, 1).Value), 3, 1) <> Mid(CStr(Cells(I + 1, 1).Value), 3, 1) Then
          Rows(I + 1).Insert
          I = I + 1
       End If
       I = I + 1
    Loop
    
End Sub


Worti
Anzeige
AW: Zeile einfügen bei Bedingung
09.11.2004 17:47:22
Elmar
Hallo Worti,
das klappt, wenn die dritte Stelle anders ist. Manchmal ist die dritte Stelle noch gleich, aber erst die vierte anders. Es soll also auch die 4 Stelle abprüfen. Sorry, habe mich vielleicht falsch ausgedrückt.
Grüße
Elmar
AW: Zeile einfügen bei Bedingung
09.11.2004 17:57:24
Josef
Hallo Elmar!
Dann so.

Sub LeerZeile()
Dim lEnd As Long
Dim lRow As Long
lEnd = Range("A65536").End(xlUp).Row
For lRow = lEnd To 2 Step -1
If Cells(lRow, 1) <> "" And Cells(lRow - 1, 1) <> "" _
And Mid(Cells(lRow, 1), 3, 2) <> Mid(Cells(lRow - 1, 1), 3, 2) Then
Cells(lRow, 1).Insert
End If
Next
End Sub

Gruß Sepp
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige