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

Forumthread: In Makierten Bereich nach leeren Zellen suchen

In Makierten Bereich nach leeren Zellen suchen
11.11.2014 11:21:48
Christoph
Hallo,
ich habe schon gesucht, doch leider nichts passenden gefunden.
zu meinem Makro:

Sub Test()
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 24).Select
Range(Selection, Selection.End(xlUp)).Select
'ab hier mein Problem: Wenn in diesem Bereich eine leere Zelle vorhanden ist, soll der Makro  _
beendet werden
If eine leere zelle in diesem Bereich Then
msbBox("Abbruch !, leere Zellen")
End if
Call xy
End 

Sub
Wäre super wenn mir hier jemand helfen kann.
MFG
Christoph

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: In Makierten Bereich nach leeren Zellen suchen
11.11.2014 11:27:31
Hajo_Zi
Hallo Christoph,
If WorksheetFunction.CountIf(Range(Selection, Selection.End(xlUp)), "") = 0 Then

AW: In Makierten Bereich nach leeren Zellen suchen
11.11.2014 11:30:17
yummi
Hallo Christoph,

Dim rng As Range
Dim c As Range
Set c = Range(Selection, Selection.End(xlUp)).find(What:="", LookIn:=xlValues)
If Not c Is Nothing Then
...dein code
Else
MsgBox "Leere Zelle gefunden"
End If
Gruß
yummi

Anzeige
AW: In Makierten Bereich nach leeren Zellen suchen
11.11.2014 12:14:16
Christoph
Hallo,
erstmal Vielen Dank für die Antwort. Ich habe den so umgesetzt.
Problem: Egal ob etwas in den Zellen steht oder nicht.
Der makro tut immmer (!) so, als ob etwas drin steht.
Woran kann das liegen .... ?
Danke schonmal :)
Sub Test()
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 24).Select
Dim rng As Range
Dim c As Range
Set c = Range(Selection, Selection.End(xlUp)).Find(What:="", LookIn:=xlValues)
If c Is Nothing Then
MsgBox ("Alles vorhanden")
Else
MsgBox ("Leerse Zellen gefunden")
Exit Sub
End If
Call xy
End Sub

Anzeige
mach so wie Hajo
11.11.2014 12:55:47
yummi
Hallo Christoph,
sry hatte was verdreht, mach so wie Hajo vorgeschlagen hat:

Sub Test()
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 24).Select
Dim rng As Range
Dim c As Range
Range(Selection, Selection.End(xlUp)).Select
If WorksheetFunction.CountIf(Range(Selection, Selection.End(xlUp)), "") = 0 Then
MsgBox ("Alles vorhanden")
Else
MsgBox ("Leerse Zellen gefunden")
Exit Sub
End If
MsgBox "ende"
End Sub
Gruß
yummi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige