verschiedene Label variabel ansprechen
06.06.2006 14:17:00
Phoeni
ich habe mehrere Label deren Name bis auf die letzte Stelle immer gleich ist (lblMinus1, lblMinus2,...).
Ist es möglich diese Label über eine Variable anzusprechen?(ohne jedesmal den kompletten Namen zu tippen?)
Folgendes will ich erreichen:
In Spalte 8 des Tabellenblatts steht jeweils das Datum einer Rechnung. Ich habe einen Dialog gemacht, auf dem für die letzten 12 Monate jeweils ein Label ist. Die Spalte wird vom Code durchsucht und er schreibt in das Label, den Inhalt (also das Rechnungsdatum) der Zelle.
dim i
dim x
dim lbl as Label
For i = 100 To 1 Step -1
If Worksheets("Tabelle1").Cells(i, 8).Text <> _
Worksheets("Tabelle1").Cells((i - 1), 8).Text Then
Set lbl = "lblMinus" & x '<== Hier hängts...
lbl.Caption = (Worksheets("Tabelle1").cells(i, 8).Text)
x = x + 1
If x = 12 Then Exit For
End If
Next i
Danke für die Hilfe!
Phoeni