ich habe mit dem Macrorecorder folgende Aktion aufgenommen.
Frage wie kann ich den Code vereinfachen und
was muss ich in den Code einbauen falls in aktuelle KW zB:Criteria1 "112"
nicht vorhanden ist ,weil keine Werte fuer dieser Woche vorhanden ?
Kann der Code ohne Fehler weiterarbeiten ?
-
marc
-
Option Explicit
Sub Makro1()
Selection.AutoFilter Field:=3, Criteria1:="112"
Range("J1").Select
Selection.Copy
Sheets("Dia.Gesamt").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Daten").Select
Selection.AutoFilter Field:=3, Criteria1:="117"
Range("J1").Select
Selection.Copy
Sheets("Dia.Gesamt").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Daten").Select
Selection.AutoFilter Field:=3, Criteria1:="123"
Range("J1").Select
Selection.Copy
Sheets("Dia.Gesamt").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Daten").Select
Selection.AutoFilter Field:=3, Criteria1:="137"
Range("J1").Select
Selection.Copy
Sheets("Dia.Gesamt").Select
Range("B5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Daten").Select
Selection.AutoFilter Field:=3, Criteria1:="240"
Range("J1").Select
Selection.Copy
Sheets("Dia.Gesamt").Select
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Daten").Select
End Sub