Nur Zahlen zulassen / Einfügen in Zelle verbieten
30.06.2008 08:25:00
Borimir
ich möchte, dass man in 2 Spalten (5 und 6) nichts außer Zahlen eingeben und auch nichts einfügen kann. Gibt es da etwas was ich in folgenden Quelltext einbauen kann?
Vielen Dank im Voraus!
Borimir
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Select Case Target.Column
Case 5
Cells(Target.Row, Target.Column + 1) = Target / [B2]
Case 6
Cells(Target.Row, Target.Column - 1) = Target * [B2]
Case Else
End Select
Application.EnableEvents = True
End Sub