Microsoft Excel

Herbers Excel/VBA-Archiv

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

mehrere label gleichzeitig ändern

Betrifft: mehrere label gleichzeitig ändern von: olaf
Geschrieben am: 16.09.2004 18:36:10

Hallo zusammen,

ich habe immernoch ein kleines Problem:

In meinem UserForm gibt es 60 Label´s (Label1 bis Label60), die ich mit den Variablen a(x) füllen will.

Gibt es eine saubere Lösung, das Label1 mit der Variable a(1), das Label2 mit der Variable a(2) usw. zu befüllen?
Die gleiche Frage habe ich bereits weiter unten einmal gestellt, aber mit dem Rat:
Controls("Label" & x).Caption = a(x)
funktionierts leider nicht.

Hat jemand ´ne gute Lösung?????

Olaf

  


Betrifft: AW: mehrere label gleichzeitig ändern von: Wolle
Geschrieben am: 16.09.2004 18:44:37

Hi Olaf,

Du must das mit ner Schleife machen.

for x = 1 to 60 Step 1
controls("Label" & x).Caption = a &x
next x

Versuchs mal damit.

MfG
Wolle


  


Betrifft: AW: mehrere label gleichzeitig ändern von: olaf
Geschrieben am: 16.09.2004 18:48:51

jaja - das ist mir schon klar, ich habe (um das ganze zu verkürzen) natürlich nicht den ganzen code hingeschrieben.

mit der schleife geht´s natürlich auch nicht !

hast du trotzdem ´ne lösung ??

olaf


  


Betrifft: AW: mehrere label gleichzeitig ändern von: Bert
Geschrieben am: 16.09.2004 18:57:33

Was geht denn nicht? Kommt ein Fehler? Ansich gehts so.

Bert


  


Betrifft: AW: mehrere label gleichzeitig ändern von: olaf
Geschrieben am: 16.09.2004 19:08:49

Private Sub Label223_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Load UserForm1
For x = 1 To 60
Controls("Label" & x).Caption = aob(x)
Next x
UserForm1.Show
End Sub



Die meldung ist dann:
Laufzeitfehler -2147024809(80070057)
Das angegebene Objekt konnte nicht gefunden werden.

Ich hab schon viele Varianten durch
z.B. auch >> Controls("UserForm1.Label" & x).Caption = .....<<

geht irgendwie alles nicht

?????


  


Betrifft: AW: mehrere label gleichzeitig ändern von: Bert
Geschrieben am: 16.09.2004 19:12:55

Wo befindet sich denn Label223 ?

Bert


  


Betrifft: AW: mehrere label gleichzeitig ändern von: olaf
Geschrieben am: 16.09.2004 19:18:27

Danke für die mühe,

ich glaub, mir ist bereits geholfen !

Danke
olaf


  


Betrifft: AW: mehrere label gleichzeitig ändern von: Wolle
Geschrieben am: 16.09.2004 18:58:18

Hallo Olaf,

natürlich funktioniert es nicht. *schäm*

hier der richtige code, sogar schnell erstellt und gestestet:

Sub UF_zeigen()
    UserForm1.Show
    Dim a
    a = "test"
    For i = 1 To 6 Step 1
        With UserForm1.Controls("Label" & i).Caption = a & i
        End With
        Next i
End Sub


Du must ihn nur noch für dich anpassen.

MfG
Wolle


  


Betrifft: AW: mehrere label gleichzeitig ändern von: olaf
Geschrieben am: 16.09.2004 19:16:52

ich danke Dir,

jetzt bekomme ich wenigstens keine fehlermeldung mehr (wenn auch der inhalt meiner Labels nicht angezeigt wird).

Die kleineren Problemchen löse ich denn schon

Vielen Dank !!

Olaf


 

Beiträge aus den Excel-Beispielen zum Thema "mehrere label gleichzeitig ändern"