Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Zellen auf leer früfen

Forumthread: Zellen auf leer früfen

Zellen auf leer früfen
12.08.2025 06:09:25
NicoHendrik
Guten Morgen,

Ich mache eine Selection in eine Tabelle und möchte die 2 angeklickte Zellen auf leer prüfen.

In diesen Code wird bei eine Selection nur die zweite (letzte) Zelle auf leer geprüft.

Es soll aber auch die erste Zelle bei der Selection auf leer geprüft werden.

Kann mir jemand helfen?

Gruß Nico


'Abfrage ob Zellen leer sind

If ActiveCell = "" Then
MsgBox "Der Bereich den du ausgewaehlt hast, hat keinen Inhalt!", vbCritical
Else

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen auf leer früfen
12.08.2025 09:09:27
NicoHendrik
Gruß an alle,

hat sich erledigt
AW: Zellen auf leer früfen
12.08.2025 11:34:36
daniel
Falls es noch jemanden interessiert:
so kann man prüfen, ob alle angeklickten Zellen leer sind

If Worksheetfunction.CountA(Selection) = 0 Then


Gruß Daniel
AW: Zellen auf leer früfen
12.08.2025 15:13:42
GerdL
Moin,

beachte bitte, dass Worksheetfunction.CountA Fehlerwerte u. Leerstrings ( "" aus Formeln) als Wert zählt.

Gruß Gerd
Anzeige
AW: Zellen auf leer früfen
12.08.2025 15:19:08
daniel
Zellen mit Formeln sind nicht leer.
Egal was diese ausgeben.
Wie würdest du die Prüfung durchführen, wenn auch Formeln, die "" ausgeben, mit zu den leeren Zellen gezählt werden sollen?
Gruß Daniel
AW: Zellen auf leer früfen
12.08.2025 16:07:47
NicoHendrik
Hallo Daniel, die Zellen haben keine Formel drin. Sie werden mit Selection = ... gefüllt. Das klappt jetzt prima.

Gruß Nico
Anzeige
AW: Zellen auf leer früfen
12.08.2025 13:47:13
NicoHendrik
Danke Daniel, das interessiert mich schon.

Gruß Nico
AW: Zellen auf leer früfen
12.08.2025 13:59:44
daniel
und mit

If Worksheetfunction.CountBlank(Selection) = 0 Then

könnte man prüfen, ob alle Zellen befüllt sind.

das geht natürlich auch mit:

If Worksheetfunction.CountA(Selection) = Selection.Cells.Count Then

aber das hat eine Berechnung mehr.

Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige