MsgBox mit Zellenbezug
17.07.2007 09:58:39
Salim
Hallo Zusammen,
habe hier ein Makro, der mir sagt, ob gewisse Zellen ausgefüllt sind oder nicht. Im zweiten Fall, hätte ich gerne eine Messagebox die auch den Zellenbezug der leeren Zelle wiedergibt. Beispielsweise: In Zelle F3 fehlt die Eingabe. Falls mehrere Zellen leer sind, werden die Zellenbezüge in der Messagebox gemäss der Prüfreihenfolge wiedergegeben. Hätte jemand eine Idee? Vielen Dank im Voraus!!!
Sub Check()
Dim rng As Range
Set rng = Range("F3,F4,K3,K4,J6,J10,N6,N7,N9,N10,N11,N12,N13")
If IsEmpty(rng(Zeile, Spalte)) Then
MsgBox "In Zelle " & Spalte & Zeile & " fehlt die Eingabe!"
End Sub
Anzeige