Kann sich jemand erklären, warum der folgende Quellcode das Label LBL_1 nicht beschreibt ?
Private Function f_messdienerauflisten(start As Byte)
'***** Variablen deklarieren
Dim amessdiener As String 'speichert den aktuellen Messdiener
'***** Labels mit den Namen der Messdiener beschriften
'***** 1
amessdiener = Worksheets("Datenbank").Cells(start + 3, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 3, 3).Value
LBL_1.Caption = amessdiener
'***** 2
amessdiener = Worksheets("Datenbank").Cells(start + 4, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 4, 3).Value
LBL_2.Caption = amessdiener
'***** 3
amessdiener = Worksheets("Datenbank").Cells(start + 5, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 5, 3).Value
LBL_3.Caption = amessdiener
'***** 4
amessdiener = Worksheets("Datenbank").Cells(start + 6, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 6, 3).Value
LBL_4.Caption = amessdiener
'***** 5
amessdiener = Worksheets("Datenbank").Cells(start + 7, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 7, 3).Value
LBL_5.Caption = amessdiener
'***** 6
amessdiener = Worksheets("Datenbank").Cells(start + 8, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 8, 3).Value
LBL_6.Caption = amessdiener
'***** 7
amessdiener = Worksheets("Datenbank").Cells(start + 9, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 9, 3).Value
LBL_7.Caption = amessdiener
'***** 8
amessdiener = Worksheets("Datenbank").Cells(start + 10, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 10, 3).Value
LBL_8.Caption = amessdiener
'***** 9
amessdiener = Worksheets("Datenbank").Cells(start + 11, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 11, 3).Value
LBL_9.Caption = amessdiener
'***** 10
amessdiener = Worksheets("Datenbank").Cells(start + 12, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 12, 3).Value
LBL_10.Caption = amessdiener
'***** 11
amessdiener = Worksheets("Datenbank").Cells(start + 13, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 13, 3).Value
LBL_11.Caption = amessdiener
'***** 12
amessdiener = Worksheets("Datenbank").Cells(start + 14, 2).Value
amessdiener = amessdiener & Worksheets("Datenbank").Cells(start + 14, 3).Value
LBL_1.Caption = amessdiener
End Function
|