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 Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Pflichtfelder und Textboxen

Betrifft: Pflichtfelder und Textboxen von: Claudia
Geschrieben am: 17.08.2004 20:13:29

Hallo Excelspezialisten,

ich würde gern nach dem Betätigen eines Buttons überprüfen lassen, ob in einige Textboxen Einträge vorgenommen worden sind.
Ich habe diesen Code auf meiner Suche finden können, jedoch nicht vermocht, ihn auf Textboxen umzumodeln:

Private Sub CommandButton1_Click()
Dim c As Range
For Each c In Worksheets("Tabelle").Range("a1, a2, a3")
If c = "" Then
    MsgBox "Es sind nicht alle Pflichtfelder ausgefüllt!"
    Cancel = False
    Exit For
    End If
Next
End Sub


Habt Ihr vielleicht eine Idee?
Toll wäre natürlich auch, wenn ein in der Zelle vor der Textbox stehender Text (z.B. "Name") gleich mit rot markiert werden würde, um auf die Felder hinzuweisen. Ich hoffe, das klingt nicht nach Märchenland.

Freue mich über jede Antwort
Claudia
  


Betrifft: AW: Pflichtfelder und Textboxen von: Bertram
Geschrieben am: 17.08.2004 20:19:01

Hi Claudia,

falls deine Textboxen in einem Userform sind, hoffe ich dass dir dieser Ansatz hilft (Auszug aus meinem Code):

ctrl ist als Control definiert.
mpagWizard ist ein Multipageelement.
Text- und Comboboxen werden geprüft.

For Each ctrl In Me.mpagWizard.Pages(0).Controls
If TypeOf ctrl Is MSForms.TextBox Or TypeOf ctrl Is MSForms.ComboBox _
And ctrl.Enabled = True Then...


Gruß
Bertram


  


Betrifft: Leider keine Userform von: Claudia
Geschrieben am: 17.08.2004 20:28:49

Hallo Bertram,

leider habe ich keine Userform benutzt und daher funktioniert der Code nicht.

Vielen lieben Dank für die Antwort.
Vielleicht weiß ja noch jemand Rat?

Schöne Grüße
Claudia


  


Betrifft: AW: Leider keine Userform von: Bertram
Geschrieben am: 17.08.2004 20:40:41

Hi,

mit den Varianten direkt auf dem Tabellenblatt bin ich nicht so vertraut, aber vielleicht hilft es sich mal die Hilfe zu der Shapes-Auflistung anzusehen.

Gruß
Bertram


  


Betrifft: AW: Pflichtfelder und Textboxen von: MichiM
Geschrieben am: 17.08.2004 21:46:48

Hallo Claudia,

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
'Fehlermeldung für TextBox1
MsgBox "Eingabe in TextBox1 fehlt"
'Fehlerhafte Textbox auswählen (nicht die feine Art - aber eine Lösung)
TextBox1.Select
Exit Sub
Else
If TextBox2 = "" Then
'Fehlermeldung für Textbox2
MsgBox "Eingabe in Textbox2 fehlt"
Exit Sub
Else
MsgBox "Alles OK"
End If
End If
End Sub


Gruss
MichiM