Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

UF, Label eleganter beschriften...
#1
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
Vielen Dank
--Janosch
                                                     
Excel  2019 (64bit)  Win 10 Pro (64bit)                              
Antworten Top
#2
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
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
[-] Folgende(r) 1 Nutzer sagt Danke an snb für diesen Beitrag:
  • radagast
Antworten Top
#3
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 ...
Vielen Dank
--Janosch
                                                     
Excel  2019 (64bit)  Win 10 Pro (64bit)                              
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste