Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
512to516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige