Strg + v vor Textbox-Change-Ereignis abfangen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
das Ereignis Textbox_BeforeDropOrPaste() wird ausgelöst, bevor die Zwischenablage eingefügt wird.
Über einen Umweg über das DataObject(Bestandteil der MSForms-Bibliothek) kann die Zwischenablage ausgelesen werden.
Das untenstehende Beispiel verdeutlicht dies.
Schau dir in der Hilfe die Parameter zum Event an. Darüber kann die gesamte Operation auch gecancelt werden. Auch das DataObject ist in der Hilfe beschrieben.
Gruß
Axel

Private Sub TextBox1_BeforeDropOrPaste( _
   ByVal Cancel As MSForms.ReturnBoolean, _
   ByVal Action As MSForms.fmAction, _
   ByVal Data As MSForms.DataObject, _
   ByVal X As Single, ByVal Y As Single, _
   ByVal Effect As MSForms.ReturnEffect, _
   ByVal Shift As Integer)
   Dim dataobj As New DataObject

   ' Zwischenablage in das DataObject übernehmen
   dataobj.GetFromClipboard

   ' Zwischenablage auslesen, hier einfache Ausgabe ins Direktfenster
   Debug.Print dataobj.GetText(1)
End Sub

Hallo Axel,
danke, hilft mir schon weiter, habe aber noch folgendes Problem.
Der unten aufgeführte Code soll bewirken, daß ich den Inhalt aus der Zwischenablage in Textbox1 einfüge. Hierbei möchte ich jedoch den Inhalt bevor er in die Textbox1 eingefügt wird, per Code aufarbeiten und erst dann in Textbox1 einfügen (siehe Beispielcode).
Nach Drücken der Tastenkombination Strg + v wird der Inhalt der Zwischenablage doppelt in die Textbox1 eingefügt. Wie kann man das umgehen? Es soll nur der von mir bearbeitete Inhalte der Zwischenablage eingefügt werden.
Wie müßte man den Code verändern, wenn ich den Inhalt von Textbox2 per drag and drop in Textbox1 einfüge? Wird das überhaupt mit dem BeforeDropOrPaste-Ereignis gesteuert?


Private Sub TextBox1_BeforeDropOrPaste( _
ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Action As MSForms.fmAction, _
ByVal Data As MSForms.DataObject, _
ByVal X As Single, ByVal Y As Single, _
ByVal Effect As MSForms.ReturnEffect, _
ByVal Shift As Integer)
Dim strString As String
Dim dataobj As New DataObject
dataobj.GetFromClipboard
'Beispielcode
strString = dataobj.GetText(1)
strString = UCase(strString)
TextBox1 = strString
End Sub

Beispielmappe: https://www.herber.de/bbs/user/10951.xls
Gruß Lupus

Beliebteste Forumthreads (12 Monate)

Strg + v vor Textbox-Change-Ereignis abfangen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Strg + v vor Textbox-Change-Ereignis abfangen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread