Text in Liste direkt um Zusatz ergänzen

[Karthagos]

Hallo Daniel,

Dein Lösungsansatz erscheint mir, für mich zumindest, der praktikabelste und einfachste.
Das Makro kann ich in meine Makrosammlung einbinden und wo gewünscht und mit dem benötigten Text ausführen.
Allerdings habe ich leider noch ein Debug-Problem beim Ausführen:
   
Irgendwo habe ich noch einen Fehler drin.

---

Hallo Gast 123,

habe Deine Beispieldatei interessehalber noch mal getestet.
Beim Öffnen kommt der Sicherheitshinweis
   
den ich mit Bearbeitung aktivieren bestätigt habe. Trotzdem scheint es ein Problem mit der Makroausführung zu geben, anscheinend greift das Dropdown-Feld nicht auf das Makro zu.
Trotz Auswahl von .jpg verändert sich in den darunterliegenden Texten nichts.
   

[slowboarder]

Ersetz mal das "Zelle" durch "R"
hab das Makro nachträglich nochmal überarbeitet und das vergessen.

[Karthagos]

Hallo slowboarder,

vielen Dank, hab ich geändert, jetzt ist es für mich perfekt.

[Karthagos]

Hallo Slowboarder, muß leider noch mal nachfragen. In der separaten Datei funktioniert das Makro.
Habe das Makro in meine persönliche Arbeitsmappe (Personal.xlsb) eingebunden aber da kommt beim Ausführen leider eine Fehlermeldung:
   
Hast Du noch einen Rat?

[Egon12]

Hallo Günther,

Bei Early Binding wie hier zu sehen braucht es die Aktivierung der Bibliothek: MS Forms 2.0 Object Library.
Im VBA Editor --> Extras --> Verweise


Gruß Uwe

[slowboarder]

Hast Du noch einen Rat?

meine Antwort nochmal vollständig lesen und prüfen, ob du den Hinweis unter dem Code beachtet hast.
Gruß Daniel

[Karthagos]

irgendwie wurde der Haken bei MS Forms 2.0 Object Library zunächst nicht dauerhaft angenommen,
jetzt funktioniert es und die Welt ist in Ordnung 
Ich verstehe nicht, warum das Problem immer vor dem Bildschirm sitzt  
Nochmals vielen Dank

[Egon12]

Hallo,

Diese Bibliothek wird automatisch aktiviert, wenn du ein Userform einfügst. So ist es zumindest in O2019 und O2021.

Gruß Uwe

[knobbi38]

....

oder man verwendet Late-Binding, dann kann man sich den Verweis schenken:

Code:

  Dim objDataObject As Object

  Set objDataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

  With objDataObject
    .SetText "Hallo Zwischenablage"
    .PutInClipboard
  End With

  Set objDataObject = Nothing

Knobbi38

[Karthagos]

Hallo Knobbi38,

und dieser Code müsste in das Makro eingefügt werden, und wenn ja, wo?