bestimmte Werte zulassen
07.07.2007 11:52:39
Klaus-Dieter
habe folgendes Problem. Ich möchte in einem bestimmten Abschnitt einer Tabelle nur die Zahlen 1, 2 oder 3 zulassen. Nun habe ich im Forum bereits etwas ähnliches gefunden. Leider funktioniert dies nur mit
einer bestimmten Zelle.
Anbei das Beispiel das ich gefunden habe:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Zahl
Dim Zelle as String
Zelle = "A1"
If Range(Zelle) = "" Then
Exit Sub
End If
Zahl = Left(Range(Zelle), 1)
Select Case Zahl
Case 1, 2, 3
Exit Sub
Case Else
MsgBox "Nur 1 , 2 oder 3 als Eingabe zulässig !"
Range(Zelle).Value = ""
Range(Zelle).Activate
End Select
End Sub
In diesem Beispiel wird "A1" getestet. Was muss ich verändern um mehrere Zellen zu testen?
vorab herzlichen Dank.
Klaus-Dieter