Anzeige
Archiv - Navigation
916to920
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
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Sortieren über "ComboBox"
15.10.2007 13:29:18
Andreas
Hallo Excel Profis
Ich habe mal wieder ein Problem!
Ich würde gerne über eine ComboBox sortieren lassen.
Ich habe so etwas änliches schon einmal mit dem Autofilter gemacht

Private Sub CommandButton1_Click()
Range("A4:BN320").AutoFilter Field:=51 + ComboBox1.ListIndex, Criteria1:=""
Unload Me
End Sub



Private Sub UserForm_Activate()
Dim intC As Integer
With ComboBox1
For intC = 1 To 24
.AddItem Cells(1, intC).Text
Next
.ListIndex = 0
End With
End Sub



Ist so etwas auch über den Filter und sortieren möglich?
Mein Makro Versuch
Funktioniert aber leider nicht!!!


Private Sub CommandButton1_Click()
Range("A3:AZ5000").Sort Key:=1 + ComboBox1.ListIndex, Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Unload Me
End Sub



Private Sub UserForm_Activate()
Dim intC As Integer
With ComboBox1
For intC = 1 To 24
.AddItem Cells(1, intC).Text
Next
.ListIndex = 0
End With
End Sub



Kann mir einer weiterhelfen?
Im Vorraus vielen Dank!
Gruß Andreas

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren über "ComboBox"
15.10.2007 14:36:00
Gerd
Hi,
Key:=1 + ComboBox1.ListIndex
sieht seltsam aus, was steht denn in der Box?
Key1:= ComboBox1.Text
vielleicht?
mfg Gerd

AW: Sortieren über "ComboBox"
15.10.2007 14:43:55
Andreas
Hallo Gerd,
in der ComboBox soll die Zeile 1 stehen.
In der Zeile 1 stehen die Überschriften der jeweiligen Spalten.
Die Zeile 2 ist leer, und ab der Zeile 3 fängt der Datensatz an.
In der ComboBox soll die Spalte ausgewählt werden, und dann nach der ausgewählten Spalte sortiert werden!
Sortierbereich A3:X5000
Gruß Andreas

AW: Sortieren über "ComboBox"
15.10.2007 14:47:31
Gerd
Hi,
werd aus deiner Beschreibung nicht klüger, lad mal ein Beispiel hoch.
mfg Gerd

Anzeige
AW: Sortieren über "ComboBox"
15.10.2007 15:26:35
Gerd
Hi,
Sort erwartet einen Range als Kriterium, bei dir wird eine Zahl ausgeben, das kann
nicht funktionieren.
Was soll die unselige Leerzeile?
mfg Gerd

AW: Sortieren über "ComboBox"
15.10.2007 15:55:04
Gerd
Hi,
Antwort vergessen:
Range("A3:AZ5000").Sort Key1:=Cells(3, 1 + ComboBox1.ListIndex), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Das ist aber nicht abwärtskompatibel, läuft erst ab Excel 2002.
mfg Gerd

Anzeige
Danke!
15.10.2007 19:14:00
Andreas
Danke!

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige