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