UserForm - Eingabe prüfen | Herbers Excel-Forum

Forumthread: UserForm - Eingabe prüfen

UserForm - Eingabe prüfen

11.01.2010 12:47:07

Patrick

Hallo,
Mein Problem:
ich habe eine UserForm mit vielen Input Feldern und bei fast jedem Feld ist daneben noch eine Combobox zur Auswahl einer Einheit, z.B. "°C".
Für jedes Feld besteht eine begrenzte Eingabemöglichkeit. Z.B. Temperatur nur von 0 - 50 °C. Dies soll während der Eingabe in das jeweilige Input Feld überprüft werden.
Es gibt die Möglichkeit jetzt für jedes Inputfeld ein Makro zu schreiben. Allerdings würde dies sehr unübersichtlich und zeitintensiv werden.
Gibt es die Möglichkeit abzufragen ob, egal in welchem Feld, eine Eingabe gemacht wurde?
sowas wie: "Private Sub UserForm_something_changed(Feldname as string)" ??
Gruß
Patrick

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: UserForm - Eingabe prüfen

11.01.2010 12:51:27

welga
AW: UserForm - Eingabe prüfen

11.01.2010 12:57:45

Patrick
AW: UserForm - Eingabe prüfen

11.01.2010 13:03:32

welga
Bitte schön

11.01.2010 13:08:17

welga
AW: Bitte schön

11.01.2010 13:11:54

welga
AW: UserForm - Eingabe prüfen

11.01.2010 13:50:48

Hajo_Zi

AW: UserForm - Eingabe prüfen

11.01.2010 12:51:27

welga

Hallo,
sollte doch theoretisch funktionieren:
a=false
for i=1 to userform.textbox.count
if userform.textboxt.value="" then a=true
next i
if a=true then MsgBox "Nicht alles ausgefüllt"
Gruß
welga

AW: UserForm - Eingabe prüfen

11.01.2010 12:57:45

Patrick

Danke schonmal für die schnelle Antwort.
Habe wohl meine Frage nicht gut genug gestellt.
Was im Makro selbst passiert ist erstmal egal.
Wichtig ist nur wie es ausgelöst wird.
Der Code soll ausgeführt werden wenn jemand in ein Feld etwas eingibt.
Normalerweise prüft man sowas ja mit "Private Sub Feld_change()".
Jetzt bräuchte ich aber ein Programm, das ausgeführt wird egal in welchem Feld gerade etwas eingegeben wird.

AW: UserForm - Eingabe prüfen

11.01.2010 13:03:32

welga

Hallo,
versuch mal:
Private Sub Worksheet_Change(ByVal target As Range)
Gruß
welga

Bitte schön

11.01.2010 13:08:17

welga


Private Sub Worksheet_Change(ByVal Target As Range)
Dim RefRange As Range, A&
If Not Intersect(UsedRange, Target) Is Nothing Then
'Application.ScreenUpdating = False
'Application.EnableEvents = False
MsgBox "Dein Makro"
'Application.EnableEvents = True
'Application.ScreenUpdating = True
End If
End Sub

AW: Bitte schön

11.01.2010 13:11:54

welga

Sorry, vergiss es,
Denkfehler von mir!!!

AW: UserForm - Eingabe prüfen

11.01.2010 13:50:48

Hajo_Zi

Hallo Patrick,
ja Klassenprogrammierung.
http://hajo-excel.de/chCounter3/getfile.php?id=112

Beliebteste Forumthreads (12 Monate)

UserForm - Eingabe prüfen | Herbers Excel-Forum

Forumthread: UserForm - Eingabe prüfen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread