Office: Label Dynamisch erstellen

Hallo,

ich habe bereits diverse Foren durchsucht aber bis jetzt nichts passendes gefunden.

Meine Userform soll Labels hinzufügen / weglassen jenachdem was in der Zelle steht.
Im Range A1 bis A10 stehen Werte, z.B. abwechselnd 'a' & 'b'. Also zeigt die Userform bei einem Klick auf Button A 5x Labels an mit den Werten der Zeilen mit a. Bei Button B Werte der Zeilen mit b

Der Rest bis Zelle A20 ist leer. Wenn jetzt in die leeren Zellen a oder b eingetragen wird soll in der Userform entsprechend ein neues label hinzugefügt werden und mit Werten versorgt werden bzw. wenn von den schon bestehenden eine gelöscht wird soll demnach ein Label weniger angezeigt werden.

Es hört sich alles ziemlich verwirrend an aber ich hoffe Ihr könnt mir trotzdem weiterhelfen. *Smilie

Gruß Heddi

:)

 

Hallo Heddi,

du kannst Labels folgendermaßen hinzufügen.

Code:

Die Logik wann du die Labels erzeugen willst liegt bei dir. Ich würde den Code zum erstellen auslagern und beim öffnen des Forms und zusätzlich über einen Button aktualisieren lassen.

Hoffe das hilft dir weiter.

VG
JD

 

Hi JD,

also ich habe das jetzt mal wie folgt gelöst:

Code:

Aber beim Button klick wird nix in der Userform angezeigt

 

Hi Heddi,

a hat den Wert 20. Steht denn in Cells(2,20) was? *wink.gif*
...oder... steht in der Cells(1,20) kein kleines sondern ein großes A?
Dimensioniere lbl mal als Object (statt: Dim lbl As MSForms.Label)


Außerdem solltest du die If-Anweisung innerhalb der For Schleife einbetten.
Das ganze hat auch noch ein paar andere Schönheitsfehler. Falls Du wirklich mehrere Labels brauchst, dann sollte jedes eine andere Top und Left Eigenschaft haben und nicht alle übereinander legen....*wink.gif*
Wenn Du sie verwalten willst (nämlich um sie einzeln und gezielt löschen zu können) solltest Du sie zudem in einem Array einbetten. Es sei denn, Du löschst und erstellst sie immer wieder komplett neu, dann ist es natürlich egal...
Falls Du aber auf Ereignisse des Labels reagieren willst (z. Bsp. Click), dann benötigst Du noch eine Labelklasse with Events. Wird aber vermutlich für Deinen Fall nicht notwendig sein...

 

Hi,

Ich denke auch das Ralf recht hat.

So sollten Sie zumindest schon mal erstellt werden. Allerdings nur eine Reihe, du musst es mit deiner If-Bedingung versehen und ggf. für mehrere Zeilen anpassen.

Code: