Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eingabe erzwingen

Eingabe erzwingen
19.08.2004 15:49:25
Seb
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe erzwingen
harry
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige