Herbers Excel/VBA-Archiv

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

Code verkürzen

• Code verkürzen von Erich vom 27.08.2004 22:33:22
• AW: Code verkürzen - von Ulf am 27.08.2004 22:58:15
  • AW: Code verkürzen - von Erich am 27.08.2004 23:06:01
    • AW: Code verkürzen - von Ulf am 27.08.2004 23:11:21
      • AW: Code verkürzen - von Erich am 27.08.2004 23:12:40
        • AW: Code verkürzen - von Ulf am 27.08.2004 23:16:03
          • Danke - von Erich am 27.08.2004 23:19:00

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