MS-Office-Forum

MS-Office-Forum (https://www.ms-office-forum.net/forum/index.php)
-   Microsoft Excel (https://www.ms-office-forum.net/forum/forumdisplay.php?f=29)
-   -   Label während der Runtime erstellen und verändern (https://www.ms-office-forum.net/forum/showthread.php?t=344293)

Sven315 17.07.2017 11:26

Label während der Runtime erstellen und verändern
 
Hallo,

ich möchte den Text eines Labels, welches ich während der Laufzeit erstellt habe, ändern.

Mein Code zum erstellen des Labels ist wie folgt:

Code:

Set LabelSMA = Entscheidung_Form.Controls.Add("forms.label.1", "Label_1")

With LabelSMA
    .Left = 12
    .Top = 18
    .Width = 70
    .Height = 18
    .Caption = "Label 1"
    .FontSize = 11
End With
Entscheidung_Form.Label_1.show


Im nächsten Schritt soll er beim Klick auf dem Button in der Userform den Wert des Labels "Label_1" ändern:


Code:

Private Sub Berechnen_Click()
 
Entscheidung_Form.Label_1.Text = "Test"
 
End Sub

Leider findet er "Label_1" nun nicht.

R J 17.07.2017 11:47

Hi Sven,

der Text eines Labels ist in VBA die Caption.

Das sollte funktionieren:
Code:

Me.Controls("Label_1").Caption = "blablabla"

Sven315 17.07.2017 12:06

Klappt, danke. :)


Wo ist denn der Unterschied, dass ich mit "Me.Controls("Label_1")" Label_1 ansprechen kann aber nicht mit "Entscheidung_Form.Label_1.Caption" ?

R J 17.07.2017 12:15

Zitat:

Wo ist denn der Unterschied, dass ich mit "Me.Controls("Label_1")" Label_1 ansprechen kann aber nicht mit "Entscheidung_Form.Label_1.Caption" ?
da kann ich auch nur Vermutungen anstellen. Und meine Vermutung ist, das Label ist (als Objekt der Form) in der ursprünglichen Klasse der Form nicht bekannt. Wird ja erst zur Laufzeit erstellt. Somit muss die Auflistung der Controls der Form (die ja nachträglich beim Erstellen des Labels aktualisiert wird) durchlaufen werden um es finden zu können.

steve1da 17.07.2017 13:12

Hola,

zur Info...

http://www.vba-forum.de/forum/View.a...ver%C3%A4ndern

Gruß,
steve1da


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:43 Uhr.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.