Jungs wie kann ich mein Chaosmakro verbessern ?
Mit der Dimensionierung von Variablen klapt's nocht nicht so recht.
Sub Start()
' Werte auslesen
Application.Goto Reference:="eingabeabt"
Searchabt = Trim$(Str$(ActiveCell.Value))
Application.Goto Reference:="Gruppe"
Searchgruppe = Trim$(Str$(ActiveCell.Value))
Application.Goto Reference:="eingabeschicht"
Searchschicht = ActiveCell.Value
Application.Goto Reference:="eingabequitstatus"
Searchstatus = ActiveCell.Value
'Erst mal alle Filter rausmachen
Application.Goto Reference:="StartDaten"
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=4
Selection.AutoFilter Field:=5
'Dann Filter so setzen, wie man es braucht
Application.Goto Reference:="StartDaten"
Selection.AutoFilter Field:=2, Criteria1:=Searchabt
Selection.AutoFilter Field:=3, Criteria1:=Searchgruppe
Selection.AutoFilter Field:=4, Criteria1:=Searchschicht
Selection.AutoFilter Field:=5, Criteria1:=Searchstatus
Application.Goto Reference:="ZielDatenTOP5"
Range("B9:J18").Select
Selection.ClearContents
Range("B9").Select
Application.Goto Reference:="StartDaten"
Cells.Select
Selection.Copy
Sheets("Aus.Gr").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Rows("14:1205").Select
Selection.Delete Shift:=xlUp
Range("B9").Select
Application.Goto Reference:="StartDaten"
Range("B9").Select
Application.Goto Reference:="eingabeabt"
End Sub