Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Eingabe erzwingen

Betrifft: Eingabe erzwingen von: Seb
Geschrieben am: 19.08.2004 15:49:25

Hallo,
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

  


Betrifft: AW: Eingabe erzwingen von: harry
Geschrieben am: 19.08.2004 16:12:10

hi,
so beschränkst du das ganze auf die erste zelle (=A1)

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveSheet.Cells(1, 1).Value = "" Then
Do
wert = InputBox("Dies ist ein ´´Mussfeld´´, Sie müssen zwingend einen Wert eingeben", "Mussfeldeingabe")
Loop Until (wert <> "")
ActiveSheet.Cells(1, 1).Value = wert
End If
End Sub


liebe grüße,
harry


 

Beiträge aus den Excel-Beispielen zum Thema "Eingabe erzwingen"