Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Eingabe erzwingen die 2`te

Forumthread: Eingabe erzwingen die 2`te

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe erzwingen die 2`te
Nike
Hi,
kannst du das nicht uber Daten/Gueltigkeit einrichten?
Bye
Nike
AW: Eingabe erzwingen die 2`te
04.10.2004 13:50:46
yogi
Tristan
kopier den Code von Module muss_prüfen an die Stelle von "Call muss_prüfen" in "DieseArbeitsmappe". Dort sollte dann folgendes stehen:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim nn As Object
For Each nn In ActiveWorkbook.Names
If InStr(1, nn.Name, "muss_", vbTextCompare) > 0 Then
If Range(nn) = "" Then
' Feldname extrahieren
feld_name = Mid(nn.Name, Len("muss_") + 1)
answ = MsgBox("Bitte Werte in """ & feld_name & """ eingeben!", vbOKOnly, "Mussfeld")
End If
End If
Next
End Sub

Das Module muss_prüfen kannst Du dann entfernen!
Die Muss-felder müssen mit diesem Code immer einen Namen der Form "muss_xxx" haben, mit xxx=vernünftiger Name.
Gruss
yogi

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige