Hallo zusammen! Eine Frage:
Wie übersetze ich das in VBA:
IF "aktuelles Tabellenblatt total unbeschrieben (leer)" dann....
Mit freundlichsten Grüßen Andreas
If Application.CountA(Tabelle1.[a1:iv65536]) = 0 Then MsgBox "Leer!" End If
mfg Jan
AW: Kontrolle ob Tabellenblatt leer...
16.06.2005 14:13:53
WernerB.
Hallo Andreas,
versuche es mal so:
Dim laR As Long On Error Resume Next laR = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row On Error GoTo 0 If laR = 0 Then MsgBox "Das Tabellenblatt ist leer !" Viel Erfolg wünscht WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !