Zell-Überprüfung
28.10.2003 16:17:57
Bjoern
wie drück ich folgendes in vba aus?
wenn JEDE zelle in Range(A2:A12) UND Range(C10:C16) = empty dann...
folgendes geht nicht:
Private Sub Worksheet_Activate()
If (IsEmpty(Range("A2:A12"))) And (IsEmpty(Range("C10:C16"))) Then
Worksheets("Tabelle1").Cells(1, 1) = "ist leer"
Else: Worksheets("Tabelle1").Cells(1, 1) = "ist nicht leer"
End If
End Sub
Wieso nicht?
Danke für die Hilfe...
Gruß,
Björn