Gültigskeitsprüfung mit leerer Zelle
14.09.2008 20:56:00
Franz
Habe 9 Spalten mit Dropdowns gefüllt. Wie bekomme ich den nachfolgenden Code (Quelle: Archiv) eleganter hin, dh. ohne for next Schleife und dadurch schneller. Der Datenbereich heistt "Printarea".
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 1 To 9
If Target.Column = i Then
If IsEmpty(Target) Then
MsgBox "Bitte einen Wert aus der Listbox auswählen!"
Application.Undo
End If
'optional
End If
Next
Die Zellen dürfen nie leer stehen. Scheint ein kleines Manko zu sein bei der "starken" Gü _
ltigskeitsprüfung.
End Sub
Tschüss!
Franz D.