Option
Explicit
Public
Sub
belegte_Zellen()
Dim
raZelle
As
Range, strBelegt
As
String
With
Worksheets(
"Tabelle2"
)
For
Each
raZelle
In
.Range(
"A1:A10"
)
If
raZelle.Value <>
""
Then
If
strBelegt =
""
Then
strBelegt = strBelegt &
"Zelle "
& raZelle.Address(0, 0)
Else
strBelegt = strBelegt & vbLf &
"Zelle "
& raZelle.Address(0, 0)
End
If
End
If
Next
raZelle
End
With
If
strBelegt =
""
Then
MsgBox
"Alle Zellen im Bereich sind leer."
Else
strBelegt =
"Werte sind in folgenden Zellen:"
_
& vbLf & vbLf & strBelegt
MsgBox strBelegt
End
If
End
Sub