Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
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
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortierungsproblem

Forumthread: Sortierungsproblem

Sortierungsproblem
18.09.2002 11:20:56
Klaus
Hallo Forum,
ich habe ein Sortierproblem
Ich habe Informationen welche in jeweils 2 Zeilen stehen, ich möchte nun die Spalte A absteigend sortieren
lassen. Das Problem ist jedoch dass in der jeweiligen 2. Zeile in Spalte A nichts drin steht.

Bsp

Spalten
A B
01A Text zu 01A in Spalte B
Text zu 01A in Spalte B
01C Text zu 01C in Spalte B
Text zu 01C in Spalte B
01B Text zu 01B in Spalte B
Text zu 01B in Spalte B

Wie kann jetzt Spalte A absteigend sortieren lassen unter Beibehaltung der jeweils 2. Zeile.
Gruss + Dank
Klaus



Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Sortierungsproblem
18.09.2002 12:02:06
Monika
Hallo Klaus,

wenn ich Dein Problem richtig verstanden habe, hilft Dir folgendes Makro.
ACHTUNG: Hier wird die Spalte C als Hilfsspalte benutzt und nachher wieder gelöscht! Sie muß also auch vorher leer sein!
Ansonsten muß man das Makro auf eine andere leere Spalte anpassen!

Public Sub sortieren()
Dim zelle As Range
For Each zelle In Range(Cells(1, 1), Range("A1").End(xlDown))
If zelle <> "" Then
zelle.Offset(0, 2) = zelle
zelle.Offset(1, 2) = zelle
End If
Next
Columns("A:C").Sort Key1:=Range("C1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("C:C").ClearContents
End Sub

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