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
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 19:53:05
Fritz
Vielen Dank für deine Hilfe.
Fritz
Bereich.Count - CountA(Bereich) >0
06.05.2013 20:48:23
Matthias
Hallo
If Range("A1:B5").Count - Application.WorksheetFunction.CountA(Range("A1:B5")) > 0 Then