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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen