ich habe ein Problem mit dem Autofilter.
Ich möchte diesne in Abhängigkeit von einer Auswahl setzten lassen.
Bei der Einzelschritt Betrachtung fällt mir auf, dass er den Filter setzt.
Dann arbeitet das Programm nicht weiter sondern beginnt von vorne und gibt mir beim setzten des Autofilters eine Fehlermeldung aus:
Private Sub cboKunde_Click()
Kunde = cboKunde.Text
With Sheets(Maschine)
.Range("$A$1:$B$49").AutoFilter Field:=1, Criteria1:="=" & Kunde
.Range("B:B").Copy _
Destination:=.Range("G1")
With .Sort
.SetRange Range("G1:G100")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Kann mir hier jemand weiterhlefen?
Besten Dank.
Beste Grüße
Roman