Text aus Zwischenablage in Userform, wenn diese den Fokus erhält
Hallo zusammen,
ich möchte Text, den ich z.B. von einer Website kopiere,
automatisch in eine Textbox einer Userform schreiben,
sobald ich wieder auf die Userform (mit Alt+Tab) umschalte?
Das Kopieren und Einfügen klappt (siehe Code unten).
Aber wie kann ich die Sub aufrufen, sobald ich auf die Userform gehe, ohne extra dazu eine Schaltfläche zu klicken?
Viele Grüße
ich möchte Text, den ich z.B. von einer Website kopiere,
automatisch in eine Textbox einer Userform schreiben,
sobald ich wieder auf die Userform (mit Alt+Tab) umschalte?
Das Kopieren und Einfügen klappt (siehe Code unten).
Aber wie kann ich die Sub aufrufen, sobald ich auf die Userform gehe, ohne extra dazu eine Schaltfläche zu klicken?
Sub CopyPaste ()
Dim objData As New DataObject
Dim varVar As Variant
objData.GetFromClipboard
varVar = objData.GetText
Userform1.TextBox1 = varVar = varVar
Set objData = Nothing
End Sub
Viele Grüße
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 665058
Url: https://administrator.de/forum/text-aus-zwischenablage-in-userform-wenn-diese-den-fokus-erhaelt-665058.html
Ausgedruckt am: 22.12.2024 um 18:12 Uhr
2 Kommentare
Neuester Kommentar
Das entsprechende GotFocus Event der Textbox her nehmen
https://docs.microsoft.com/de-de/office/vba/api/access.textbox.gotfocus
Man beachte das die Event-Prozedur im Codeabschnitt der Form platziert wird.
Gruß SK
Btw. warum liest du nicht direkt via Code den gwwünschten Textinhalt aus dem Browser, das wäre auch problemlos machbar
https://docs.microsoft.com/de-de/office/vba/api/access.textbox.gotfocus
Private Sub Textbox1_GotFocus()
'here set clipboard data to control
End Sub
Gruß SK
Userform1.TextBox1 = varVar = varVar
Na wenn das klappt fress ich nen Besen, etwas zu viel des guten 🙃Btw. warum liest du nicht direkt via Code den gwwünschten Textinhalt aus dem Browser, das wäre auch problemlos machbar