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
1936to1940
1936to1940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Leerzeilen nach Zahlen/Buchstabenblock

Forumthread: 2 Leerzeilen nach Zahlen/Buchstabenblock

2 Leerzeilen nach Zahlen/Buchstabenblock
31.07.2023 15:14:54
Uwe Benz
Hallo zusammen,

in meiner Tabelle sind in der Spalte A Bezeichnungen enthalten die mehrmals vorkommen können. Die Spalte A ist bereits sortiert. Ich möchte nun nach jedem Block 2 Leerzeilen einfügen. Mit einer Zeile funktioniert das super mit folgendem Code:

Sub Zeile einfügen()

Dim zeile As Integer
Dim ws As Worksheet

Set ws = Sheets("MÜ_Gesamt")

zeile = 2
Do While ws.Cells(zeile, 1) > ""
If ws.Cells(zeile, 1).Value > ws.Cells(zeile + 1, 1).Value Then
ws.Rows(zeile + 1).Insert
zeile = zeile + 1
End If

zeile = zeile + 1
Loop

End Sub

Ich habe einfach mal probiert die 1 mit 2 zu tauschen. Aber scheinbar leider funktioniert das nicht so einfach oder ich habe die falschen eingetragen.
Wie müsste ich meinen Code anpassen?

Vielen Dank für Eure Hilfe.

Liebe Grüße
Uwe
Anzeige

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

Betreff
Datum
Anwender
Anzeige
2 Leerzeilen nach Zahlen/Buchstabenblock
31.07.2023 17:42:58
Daniel
Hi

Probier mal das. Ich gehe von einer Zeile Überschrift aus: 

With Range("A1")

Range(.offset(1,0), .end(xldown)).copy

.End(xldown).offset(1, 0).pastespecial xlpasteall

selection.removeduplicates 1, xlno

Selection.copy selection(1).end(xldown).offset(1, 0)

Activesheet.usedrange.sort key1:=.Cells, order1:=xlascending, header:=xlyes

End with


Gruß Daniel
Anzeige
2 Leerzeilen nach Zahlen/Buchstabenblock
31.07.2023 15:42:05
UweD 
Sub Freizeilen()

    Dim Sp As Integer, LR As Long, Z1 As Integer, I As Long, TB1 As Worksheet

    Set TB1 = Sheets("MÜ_Gesamt")

    Sp = 1 ' Spalte A

    Z1 = 2 'erste Datenzeile

    

    With TB1

        LR = .Cells(.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte

        

        For I = LR To Z1 Step -1

            If .Cells(I, Sp) > "" And .Cells(I - 1, Sp) > .Cells(I, Sp) Then

                .Rows(I).Resize(2).Insert

                    

            End If

        Next

    End With

End Sub


LG UweD
Anzeige
AW: 2 Leerzeilen nach Zahlen/Buchstabenblock
31.07.2023 15:38:22
GerdL
Hallo,

es ist mit Richtung abwärts recht ungewohnt. :-) 
Sub Zwei_Zeilen_einfügen()



    Dim zeile As Long

    Dim ws As Worksheet

    

    

    Set ws = Sheets("MÜ_Gesamt")

    

    zeile = 2

    Do While ws.Cells(zeile, 1) > ""

        If ws.Cells(zeile, 1).Value > ws.Cells(zeile + 1, 1).Value Then

            ws.Rows(zeile + 1 & ":" & zeile + 2).Insert

            zeile = zeile + 2

        End If

        zeile = zeile + 1

    Loop



End Sub

Gruß Gerd
Anzeige
AW: 2 Leerzeilen nach Zahlen/Buchstabenblock
31.07.2023 15:31:25
Rudi Maintaire
Hallo,
Zeilen einfügen oder löschen immer von unten. 
Sub Zeilen_einfuegen()

  Dim zeile As Long

  Dim ws As Worksheet

  

  Set ws = Sheets("MÜ_Gesamt")

  

  With ws

    For zeile = .Cells(Rows.Count, 1).End(xlUp).Row - 1 To 2 Step -1

      If .Cells(zeile + 1, 1).Value > .Cells(zeile, 1).Value Then

        .Rows(zeile + 1).Resize(2).Insert

      End If

    Next zeile

  End With



End Sub

Gruß
Rudi
Anzeige
AW: 2 Leerzeilen nach Zahlen/Buchstabenblock
31.07.2023 15:29:19
Alwin Weisangler
Hallo Uwe,

du zäumst das Pferd zwar von auf - ist aber falsch.
Baue eine Schleife rückwärts und füge dann die 2 Leerzeilen ein.
Dann klappt es mit wenig Aufwand.
vom Prinzip her so: 


for i= sheets("MÜ_Gesamt").Cells(Rows.Count, 1).End(xlUp).Row to 2 step -1

     If sheets("MÜ_Gesamt").Cells(zeile, 1) > sheets("MÜ_Gesamt").Cells(zeile - 1, 1) Then

          sheets("MÜ_Gesamt").Rows(zeile - 1).Insert

          zeile = zeile - 1 

     end if

next i

Ich habe leider kein Excel zur Hand und der Code ist ungetestet reingeschrieben.
Gruß Uwe
Anzeige
;

Forumthreads zu verwandten Themen

Ergänzung zum Beitrag "Sortieren mit Leerzeilen"
dschierz

Ich habe hier noch einen Link zu der Beispieltabelle, die das Problem beschreibt.
https://www.herber.de/bbs/user/54809.xls
Dietmar Schierz
22.08.2008 09:27:43
Thread-ID: 1003738
2 Beiträge
Anzeige
Leerzeilen in markieren Bereich einfügen
Ulrich

Hallo zusammen,
ich möchte gerne einen Bereich markieren und dann ein Makro starten, dass im markierten Bereich unter jeder Zeile eine Leerzeile einfügt und dann den gesamten Bereich (Zeilen+Leerzeilen) markiert.
Habe das versucht - geht nicht:
Dim bereich As Range
Set bereich...
26.08.2008 15:36:00
Thread-ID: 1004840
3 Beiträge
Anzeige
Bei Ausdruck Leerzeilen ausblenden
Christian

Guuuuten Morgen zusammen,
ich suche seit einer knappen Stunde eine Lösung für folgendes, wohl sehr einfaches Problem, finde aber nur Spezial-Lösungen, die ich leider nicht entsprechend reduziert bekomme:
Habe eine Tabelle von A1 bis K59; Leerzeilen können im Bereich 8 bis 47 vorkommen;...
27.08.2008 09:08:00
Thread-ID: 1004971
15 Beiträge
ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Anzeige
Makro um Leerzeilen einzufügen
Matthias

Hallo,
ich bin auf der Suche nach einem Makro, dass unter jeder Zeile eine Leerzeile einfügt (Für einen besseren Überblick in einer Liste)
Ich weiß nur wie man Makro schreibt dass Leerzeilen löscht...
Weiß jemand wie man das realisieren kann?
Vielen Dank im Voraus
matthias
09.10.2008 15:33:00
Thread-ID: 1015370
4 Beiträge
Anzeige
Leerzeilen
Willi

Hallo zusammen
Ich habe folgendes Problem und benötige dringend eure Hilfe.
Ich arbeite in der Firma mit SAP. Wenn ich mir dann eine Maske aufrufe in der dann sehr viele Daten enthalten sind und ich diese dann auswerten muss, Exportiere ich die Datei aus SAP in Excel.
Das klappt auc...
27.11.2008 17:21:00
Thread-ID: 1028462
4 Beiträge
sortieren ohne duplikate und Leerzeilen
Dieterlem

Hallo Excelfreunde,
ich möchte aus der Tabelle 1 ein Bereich (Range(D10:D209")) einlesen, diesen Bereich ohne Duplikate und Leerzeilen sortieren, und in ein anderes Tabellenblatt übertragen.
Bis jetzt habe ich den Bereich in das andere Tabellenblatt kopiert und danach sortiert. Jedoch b...
30.01.2009 20:19:13
Thread-ID: 1045513
4 Beiträge
leerzeilen löschen!
lisa

Hallo zusammen
Ich weiß das diese Thema schon tausendfach behandelt wurde. In meiner recherche bin ich auch fündig geworden.
Das Problem was ich jetzt habe ist, dass ich nicht die ganze Zeile gelöscht haben will, sondern nur die Zeilen von A:BH!
In meinem Macro ist das Kriterium der...
26.02.2009 12:41:59
Thread-ID: 1054328
4 Beiträge
Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen
Till

Hallo Leute,
hab mal wieder ein (hoffentlich nicht zu kompliziertes) Problem.
In einer Datei gibt es Spalten mit Zahlen. D.h. hier kommen wirklich nur Zahlen vor, und interessieren einfach nicht.
Welches Makro kann man jetzt ablaufen lassen, um die Zellen zu finden wo "NUR Zahlen"...
26.02.2009 16:05:37
Thread-ID: 1054444
6 Beiträge
Formel kopieren bei Leerzeilen
Catrin

Hallo,
ich stehe gerade auf dem Schlauch:
Ich habe in Tabelle 1 Daten ohne Leerzeilen stehen.
In Tabelle 2 möchte ich Daten aus Tabelle 1 stehen haben.
Die Formel lautet z.B:
A1=Tabelle1!B2 - wenn ich diese Formel nun in A5 kopiere, nimmt er mir nicht Tabelle1!B3, sondern Ta...
18.03.2009 14:42:09
Thread-ID: 1061436
4 Beiträge
Doppelte und Leerzeilen löschen
Tim

Hallo.
ich brauche ein Makro, welches in Spalte B durchsucht und alle Zeilen löscht, die einen doppelten (Text) Inhalt in der Spalte haben. Zudem müssen gleichzeitig alle Leerzeilen gelöscht werden.
Am liebsten wäre es mir, wenn zunächst die Leerzeilen gelöscht werden und alle doppelten...
04.06.2009 13:29:11
Thread-ID: 1079139
5 Beiträge
Autosumme nach x-Leerzeilen dynamisch
Jens

Hallo
ich stehe vor einem größerem Poblem. Ich habe eine Tabelle mit 10 Spalten. Über die Spalten F bis J soll eine Summe gebildet werden, sobald eine Leerzeile gefunden wird, aber nicht als Spaltensumme, sondern nur über den Darüberliegenden Bereich. Das Problem bei der Sache ist, daß die...
19.06.2009 13:56:52
Thread-ID: 1082900
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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