Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-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

Is klar: Hier die Beispieldatei

Betrifft: Is klar: Hier die Beispieldatei von: ralph
Geschrieben am: 13.09.2004 23:05:33

Tachchen,

hab schon erwartet, daß ein Muster verlangt wird ;-)
Ich habe hier ein Muster gebastelt, in dem das Prob nachvollziehbar ist:
https://www.herber.de/bbs/user/10859.xls

Bed:
Maske starten
Mit Betätigen der ChkBoxen änden sich die Werte in der Tabelle, aber die Textbox ändert sich nicht entsprechend - Alles nicht perfekt ;-(
Die Wirkung setzt versetzt (1Klick) ein.

Hilfe wäre super
Thx ia

ralph

  


Betrifft: AW: Is klar: Hier die Beispieldatei von: P@ulchen
Geschrieben am: 14.09.2004 06:48:40

Hi Ralph,

mach mal so:



Private Sub CheckBox1_AfterUpdate()
UserForm1.TextBox1.Text = Range("Tab1!E8").Value
End Sub

Private Sub CheckBox2_AfterUpdate()
UserForm1.TextBox1.Text = Range("Tab1!E8").Value
End Sub

Private Sub CheckBox3_AfterUpdate()
UserForm1.TextBox1.Text = Range("Tab1!E8").Value
End Sub

Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub

Private Sub UserForm_Initialize()
UserForm1.TextBox1.Text = Range("Tab1!E8").Value
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5




Gruß aus Leipzig
P@ulchen

Das Forum lebt auch von den Rückmeldungen !


  


Betrifft: wuuuuuunderbar - Es funzt von: Ralph
Geschrieben am: 14.09.2004 09:31:58

Tachchen,

super das eine Lösung trotz eines missglückten Threats angeboten wurde.
Hab's ausprobiert - Und es klappt :-)

Prima
Thx
Ralph