CommandButton Caption variabel
11.06.2015 09:02:18
Bene
Folgendes:
Ich habe eine Userform erstellt. Auf der Userform sind mehrere Commandbuttons.
Jetzt möchte ich die Beschriftung der Commandbuttons (Caption, nicht Name) variabel per VBA steuern.
Sieht bisher so aus...
Zunächst
Private Sub Workbook_Open()
Call Arbeitsgaenge_deklarieren
End Sub
dann ein eigenes Modul:
'#######################################################################
' spezielle Bezeichner für die Arbeitsgänge
Public AG1_1 As String
Public AG1_2 As String
Public AG1_3 As String
Public Sub Arbeitsgaenge_deklarieren()
AG1_1 = "Arbeitsgang1_1"
AG1_2 = "Arbeitsgang1_2"
AG1_3 = "Arbeitsgang1_3"
End Sub
und abschließend bei der Userform:
Private Sub UserForm_Activate()
Me.cmd_Arbeitsgang1_1.Caption = AG1_1
End Sub
Jetzt passiert allerdings folgendes: der CommandButton ist leer. -.-
Wo ist der Fehler?