MsgBox wenn Zelle leer
29.11.2006 23:13:10
Uwe
hab in der Recherche folgenden Code gefunden und ein bissel probiert.....
Private Sub CommandButton37_Click() If Range("I10") = "" Then MsgBox "I10 leer" Else 'MsgBox "Beitrag:" & Range("I10") End If If Range("I11") = "" Then MsgBox "I11 leer" Else 'MsgBox "Beitrag:" & Range("I11") End If End Sub
... wie muß der Code aussehen wenn ich eine Menge mehr Zellen prüfen möchte, und die mir dann alle in einer MsgBox angezeigt werden.
So wie ich es abgeändert habe wird ja immer eine nach der anderen angezeigt.
Vorab schon mal Danke!!!
Gruß Uwe