Herbers Excel-Forum - das Archiv

Brauche mal eure Hilfe: "Zelleninhalte überprüfen"

Bild

Betrifft: Brauche mal eure Hilfe: "Zelleninhalte überprüfen"
von: Hubert
Geschrieben am: 04.11.2003 10:28:10
Hallo,

mag lachhaft klingen, aber wie kann ich am effektivsten überprüfen, ob (wie unten aufgelistet) die Zellen leer sind oder nicht:

Diese Zellen sollen "geprüft" werden:
F6,F7,E10 bis E12,E14,E24,E26,E16 bis E18,E20 bis E22,E28 bis E37 und
letztendlich A69 bis :K100.

Bei einzelnen Zellen haut das hin (if isempty([F6]) then ....

Geht das auch mit z.B. if isempy([E16:E18]) then ... ???

Schon mal Danke !!!
Hubert

Bild

Betrifft: AW: Brauche mal eure Hilfe: "Zelleninhalte überprüfen"
von: worti
Geschrieben am: 04.11.2003 10:40:17
Hallo Hubert,
versuch's mal so oder so ähnlich:


Sub Anzahlen()
Dim c As Range
Dim intI As Integer
'Prüfen, ob alle Zellen eines selektierten Bereichs leer sind
intI = 0
For Each c In Selection
intI = intI + 1
Next
If Application.WorksheetFunction.CountBlank(Selection) = intI Then
MsgBox "alles Blank"
Else
MsgBox "Nicht alles Blank"
End If
End Sub



Worti
Bild

Betrifft: AW: Brauche mal eure Hilfe: "Zelleninhalte überprüfen"
von: Hubert
Geschrieben am: 04.11.2003 11:02:48
Hallo worti,

Danke !! So funktioniert's !!!

(Als Anfänger in Sachen Excel-VBA hat man' schon schwer....:-))

Hubert
Bild