VBA-Formular Label umbenennen
02.12.2004 12:40:49
Andreas
ich habe eine Anwendung, dabei rufe ich ein Formular nacheinander öfters auf und ändere dabei auch den Namen (caption), jetzt habe ich auch noch diverse Bezeichnungsfelder (Label) diese möchte ich beim Aufruf auch umbenennen, weiss aber nicht wie das funktioniert.
bin für jeden Tipp dankbar
Gruss Andreas
Private Sub CommandButton2_Click()
Dim v1 As String
v1 = "Oberfläche - "
ActiveSheet.Unprotect ("")
Range("c21").Select
Selection.ClearContents
Oberfläche.caption = v1 & "Teil verwinkelt" 'Formularname umbenennen
Oberfläche.Show 'Formular Aufruf
Oberfläche.caption = v1 + "Grösse"
Oberfläche.Show
Oberfläche.caption = v1 + "tiefe Taschen"
Oberfläche.Show
Oberfläche.caption = v1 + "Glanz und Struktur"
Oberfläche.Show
Range("c14").Value = Range("c24").Value
ActiveSheet.Protect ("")
End Sub
Anzeige