Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren_Leerzeile

Forumthread: Sortieren_Leerzeile

Sortieren_Leerzeile
08.05.2024 11:11:10
Tom
Hallo zusammen,

bei angehängter Mappe wird nach Spalte B sortiert.
Spalte B enthält mehrere, verschiedene Begriffe, die sich auch wiederholen. Die Tabelle soll sortiert werden und nach jedem neuen Begriff in Spalte B eine Leerzeile eingefügt werden.

https://www.herber.de/bbs/user/169353.xlsm

Danke vorab

TOM
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Sortieren_Leerzeile
08.05.2024 11:30:50
Daniel
Hi

Kopiere dir Spalte B 2x ans Tabellenende
Mit der zweiten Kopie füfrst du dann ein Duplikate-Entfernen aus und verschiebst es unter die erste Kopie.
Dann sortiert du die Liste nach dieser Spalte. 

Columns(2).Copy

Columns(4).pastespecial xlpastevalues

Columns(6).pastespecial xlpastevalues

Columns(6).remove duplicates 1

Cells(1, 6).currentregion.offset(1, 0).copy

cells(1, 4).end(xldown).offset(1, 0).pastespecial

Range("A:D").Sort key1:=Cells(1, 4), order1:=XL ascending, header:=XL yes

Range("D:F").Clear contents


Gruß Daniel

Anzeige
AW: Sortieren_Leerzeile
08.05.2024 11:56:44
Tom
Hallo Daniel,

Duplikate dürfen gerne enthalten sein, weil es sich in Spalte B nur um die jeweilige Rubrik handelt.

Es soll quasi nur nach jeder Rubrik eine Leerzeile eingefügt werden

Danke
TOM
AW: Sortieren_Leerzeile
03.06.2024 11:57:28
Tom
Hi Daniel,

sorry, ich war einige Zeit nicht im Büro.
Ich komme leider nicht klar ... Kannst Du mir bitte nochmal helfen
https://www.herber.de/bbs/user/169842.xlsm

Danke

Gruß
TOM

Anzeige
AW: Sortieren_Leerzeile
08.05.2024 12:36:36
Daniel
Du hast noch nicht verstanden, was da passiert.
Mach mal von Hand, was ich beschrieben habe, vielleicht wird es dann klarer, wie das ganze funktionieren soll.

Gruß Daniel
AW: Sortieren_Leerzeile
03.06.2024 15:01:02
Tom
Habe die Lösung über CoPilot gefunden. Danke trotzdem für Deine Mühe:

Sub SortAndInsertBlankRows()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim currentTerm As String
Dim previousTerm As String

' Set the worksheet where your data is located
Set ws = ThisWorkbook.Sheets("Sheet1") ' Change "Sheet1" to your sheet name

' Find the last row in column B
lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row

' Sort the data based on column B
ws.Sort.SortFields.Clear
ws.Sort.SortFields.Add Key:=ws.Range("B2:B" & lastRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ws.Sort
.SetRange ws.Range("A1:Z" & lastRow)
.Header = xlYes ' Change to xlNo if your data doesn't have headers
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

' Insert blank rows after each new term in column B
For i = lastRow To 2 Step -1
currentTerm = ws.Cells(i, "B").Value
If currentTerm > previousTerm Then
ws.Rows(i + 1).Insert Shift:=xlDown
End If
previousTerm = currentTerm
Next i
End Sub
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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