Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

UserForm - Eingabe prüfen | Herbers Excel-Forum


Betrifft: UserForm - Eingabe prüfen von: Patrick
Geschrieben am: 11.01.2010 12:47:07

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

  

Betrifft: AW: UserForm - Eingabe prüfen von: welga
Geschrieben am: 11.01.2010 12:51:27

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


  

Betrifft: AW: UserForm - Eingabe prüfen von: Patrick
Geschrieben am: 11.01.2010 12:57:45

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.


  

Betrifft: AW: UserForm - Eingabe prüfen von: welga
Geschrieben am: 11.01.2010 13:03:32

Hallo,

versuch mal:

Private Sub Worksheet_Change(ByVal target As Range)

Gruß
welga


  

Betrifft: Bitte schön von: welga
Geschrieben am: 11.01.2010 13:08:17

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



  

Betrifft: AW: Bitte schön von: welga
Geschrieben am: 11.01.2010 13:11:54

Sorry, vergiss es,

Denkfehler von mir!!!


  

Betrifft: AW: UserForm - Eingabe prüfen von: Hajo_Zi
Geschrieben am: 11.01.2010 13:50:48

Hallo Patrick,

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

GrußformelHomepage


Beiträge aus den Excel-Beispielen zum Thema "UserForm - Eingabe prüfen"