mit select habe ich einen Bereich ausgewählt.
Mit welchem Befehl kann man prüfen, ob der gesamte Bereich leer ist. Formeln usw. können drin sein.
Nochmals vielen Dank!
Franz Kupfer
Sub CheckobEmpty()
Dim Bereich As Range
Set Bereich = Selection
If Not Bereich.Cells.Count = Application.WorksheetFunction.CountBlank(Bereich) Then
MsgBox "Im selektierten Bereich sind nicht alle Zelle leer", vbOKOnly, _
"Check-Ob-Leer"
Else
MsgBox "Im selektierten Bereich sind alle Zelle leer", vbOKOnly, _
"Check-Ob-Leer"
End If
End Sub
Sub aaTest1()
Dim Bereich2 As Range
Set Bereich2 = Selection
If Bereich2.Cells.Count = Application.WorksheetFunction.CountBlank(Bereich2) Then
'Bereich ist leer
GoTo weiter2
Else
'Bereich ist nicht leer
'Code wenn nicht leer
End If
weiter2:
'weitere Anweisungen nachdem gefüllter Bereich bearbeitet wurde
End Sub
Sub aaTest2()
Dim Bereich2 As Range
Set Bereich2 = Selection
If Bereich2.Cells.Count Application.WorksheetFunction.CountBlank(Bereich2) Then
'Bereich ist nicht leer
'Code wenn nicht leer
End If
'weitere Anweisungen nachdem gefüllter Bereich bearbeitet wurde
End Sub
'oder wenn bei leerem Bereich gar nichts mehr gemacht werden soll
Sub aaTest2()
Dim Bereich2 As Range
Set Bereich2 = Selection
If Bereich2.Cells.Count Application.WorksheetFunction.CountBlank(Bereich2) Then Exit Sub
'Bereich ist nicht leer
'Code wenn nicht leer
End Sub