ComboBox
11.10.2005 10:27:23
Max
könnte mir bitte jemand sagen wie ich es hinbekomme das
der unten genannte Code funktioniert, über einen CommandButton geht es
aber wie mit einer ComboBox?
Private Sub ComboBox1_click()
Sheets("Tabelle1").Select
Range("A2:G20").Select
Range("B2").Activate
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A2").Select
End Sub
Viele Grüsse
Max