Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.09.2015 19:04:04 |
Ralf |
|
|
|
29.09.2015 20:03:37 |
Ralf |
|
|
|
30.09.2015 16:56:39 |
Holger |
|
|
|
30.09.2015 18:52:01 |
Ralf |
|
|
Label.Caption in Echtzeit ändern lassen |
06.10.2015 08:08:24 |
Gast53550 |
|
|
|
01.10.2015 08:36:04 |
Quellkot |
|
|
|
06.10.2015 08:10:21 |
Ralf |
|
|
Von:
Gast53550 |
Datum:
06.10.2015 08:08:24 |
Views:
1358 |
Rating:
|
Antwort:
|
Thema:
Label.Caption in Echtzeit ändern lassen |
Hallo, es tut mir leid und mir ist es schon fast peinlich, aber ich komme einfach nicht drauf. Habe mal eine Testdatei erstellt, bei der ein Label und eine Textbox jeweils den Wert von Zelle "A7" (in Echtzeit) übernehmen soll. CommandButton1 in UserForm1 erhöht den Wert in "A7" jeweils um 1. Hier der Code:
Private Sub UserForm_Initialize()
UserForm1.Label1.Caption = Range("A7")
UserForm1.TextBox1.Value = Range("A7")
'(UserformName.)LabelName=Neuer Text 'aus Forum zum überarbeiten
UserForm1.Repaint
End Sub
Private Sub CommandButton1_Click()
i = Range("A7").Value
i = i + 1
Range("A7").Value = i
End Sub
Private Sub Label1_Click()
UserForm1.Label2.Caption = Range("A7")
'(UserformName.)LabelName=Neuer Text
UserForm1.Repaint
End Sub
Private Sub TextBox1_Change()
UserForm1.TextBox1.Value = Range("A7")
'(UserformName.)LabelName=Neuer Text
UserForm1.Repaint
End Sub
Private Sub Label1_Change()
UserForm1.Label2.Caption = Range("A7")
'(UserformName.)LabelName=Neuer Text 'aus Forum zum überarbeiten
UserForm1.Repaint
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
29.09.2015 19:04:04 |
Ralf |
|
|
|
29.09.2015 20:03:37 |
Ralf |
|
|
|
30.09.2015 16:56:39 |
Holger |
|
|
|
30.09.2015 18:52:01 |
Ralf |
|
|
Label.Caption in Echtzeit ändern lassen |
06.10.2015 08:08:24 |
Gast53550 |
|
|
|
01.10.2015 08:36:04 |
Quellkot |
|
|
|
06.10.2015 08:10:21 |
Ralf |
|
|