Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA: Wenn Bereich leer, dann nichts, sonst msgbox

VBA: Wenn Bereich leer, dann nichts, sonst msgbox
25.01.2005 13:12:57
Nico
Moin
Ich möchte den Bereich a1:c10 auf dem sheet infos nach eingaben durchsuchen.
wenn eine eingabe gefunden wird, soll eine msgbox erscheinen. wenn nicht, dann soll nichts passieren.
bei meinem versuch mit If Range("Infos!A1:C10").Value "" Then bekomme ich jedesmal den laufzeitfehler 13. ?¿
kann mir jemand helfen?
danke und gruß
Nico

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Wenn Bereich leer, dann nichts, sonst msgbox
Galenzo
wenn's Zahlen sind, kannst du doch die Summe abfragen..
bzw. bei Text die ANZAHL2
AW: VBA: Wenn Bereich leer, dann nichts, sonst msgbox
harry
hi,
so gehts:
For Each acell In Range("Infos!A1:C10")
If IsEmpty(acell) = True Then
a = a + 1
End If
Next
If a = Range("Infos!A1:C10").Cells.Count Then
MsgBox "Leer"
End If
liebe grüße,
harry
AW: VBA: Wenn Bereich leer, dann nichts, sonst msg
25.01.2005 13:33:06
Nico
Hi Harry
Sauber :D
Habs etwas umgebaut und funzt bestens.
Danke
Nico
AW: VBA: Wenn Bereich leer, dann nichts, sonst msg
25.01.2005 13:44:47
Ralf
Hallo Nico,
z. B. so:

Sub teste_mal()
MsgBox WorksheetFunction.CountA([A1:C10]) = 0
End Sub

Wenn der Bereich leer ist wird in der MsgBox "Wahr" ausgegeben, sonst "Falsch".
Gruß
Ralf
Anzeige

137 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige