Pflichtfelder und Textboxen
17.08.2004 20:13:29
Claudia
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