Clever-Excel-Forum

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

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

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 ...

radagast

snb

radagast