Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
948to952
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
948to952
948to952
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eingabe erzwingen

Eingabe erzwingen
02.02.2008 22:25:50
Florian
Hi,
hätte eine kleine Frage: ich will eine Eingabe erzwingen, dh. der Anwender soll das File nicht schließen können, ohne dass er sich für eine bestimmte Zelleingabe (J/N) entschieden hat, und die Zelle darf auch nicht leer bleiben. Mach das mit dem Before-Close Event, aber was muss ich machen, damit der User die Eingabe machen muss? Die Eingabe selbst muss zwingend in eine Zelle sein, dh. keine Userform, option field etc.
Besten Dank!

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

Betreff
Datum
Anwender
Anzeige
AW: Eingabe erzwingen
02.02.2008 22:33:32
Peter
Hallo Florian,
unter DieseArbeitsmappe könnte das nachfolgende Makro (angepasst natürlich) helfen:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Worksheets("Tabelle1").Range("B2").Value = "J" Or _
Worksheets("Tabelle1").Range("B2").Value = "N" Then
Else
Cancel = True
MsgBox "Sie haben in die verabredete Zelle nichts eingegeben!", _
48, "   Hinweis für " & Application.UserName
End If
End Sub


Gruß Peter

Danke!! oT
02.02.2008 22:41:00
Florian
..
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige