Eingabe erzwingen
19.08.2004 15:49:25
Seb
ich möchte in einem Tabellenblatt in bestimmten Feldern (wenns einfacher ist Spalte genügt)eine Eingabe erzwingen.Habe Makro gefunden das nur beim ganzen Blatt Eingaben erzwingt. Wie kann ich es ändern?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Value = "" Then
Do
wert = InputBox("Dies ist ein ´´Mussfeld´´, Sie müssen zwingend einen Wert eingeben", "Mussfeldeingabe")
Loop Until (wert <> "")
ActiveCell.Value = wert
End If
End Sub
Anzeige