mehrere Werte in Zwischenablage kopieren
26.11.2024 09:59:45
martinexcel1996
ich möchte per Makro mehrere Werte in die Zwischenablage bekommen, damit ich sie dann nacheinander in anderen Programmen einfügen kann (per Zwischenablagen-Verlauf (Windows-Taste + V)
Einzeln funktioniert das ganze auch über 4 einzelne SUBs mit diesem Code:
Sub Copy_1()
Dim objDataObject As DataObject
Set objDataObject = New DataObject
objDataObject.SetText Range("B53").Text
objDataObject.PutInClipboard
End SubDas ganze habe ich 4x (Copy_1 bis Copy_4) für die Zellen B53 bis B56
Wenn ich mir jetzt 4 einzelne Buttons erstelle, jedem eines der Makros Copy_1 bis Copy_4 zuweise, und nacheinander die 4 Buttons drücke, habe ich alle 4 Werte der Zelle nacheinander in meinem Zwischenablagen-Verlauf. So weit, so gut.
Eleganter wäre das ganze aber natürlich mit einem Button, statt 4 Buttons.
Der Versuch per neuem Makro die 4 Makros Copy_1 bis Copy_4 mit "Call" nacheinander aufzurufen, funktioniert aber nicht, hier habe ich am Ende nur den letzten Wert in der Zwischenablage.
Kann mir jemand weiterhelfen wo hier das Problem/der Unterschied liegt zwischen 4x einzeln die Makros auszuführen oder 1x per Call alle 4 Makros nacheinander aufzurufen?
Vielen Dank und beste Grüße
Martin
Anzeige