Label Code vereinfachen
02.02.2005 23:12:08
Domi
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