Office: Text in Zwischenablage

maryjam01 · 2. Oktober 2006

Hallo Zusammen!
Ich hab schon einiges zur Zwischemnablage gefunden, jedoch hat noch nichts so richtig gepasst. Ich möchte einen formatierten Text (Quellecode) per klick auf ein Button in einem Userform in die Zwischenablage schreiben, damit man den Text dann irgendwo anders einfügen kann. Den Text möchte ich am besten statisch in der Funktion für den Button hinterlegen.

Danke und Bestgruß...
Mary

:)

jinx · 3. Oktober 2006

Moin, Mary,

vor jeder Frage die Suche im Forum nutzen - es gibt aus dem letzten Monat einen Beitrag dazu (User bst), vielleicht hilft der Dir weiter. Ansonsten könnte eventuell Variable in Zwischenablage übernehmen sowie ein Hinweis auf die ClipboardFormats-Eigenschaft helfen.

maryjam01 · 3. Oktober 2006

Danke!
Ich habe auch schon geschaut und einiges gefunden! Es geht aber um den formatierten Text, der übergeben werden soll. Kann ich in VBA Text formatieren?
Code:

Private Sub CommandButton2_Click()

Dim ClipAbLage As DataObject
Dim sTxt As String
Set ClipAbLage = New DataObject
'Range("A1").Select
'sTxt = InputBox("Variablenwert:", , "Hallo!")
sTxt = ("Text hier (formatiert mit Zeilenumbruch, Anführungszeichen, Klammern und Kommata")
ClipAbLage.SetText sTxt
ClipAbLage.PutInClipboard

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Thx und Bestgruß, Mary

jinx · 3. Oktober 2006

Moin, Mary,

die Antwort für Excel und VBA ist ja, bei der Zwischenablage bin ich mir nicht sicher. Aber da könnte eventuell der Ansatz aus VBA-generierte HTML-Sequenz HTML-formatiert in Tabelle ansetzen, der die HMTL-Formatierungen dafür einsetzt.

maryjam01 · 3. Oktober 2006

Ich nochmal *wink.gif*

Für alle die, die auf Knopfdruck einen formatierten Text in der Zwischenablage haben wollen:
Ihr erstellt ein neues UserForm1 nehmt für euren Button CommandButton2 also diesen Code: Code:

Private Sub CommandButton2_Click()

Dim ClipAbLage As DataObject
Dim sTxt As String
Set ClipAbLage = New DataObject
sTxt = UserForm1.Label1.Caption
ClipAbLage.SetText sTxt
ClipAbLage.PutInClipboard
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und nehmt einfach den Text, der formatiert im UserForm1 als Caption auf dem Label1 steht und packt den in die Zwischenablage...

Weg des geringsten Widerstandes *wink.gif*

Bestgruß, Marry

Office: Text in Zwischenablage

Text in Zwischenablage

Text in Zwischenablage

Text in Zwischenablage

Text in Zwischenablage - Similar Threads - Text Zwischenablage

Änderung Titel Folie 1 für alle weiteren Folien übernehmen

Während der Eingabe überprüfen ob Zahl oder Text

Felder: Hochgestellter Text bleibt nicht erhalten

Silbentrennung automatisch deaktivieren in blauem Text

Schaltfläche mit Makro: Text in Zwischenablage kopieren ohne Leerzeichen

Button -> Text in Zwischenablage

Wie Zwischenablage als einfachen text in Word 2000 einfügen