Wenn Abfrage

Forumthread: Wenn Abfrage

Wenn Abfrage

06.05.2013 21:43:13

Fritz

Hallo und schon jetzt ein Dankeschön für eure Hilfe.
Ich such ein Makro über einen bestimmten Bereich.
z.B.:
Wenn in Range("A1:B5")eine leere Zelle ist, dann ........
Liebe Grüße
Fritz

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn Abfrage

06.05.2013 21:46:47

Hajo_Zi
AW: Wenn Abfrage

06.05.2013 21:53:05

Fritz
Bereich.Count - CountA(Bereich) >0

06.05.2013 22:48:23

Matthias

AW: Wenn Abfrage

06.05.2013 21:46:47

Hajo_Zi

Hallo Fritz,

Option Explicit
Sub naechste_leere_Zelle()
Dim RaFound As Range
' Spalte A
Set RaFound = Range("A1:A" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
End If
Set RaFound = Nothing
End Sub

AW: Wenn Abfrage

06.05.2013 21:53:05

Fritz

Vielen Dank für deine Hilfe.
Fritz

Bereich.Count - CountA(Bereich) >0

06.05.2013 22:48:23

Matthias

Hallo

If Range("A1:B5").Count - Application.WorksheetFunction.CountA(Range("A1:B5")) > 0 Then

Gruß Matthias

Forumthread: Wenn Abfrage

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread