Label Code vereinfachen

Forumthread: Label Code vereinfachen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Label Code vereinfachen

03.02.2005 00:12:08

Domi

Guten Abend zusammen.
Ich möchte diesen Code für weitere 10 Labels erweitern.
Der Angezeigte Wert definiere ich mit .Cells(1,1)..(2,1)...(3,1) usw.
Ich könnte natürlich den Code so weiterführen, aber vieleicht hat jemand eine einfachere Lösung?
besten Dank und freundliche Grüsse
domi


Sub einfügen()
Label1.Caption = Range("Auswahl").Cells(1,1) 'erste Auswahl
Label2.Caption = Range("Auswahl").Cells(2,1) 'zweite Auswahl
End Sub

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Label Code vereinfachen

03.02.2005 00:16:36

Matthias
Danke!

03.02.2005 00:20:45

Domi
AW: Label Code vereinfachen

P@ulchen

AW: Label Code vereinfachen

03.02.2005 00:16:36

Matthias

Hallo Domi,


Sub einfügen()
Dim i
For i=1 to 10
Me.Controls("Label" & i).Caption = Range("Auswahl").Cells(i,1)
Next i
End Sub

Gruß Matthias

Danke!

03.02.2005 00:20:45

Domi

Tschau Matthias,
vielen Dank für deine schnelle Antwort.
Super genau das habe ich gesucht!!
mit freundlichen Grüssen
Domi

AW: Label Code vereinfachen

P@ulchen

Hi Domi,
probier mal so:

Private Sub UserForm_Initialize()
i = 1
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "Label" Then
        ctrl.Caption = Range("Auswahl").Cells(i, 1).Value
        i = i + 1
    End If
Next
End Sub