Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Code verkürzen

Betrifft: Code verkürzen von: Erich
Geschrieben am: 27.08.2004 22:33:22

Hallo Excelprofis,

habe moch ein Problem, wie kann ich den folgenden code verkürzen

Label1 = Worksheets(1).[F3].Value
Label2 = Worksheets(1).[G3].Value
....
der code hat 90 label

kann mir jemad weiter helfen?

gruß

erich

  


Betrifft: AW: Code verkürzen von: Ulf
Geschrieben am: 27.08.2004 22:58:15

Wenn du der selbe Erich bist, wie der mit den Comboboxen, ist das Prinzip genauso.

Ulf


  


Betrifft: AW: Code verkürzen von: Erich
Geschrieben am: 27.08.2004 23:06:01

hallo ulf,

ich bin der selbe, aber diesmal will ich ja nicht das label ausblenden sondern den Text aus der zelle anzeigen,

kanst du mir weiter helfen?

gruß
erich


  


Betrifft: AW: Code verkürzen von: Ulf
Geschrieben am: 27.08.2004 23:11:21

Ist der Abstand immer eine Zelle?

Ulf


  


Betrifft: AW: Code verkürzen von: Erich
Geschrieben am: 27.08.2004 23:12:40

ja

gruß
erich


  


Betrifft: AW: Code verkürzen von: Ulf
Geschrieben am: 27.08.2004 23:16:03

Private Sub UserForm_Initialize()
Dim L As Byte
For L = 1 To 90
  Controls("Label" & L) = Worksheets(1).Cells(3, 5 + L)
Next
End Sub


Ulf


  


Betrifft: Danke von: Erich
Geschrieben am: 27.08.2004 23:19:00

Danke Ulf für deine hilfe, danke


gruß

erich