CountA
18.09.2007 18:21:16
Roger
ich habe eine kleine frage zu folgendem Makro.
Sub T()
Set Bereich = Tabelle1.Range("A9:C1011")
If WorksheetFunction.CountA(Bereich.Columns("B:C")) = 0 Then
MsgBox ("leer")
Exit Sub
End If
If WorksheetFunction.CountA(Bereich.Columns("B:C")) > 0 Then
MsgBox ("voll")
End If
End Sub
Dieses Makro gibt über die Msgbox "voll" aus, wenn eine Zelle in in der Spalte B oder C beschrieben ist.
Ich möchte aber, dass nur "voll" angezeigt wird wenn eine Zeile auf gleicher höhe in der Spalte B und C befüllt ist.
Geht das überhaupt?
Wäre schön wenn mir jemand helfen könnte.
Gruss und besten Dank im voraus.
Roger