VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Verschieben von Text diesen in Label anzeigen

Gruppe

Dialog

Bereich

TextBox

Thema

Beim Verschieben von Text diesen in Label anzeigen

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox