MsgBox wenn Arbeitsblatt leer
13.10.2005 14:14:59
Rainer52
ich habe ein hoffentlich kleines Problem:
in einem Workbook mit 23 Tabellenblättern möchte ich überprüfen, ob ein anderes Tabellenblatt leer ist. Wenn ja, dann soll eine Meldung erfolgen und das ursprüngliche Tabellenblatt soll weiterhin aktiviert bleiben, wenn nein, dann soll das neue Tabellenblatt aktiviert werden.
Folgenden Code habe ich eingegeben, aber es funktioniert nicht:
Sub CommandButton6_Click()
If IsEmpty("Spiel5") = True Then
msgbox "Es liegen keine Informationen vor!"
Else
Worksheets("Spiel5").Activate
End If
End Sub
Ich hoffe mir kann jemand helfen.
Gruß
Rainer
Anzeige