UF Befüllung TextBoxes und Comboboxes rückgängig

Hallo ihr Excelspezialisten,
ich habe mit Hilfe eurer Kollegen eine UF erstellt, in welchen der Reihe nach Combobox, 6 Textboxes nochmals eine Combobox gefüllt werden.
Es sind jeweils Textbox_change und Textbox_Exit Ereignisse vorhanden.
Ich füge exemplarisch für TB1 diese hier ein:

Private Sub TextBox1_Change()
If TextBox1.Tag = "1" = True Then Exit Sub
If Len(TextBox1) = 2 Then
If InStr(TextBox1, ".") = 0 Then TextBox1 = TextBox1 & "."
ElseIf Len(TextBox1) = 5 Then
If Len(TextBox1) - Len(Application.Substitute(TextBox1, ".", ""))

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 > "" Then
TextBox1 = CDate(TextBox1)
TextBox1.BackColor = vbGreen
Else
MsgBox "Bitte einen korrekten Datumswert eingeben! Format: dd.mm.yyyy"
With TextBox1
.SelStart = 0
.SelLength = Len(.Text)
End With
Cancel = True
End If
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = "" Then
MsgBox "Datum eingeben!!!"
Cancel = True
End If
If TextBox2 = "" And Label5 = "" Then
TextBox3.SetFocus
TextBox2.BackColor = vbGreen
ElseIf TextBox2 = "" And Label5 > "" Then
TextBox2.SetFocus
Else
Cancel = True
End If
End Sub

Das Ausfüllen des Formulars funktioniert einwandfrei.
Jetzt möchte ich aber einen Commandbutton, der die Eingaben rückgängig macht, einfügen.
Wenn ich jedoch hier einfüge - z. B. Textbox1 = "", dann tritt das Change-Ereignis ein und die Msgbox wird geöffnet - bitte Datum einfügen. Dies dann in Folge für alle Textboxes und Comboboxes. Wie kann ich dies verhindern. Gibt es hierfür eine Lösung?
Besten Dank für eure Hilfe.
Gruss
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
ich habe mir die Beiträge schon öfter angesehen und auch selbst erlebt.
In vielen Fällen hat er zwar Recht aber es wäre toll, wenn er einem weiter helfen würde, wenn man selbst als Laie schlicht weg nicht weiter weiss.
Insgesamt gesehen ist aber die Hilfe hier im Forum super.
Ich arbeite an einem Buchungsprogramm bei welchem mehrere Textboxes durch manuelle Eingabe ausgefüllt werden und vier durch zwei Comboboxes.
Wenn nun eine leer ist soll Hinweis erfolgen - andererseits soll eine ausgefüllte Textbox nach der Prüfung ob alle ausgefüllt sind berichtigt werden können. Die Dritte Möglichkeit soll sein, dass die beiden Comboboxen und Textboxen geleert werden und neu gefüllt werden sollen.
An dieser Steuerung arbeite ich schon seit Tagen.
Kennst Du diesbezüglich eine Datei im Archiv ect. die das kann?
Besten Dank und noch einen schönen Tag.
Gruss
Peter

Private Sub TextBox1_Change() If Me.Tag = "Reset" Then Exit Sub If TextBox1.Tag = "1" = True Then Exit Sub If Len(TextBox1) = 2 Then If InStr(TextBox1, ".") = 0 Then TextBox1 = TextBox1 & "." ElseIf Len(TextBox1) = 5 Then If Len(TextBox1) - Len(Application.Substitute(TextBox1, ".", ""))

Option Explicit Private bolReset As Boolean Private Sub prcReset() 'zurücksetzen der Werte von Steuerelementen bolReset = True Me.TextBox1 = "" 'usw. bolReset = False End Sub Private Sub CommandButton1_Click() Call prcReset End Sub Private Sub TextBox1_Change() If bolReset = True Then Exit Sub If TextBox1.Tag = "1" = True Then Exit Sub If Len(TextBox1) = 2 Then If InStr(TextBox1, ".") = 0 Then TextBox1 = TextBox1 & "." ElseIf Len(TextBox1) = 5 Then If Len(TextBox1) - Len(Application.Substitute(TextBox1, ".", ""))

Beliebteste Forumthreads (12 Monate)

UF Befüllung TextBoxes und Comboboxes rückgängig

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UF Befüllung TextBoxes und Comboboxes rückgängig

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread