Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Beim Verschieben von Text diesen in Label anzeigen

Gruppe

TextBox

Problem

Beim Verschieben von Text von einer UserForm-TextBox in eine andere soll dieser Text in einem Label angezeigt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.

ClassModule: frmMove

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub txtA_BeforeDragOver( _
   ByVal Cancel As MSForms.ReturnBoolean, _
   ByVal Data As MSForms.DataObject, _
   ByVal X As Single, _
   ByVal Y As Single, _
   ByVal DragState As MSForms.fmDragState, _
   ByVal Effect As MSForms.ReturnEffect, _
   ByVal Shift As Integer)
   Label1.Caption = txtA.Text
End Sub

Private Sub txtB_BeforeDragOver( _
   ByVal Cancel As MSForms.ReturnBoolean, _
   ByVal Data As MSForms.DataObject, _
   ByVal X As Single, _
   ByVal Y As Single, _
   ByVal DragState As MSForms.fmDragState, _
   ByVal Effect As MSForms.ReturnEffect, _
   ByVal Shift As Integer)
   Label1.Caption = txtB.Text
End Sub

StandardModule: Modul1

Sub CallForm()
   frmMove.Show
End Sub