Schleife prüfen ob Zellbereich leer
29.02.2016 10:44:08
Volker
ich versuche folgendes:
In einer Arbeitsmappe soll der Zellbereich A1:C1 auf Einträge geprüft werden. Wenn dort irgendetwas steht, Abbruch, nächste Seite.
Wenn dort kein Eintrag ist, soll die Zeile gelöscht werden. (Zellen löschen, Zeile 2 wird Zeile 1)Wenn ich den unten Stehenden code einzeln als sub laufen lasse, funktioniert er für das aktive Tabellenblatt wunschgemäß. Als Schleife (für über 300 Blätter) allerdings nicht. Kann mir jemand sagen was ich ändern muss?
Hier der Code:
Private Sub CommandButton1_Click()
Dim blatt As Worksheet
For Each blatt In ActiveWorkbook.Worksheets
Dim rngBereich As Range
Set rngBereich = Range("A1:C1")
With rngBereich
If Application.WorksheetFunction.CountA(.Cells) "" Then
Exit Sub
Else
Rows("1:1").Select
Selection.Delete Shift:=xlUp
End If
End With
Next blatt
End Sub
Volker