Hallo guten Tag, hätte widermal eine Bitte. Wenn ich dieses Makro ein 2tes mal ausführen möchte (aus versehen) soll nichts ausgeführt werden da sonst eine Fehlermeldung kommt. Danke
Private Sub CommandButton1_Click()
Range("G1").Select
ActiveCell.FormulaR1C1 = "WENN(C4="""";""0"";""x"")"
Range("D4").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",""0"",""x"")"
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D466"), Type:=xlFillDefault
Range("D4:D466").Select
Selection.AutoFilter
ActiveSheet.Range("$D$4:$D$466").AutoFilter Field:=1, Criteria1:="0"
Rows("5:465").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$D$4:$D$235").AutoFilter Field:=1
Range("C4:D4").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C4:C235").Select
Selection.Copy
Range("E3").Select
ActiveSheet.Paste
Range("E3").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("D4").Select
Selection.End(xlDown).Select
Rows("235:235").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-210
Range("E4").Select
'Selection.AutoFilter
Selection.AutoFilter
Range("F3").Select
Selection.AutoFill Destination:=Range("F3:F234")
Range("F3:F234").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveSheet.Range("$F$3:$F$234").AutoFilter Field:=1, Criteria1:="WAHR"
Rows("5:5").Select
Rows("5:233").Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$F$3:$F$119").AutoFilter Field:=1
Range("E4").Select
Range("F3:G3").Select
Selection.AutoFilter
Selection.AutoFilter
Range("G3").Select
Selection.AutoFill Destination:=Range("G3:G119")
Range("G3:G119").Select
Range("A1").Select
End Sub
Meine Fehlermeldung