in einer Combobox werden Werte eingetragen und bei Bedarf nach Click auf Commandbutton in Kundenliste übertragen und anschliessend alphabetisch sortiert, jetzt habe ich hier diesen kleinen Code bekomme aber immer den Fehler Argumgent nicht optional, weiss aber nicht warum.
Wer kann helfen?
Gruss Andreas
Private Sub CommandButton1_Click()
Dim lastrow As Integer
Dim ws As Worksheet
Set ws = Worksheets("Kunden")
lastrow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
ws.Range("A" & lastrow + 1).Text = combobox1.Value
ws.Range.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Set ws = Nothing
End Sub