Textbox Text kopieren?
Hallo zusammen,
ich würde gerne den Text aus meiner Textbox kopieren anhand eines Buttons.
Zudem muss ich sagen das die Textbox nicht aktiv ist (vlt. ein Problem?)
Folgendes funktioniert leider nicht ..
Private Sub CopyPhLoc1_Click()
Dim MyData As New DataObject
MyData.SetText PhLoc1Text.Text
MyData.PutInClipboard
End Sub
genauso wie Me.PhLoc1Text.Copy bzw. Me.PhLoc1Text.text.copy
bitte um Hilfe!
Falls es keine möglichkeit gibt überlege ich den Text in ein worksheet umzuleiten und daraus zu kopieren. Direkt kopieren allerdings wäre natürlich besser.
1 Antwort
Die Textbox kann per "unload" aus dem Speichern verschwunden sein, dann kann man auch nix mehr ins Clipboard speichern.
Also, im Zweifel die TextBox nur verstecken (hidden), so dass sie nur visible = false ist. Dann funktioniert es noch.
ABER:
Markiert man in einer textbox den Text funktioniert mit STRG+C
der Standard um Dinge ins ClipBoard zu speichern.