Code kürzen (vereinfachen)
03.02.2017 16:36:39
Andre
Ich habe mal wieder ein Problem:)
und zwar habe ich ein Makro aufgezeichnet:
Sub suchen()
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-01-*" _
, Operator:=xlAnd
Range("A2:A8").Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-02-*" _
, Operator:=xlAnd
Range("A9:A15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("B6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-03-*" _
, Operator:=xlAnd
Range("A16:A22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("C6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-04-*" _
, Operator:=xlAnd
Range("A23:A37").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("D6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1, Criteria1:="=02-05-*" _
, Operator:=xlAnd
Range("A38:A48").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
Range("E6").Select
ActiveSheet.Paste
Sheets("Tabelle1").Select
ActiveSheet.Range("$A$1:$A$48").AutoFilter Field:=1
Sheets("Tabelle2").Select
Range("F6").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
ich müsste dieses bis 02-25- wiederholen
meine Frage ist ob man diesen Code etwas vereinfachen kann
vielen dank im vorab