Sortieren und Löschen einer Spalte mit einem Makro

Hallo Peter,

deine Frage ist nicht ganz eindeutig. Nach was willst du Spalte B sortieren? Nach Farbe oder nach den Werten aufsteigend oder absteigend?

Probiere mal folgenden Code. Falls das nicht das gewünschte Ergebnis bringt, erkläre das Sortieren etwas mehr:

Sub Bereinigen()
Dim LRow As Long

With ActiveSheet
LRow = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range("A1").AutoFilter Field:=4, Criteria1:="FALSCH"
.Range("C2" & LRow).ClearContents
.AutoFilterMode = False
.Range("A1:E" & LRow).Sort key1:=.Range("B1"), order1:=xlAscending, _
Header:=xlYes
.Range("B2:B" & LRow).Interior.ColorIndex = xlNone
End With
End Sub

Claus

Hallo Werner,



alternativ zu Hajo's Vorschlag hättest du in Spalte B deine Zeilen mit einer laufenden Nummer versehen können und dann nach dieser Spalte absteigend sortieren und wieder Spalte löschen.



Mit freundlichen Grüßen

Claus

Hallo Andreas,
<br />die Lösung mit der forlaufenden Nummer ist perfekt.
<br />Das Problem ist einfach, dass die Sortierung der Spalte B nicht durchgeführt werden darf,
<br />da dann alles nicht mehr passt, da ist es egal wie man zur Sortierung gelangt (siehe Vorschlag Claus),
<br />was ich im übrigen schon getestet hab. Fakt ist diese Sortierung Spalte B ist das Problem.
<br />Aber die fortlaufende Nummer einzufügen, dann kann man nach Spalte B und C sortieren,
<br />doppelte Daten löschen, und dann zum Schluss nach der forlaufenden Nummer sortieren,
<br />ist die perfekte Lösung.
<br />Hab die ganzen Schritte als Makro aufgezeichnet, so ist die neue Datei sofort fertig.
<br />Ja, machmal ist es halt zu einfach, dass man (alleine) nicht drauf kommt
<br />Danke !
<br />Tom
<br />

Hallo

Vielen Dank, dass Sie Ihre Anfrage gepostet haben. Mein Name ist Clarence, ich helfe Ihnen gerne bei Ihrem Anliegen.

Um Ihre Anfrage zu lösen, führen Sie bitte die folgenden Schritte aus.

Markieren Sie eine Zelle in den Daten.

Wählen Sie Home > Sortieren & Filtern aus.

Oder wählen Sie Daten > Sortieren aus.

Wählen Sie eine Option:

Sortieren von A bis Z - sortiert die ausgewählte Spalte in aufsteigender Reihenfolge.

Sortieren von Z bis A - sortiert die ausgewählte Spalte in absteigender Reihenfolge.

Benutzerdefinierte Sortierung - sortiert Daten in mehreren Spalten, indem verschiedene Sortierkriterien angewendet werden.

So führen Sie eine benutzerdefinierte Sortierung durch:

Wählen Sie Benutzerdefinierte Sortierung aus.

Wählen Sie Ebene hinzufügen aus.

Wählen Sie für Spalte in der Dropdownliste die Spalte aus, nach der Sie sortieren möchten, und wählen Sie dann die zweite Spalte aus, die Sie dann sortieren möchten. Beispiel: Sortieren nach Abteilung und dann nach Status.

Wählen Sie für Sortieren nach die Option Werte aus.

Wählen Sie unter Bestellung eine Option aus, z. B. A bis Z, Kleinstes bis Größtes oder Größtes bis Kleinstes.

Wiederholen Sie für jede weitere Spalte, nach der Sie sortieren möchten, die Schritte 2 bis 5.

Hinweis: Um eine Ebene zu löschen, wählen Sie Stufe löschen.

Aktivieren Sie das Kontrollkästchen Meine Daten haben Kopfzeilen, wenn Ihre Daten eine Kopfzeile haben.

Wählen Sie OK aus.

Gehen Sie zu diesem Link für Ihre Referenz https://support.microsoft.com/en-us/office/sort-data-in-a-table-77b781bf-5074-41b0-897a-dc37d4515f27

Zögern Sie nicht, uns eine Nachricht zu senden, wenn Sie weitere Hilfe benötigen.

Geben Sie der Gemeinschaft etwas zurück. Helfen Sie der nächsten Person, die dieses Problem hat, indem Sie angeben, ob diese Antwort Ihr Problem gelöst hat. Klicken Sie unten auf Ja oder Nein.

Alles Gute
Clarence

Diese Antwort ist automatisch übersetzt worden. Daher kann sie grammatikalische Fehler oder fremde Ausdrücke enthalten.
<br />

Hallo Olli,

beim Sortieren müssen alle Spalten bzw. Zeilen eingeblendet sein. Siehe dazu Auszug aus der Excel-Hilfe:

Blenden Sie alle Zeilen und Spalten ein, bevor Sie sortieren Ausgeblendete Spalten oder Zeilen werden nicht berücksichtigt, wenn Sie Spalten oder Zeilen sortieren. Vor dem Sortieren von Daten sollten Sie daher alle ausgeblendeten Spalten
und Zeilen einblenden.

Mit freundlichen Grüßen