Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
160to164
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
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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



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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige