Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1900to1904
1900to1904
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

CheckBox

Forumthread: CheckBox

CheckBox
13.10.2022 10:06:02
Detlef
Hallo,
ich habe in einer Userform mit einigen Checkboxen. Der Zustand (wahr/falsch) wird in ein Tabellenblatt angezeigt und eine Summe gebildet. Die Summe wir auf der Userform in einer Textform angezeigt. Jetzt wird bei Änderung der Checkbox die Summe im Tabellenblatt geändert, aber in der Textform erst verzögert, das heißt bei der nächsten Änderung wir die Anzahl angezeigt.
Ich habe versucht, über UserForm_Initialize eine Aktualisierung zu erreichen, aber ohne Erfolg.
Ich würde mich über eine Antwort sehr freuen. Vielen Dank.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: CheckBox
13.10.2022 10:12:49
Beverly
Hi Detlef,
dann lade doch mal deine Mappe hoch.
Bis später
Karin
AW: CheckBox
13.10.2022 18:15:51
Detlef
Hallo Katrin,
meine VBA-Kenntnisse sind leider so schlecht, dass ich Dir das nicht zumuten kann, meine „Programmierung“ zu prüfen.
Hier ist mein Problem. 

Private Sub CheckBox12_Click()
Dim MyForm As MSForms.TextBox, MyForm1 As MSForms.TextBox, MyForm2 As MSForms.TextBox
Set MyForm = Entfernung.TextBox110
Set MyForm1 = Entfernung.TextBox210
Set MyForm2 = Entfernung.TextBox310
With MyForm
If CheckBox12 = True Then
.ForeColor = RGB(0, 0, 0)         'Farbe Schwarz, Haken gesetzt, hier werden drei Textboxen mit Schriftfarbe Rot versehen.
Else
.ForeColor = RGB(255, 0, 0)       'Farbe Rot, Haken nicht gesetzt
End If
End With
With MyForm1
If CheckBox12 = True Then
.ForeColor = RGB(0, 0, 0)
Else
.ForeColor = RGB(255, 0, 0)
End If
End With
With MyForm2
If CheckBox12 = True Then
.ForeColor = RGB(0, 0, 0)
Else
.ForeColor = RGB(255, 0, 0)
End If
End With
UserForm_Initialize   'Hier sollten alle TextBoxen aktualisiert werden. Passiert aber nichts.
End Sub


Private Sub UserForm_Initialize()
TextBox339 = Sheets(15).Range("AB25")
End Sub
Das mit der farblichen Veränderung funktioniert super. Aber dann wird die Textbox nicht aktualisiert. Der Wert dazu kommt aus einem Tabellenblatt und dort ist der Wert richtig.
Vielleicht kannst Du hier etwas erkennen und mir helfen. Aber trotzdem vielen Dank für Deine Bemühungen.
Detlef.
Anzeige
AW: CheckBox
13.10.2022 19:53:20
Beverly
Hi Detlef,
da du deine Mappe nicht bereitstellen willst kann ich dir nur raten, den Code mal im Einzelschrittnodus durchzulaufen und selbst zu schauen, wo das Problem liegt.
Bis später
Karin
AW: CheckBox
14.10.2022 07:19:06
Detlef
Hallo Katrin,
vielen Dank und ein schönes Wochenende.
Detlef
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige