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
Hallo,
vielleicht helfen die folgenden Codeschnipsel:
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
Hallo,
Falls du damit Probleme hast
Zitatclipstring vorher zusammen bauen
DeinText = "Hallo " & Me.Anrede & " " & Me.Nachname & vbcrlf _
& "...gruss ekkehard
Hallo zusammen,
vielen Dank werde es heute mittag mal ausprobieren.
VG
Don
TOP funktioniert, vielen Dank nochmal
VG
Don