UF, Label eleganter beschriften...

[radagast]

Heje Excelfreunde,

in einer UF werden/müssen viele labels beschriftet werden. Die labels befinden sich alle wohl positioniert auf der UF.
Da deren Namen an anderer Stelle geänder werden können, würde ich eine eleganterer Methode, wie die unten angedeutet, verwenden. Die "With me...end with" Schleife ist nur eine von mehreren...

Code:

Private Sub UserForm_Activate()
Dim WSLG As Worksheet
'Dim intZ1 As Byte

   On Error GoTo Fehler
   Set WSLG = ThisWorkbook.Worksheets("TextLogo")
   With Me
       .TextLabel1.Caption = CStr(WSLG.Cells(24, 17).Value)
       .TextLabel2.Caption = CStr(WSLG.Cells(25, 17).Value)
       .TextLabel3.Caption = CStr(WSLG.Cells(26, 17).Value)
       .TextLabel4.Caption = CStr(WSLG.Cells(27, 17).Value)
       .TextLabel5.Caption = CStr(WSLG.Cells(28, 17).Value)
       .TextLabel6.Caption = CStr(WSLG.Cells(29, 17).Value)
       .TextLabel7.Caption = CStr(WSLG.Cells(30, 17).Value)
       .TextLabel8.Caption = CStr(WSLG.Cells(31, 17).Value)
       .TextLabel9.Caption = CStr(WSLG.Cells(32, 17).Value)
       .TextLabel10.Caption = CStr(WSLG.Cells(33, 17).Value)
       .TextLabel11.Caption = CStr(WSLG.Cells(34, 17).Value)
       .TextLabel12.Caption = CStr(WSLG.Cells(35, 17).Value)
       .TextLabel13.Caption = CStr(WSLG.Cells(36, 17).Value)
       .TextLabel14.Caption = CStr(WSLG.Cells(37, 17).Value)
       .TextLchLabel15.Caption = CStr(WSLG.Cells(38, 17).Value)
   End With
   Set WSLG = Nothing
   On Error GoTo 0
   Exit Sub

Fehler:
If Err.Number > 0 Then
   MsgBox "UF4_02 Fehlercode : " + CStr(Err.Number) + "  " + Err.Description + "  " + CStr(Err.Source)
End If
End Sub

[snb]

Code:

Private Sub UserForm_Initialize()
  sn = thisworkbook.sheets("TextLogo").range("P24:P38")

  for j=1 to 15
    Me("Textlabel" & j).caption=sn(j,1)
  next
End Sub

[radagast]

heje excelfreunde, snb

ja was solch ich sagen/schreiben...herzliche Dank snb... funktionier besser wie Schmid's Katze

ggf. bitte ein noch Erläuterung für die weniger Beflissenen ...