Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

In Makierten Bereich nach leeren Zellen suchen

Betrifft: In Makierten Bereich nach leeren Zellen suchen von: Christoph Reimann
Geschrieben am: 11.11.2014 11:21:48

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


  

Betrifft: AW: In Makierten Bereich nach leeren Zellen suchen von: Hajo_Zi
Geschrieben am: 11.11.2014 11:27:31

Hallo Christoph,

If WorksheetFunction.CountIf(Range(Selection, Selection.End(xlUp)), "") = 0 Then

GrußformelHomepage


  

Betrifft: AW: In Makierten Bereich nach leeren Zellen suchen von: yummi
Geschrieben am: 11.11.2014 11:30:17

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


  

Betrifft: AW: In Makierten Bereich nach leeren Zellen suchen von: Christoph
Geschrieben am: 11.11.2014 12:14:16

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



  

Betrifft: mach so wie Hajo von: yummi
Geschrieben am: 11.11.2014 12:55:47

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


 

Beiträge aus den Excel-Beispielen zum Thema "In Makierten Bereich nach leeren Zellen suchen"