wie kann ich das Auführen eines Makros verhindern wenn in Spalte A nichts steht.
Mit Columns("A:A").Value = "": Exit Sub
funktioniert es nicht
Hat jemand eine Tipp was ich falsch mache?
MfG René
Sub Schaltfläche7_Klicken()
ActiveSheet.Unprotect
If Cells(loI, 1) = "" Then Exit Sub
Selection.AutoFilter
Columns("E:E").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 1
Columns("A:A").Select
Selection.ClearContents
ActiveWindow.ScrollColumn = 1
Range("C3").Select
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("C16").Select
Selection.ClearContents
Range("C3").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("C16").Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub