Formatierten Text per Steuerbutton in Zwischenablage mit Feldern des Datensatzes

[Don]

Hallo zusammen,

ich möchte gerne auf Basis eines Formulars, das einen bestimmten Datensatz aufgerufen hat (z.B. ein Mitglied) mittels eines Steuerbuttons in diesem Forular einen vorgefertigten formatierten mehrzeiligen Text in die Zwischenablage kopieren. Dieser Test soll sich idealerweise noch Anrede und Nachname des Datensatzes ziehen, BSP:

Hallo Herr Müller,
Erste Zeile
zweite Zeile
usw.

geht das? Wenn ja wie?
Vielen Dank schon mal und VG
Don

[andyfau]

Hallo,

vielleicht helfen die folgenden Codeschnipsel:

Code [Auswählen] Erweitern

sub DateninClip()

Dim clipboard As MSForms.DataObject
Dim clipstring As String


'Daten in Zwischenablage schreiben
Set clipboard = New MSForms.DataObject ' Verweis auf Microsoft Forms 2.0 Object Library (Excel) notwendig
clipboard.Clear
clipboard.SetText clipstring 'clipstring vorher zusammen bauen
clipboard.PutInClipboard
end sub


'*******************************************


sub DatenausClip()

Dim clipboard As MSForms.DataObject
Dim clipstring As String
 Set mydata = New DataObject ' Verweis auf Microsoft Forms 2.0 Object Library (Excel) notwendig

 On Error Resume Next
  mydata.GetFromClipboard
  clipboard = mydata.GetText(1)   'Variable clipstring übernimmt Daten für spätere Verarbeitung
 on error goto 0
end sub

[Beaker s.a.]

Hallo,

Falls du damit Probleme hast

clipstring vorher zusammen bauen

Code [Auswählen] Erweitern

DeinText = "Hallo " & Me.Anrede & " " & Me.Nachname & vbcrlf _
    & "...
gruss ekkehard

[Don]

Hallo zusammen,

vielen Dank werde es heute mittag mal ausprobieren.
VG
Don

[Don]

TOP funktioniert, vielen Dank nochmal
VG
Don