Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Eingaben überprüfen / zur Eingabe "zwingen"

Betrifft: Eingaben überprüfen / zur Eingabe "zwingen" von: Gerhard
Geschrieben am: 01.05.2008 10:31:20

Moin da draussen

Habe da ein UF mit mehreren Textboxen und einer ComboBox. Je nach Auswahl in der ComboBox sind bestimmte Felder aktiviert und manche deaktiviert.

Gibt es eine Möglichkeit, bei klick auf CommandButton EINTRAGEN, das die aktivierten (.enabled) Textboxen überprüft werden, ob diese ausgefüllt sind bzw. „gezwungen wird, das aktivierte Felder ausgefüllt werden müssen?

Kleines Beispiel:

Auswahl ComboBox: AUSSENMESSSCHRAUBE
Aktiv:
Bezeichnung1
Grösse1
P/M Nummer
P/M Gruppe
Prüfintervall
Prüfdauer

Inaktiv:
Bezeichung2
Grösse2
Toleranz
Oberes Abmass
Unteres Abmass

Auswahl ComboBox: GEWDO
Aktiv:
Bezeichnung1
Grösse1
Grösse2
Toleranz
P/M Nummer
P/M Gruppe
Prüfintervall
Prüfdauer

Inaktiv:
Bezeichung2
Oberes Abmass
Unteres Abmass

Gruß Gerhard

  

Betrifft: AW: Eingaben überprüfen / zur Eingabe "zwingen" von: Uduuh
Geschrieben am: 01.05.2008 10:40:29

Hallo,
etwa so:

dim ctl as control
for each ctl in me.controls
if ctl.Progid="Forms.TextBox.1" and ctl.enabled=true and trim(ctl)="" then
Msgbox "Ausfüllen!"
ctl.setfocus
exit sub
end if
next



Gruß aus’m Pott
Udo



  

Betrifft: AW: Eingaben überprüfen / zur Eingabe "zwingen" von: Gerhard
Geschrieben am: 01.05.2008 10:51:04

Moin Udo

Bekomme folgenden Fehler :

Objekt oder Eigenschaft nicht unterstützt. Diese Zeile ist markiert:
If ctl.progID = "Forms.TextBox.1" And ctl.Enabled = True And Trim(ctl) = "" Then

Kann es sein das hier meine Textboxen TextBox1 , Textbox2 usw. lauten sollten?
Ich habe leider vergessen mitanzugeben in meinem ersten Post. das die namen der Textboxen so lauten wie in dem kleinen Beispiel angegeben, lediglich ein tb_ davor gesetzt ist.

Ich versuch mal das tb_ durch TextBox zu ersetzen... schau mer mal obs was bringt?

LG Gerhard


  

Betrifft: AW: Eingaben überprüfen / zur Eingabe "zwingen" von: Uduuh
Geschrieben am: 01.05.2008 11:11:28

Hallo,
versuchs mal so:

Dim ctl As Object
For Each ctl In Me.Controls
If ctl.Name Like "tb_*" And ctl.Enabled = True And Trim(ctl.Value) = "" Then
MsgBox "Ausfüllen!"
ctl.SetFocus
Exit Sub
End If
Next



Gruß aus’m Pott
Udo



  

Betrifft: AW: Eingaben überprüfen / zur Eingabe "zwingen" von: Gerhard
Geschrieben am: 01.05.2008 11:18:42

thx Udo...

aber das wars auch ned... immer noch gleicher Fehler...
Ich baue am besten mal eine kleine Beispieldatei.

lg


  

Betrifft: AW: Eingaben überprüfen / zur Eingabe "zwingen" von: Gerhard
Geschrieben am: 01.05.2008 11:47:19

Da die Datei schon etwas grösser ist, habe ich es auf meinen Webspace geladen.
Was das seltsame ist, bei meiner kleinen Bsp Datei funzt es, nur hier nicht... Wo habe ich da nen Fehler?

Es geht um folgendes UF: B_1_UF_Artikel_anlegen / cmd_Eintragen_click()

http://www.topdog24-7.de/excel/beispiel0001.xls


LG Gerhard und schon mal Danke für die Mühen!!!!


  

Betrifft: AW: Eingaben überprüfen / zur Eingabe "zwingen" von: Uduuh
Geschrieben am: 01.05.2008 11:54:29

Hallo,

Private Sub cmb_Eintragen_Click()
'If cboLieferant = "" Then MsgBox "Lieferant muss ausgefüllt werden!", vbCritical: Exit Sub
Dim ctl As Object
For Each ctl In Me.Controls
  If ctl.Name Like "tb_*" Then
    If ctl.Enabled = True And Trim(ctl.Value) = "" Then
    MsgBox "Ausfüllen!"
    ctl.SetFocus
    Exit Sub
    End If
  End If
Next

End Sub




Gruß aus’m Pott
Udo



  

Betrifft: AW: Eingaben überprüfen / zur Eingabe "zwingenTHx! von: Gerhard
Geschrieben am: 01.05.2008 12:02:50

Danke
Kleine Sache grosse Auswirkung... ich wäre da nicht draufgekommen, deshalb nochmals Danke für deine Bemühungen...


Greetz Gerhard und nen schönen "Rest Vatertag" noch


 

Beiträge aus den Excel-Beispielen zum Thema "Eingaben überprüfen / zur Eingabe "zwingen&qu"