Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1388to1392
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
Inhaltsverzeichnis

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

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

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

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige