Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wert in Abhängigkeit der aufrufenden Schaltfläche eintragen

Gruppe

CommandButton

Problem

Wie kann ich einen UserForm-TextBox-Wert in Abhängigket zu der die UserForm aufrufenden Schaltfläche in Zellen eintragen lassen?

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

ClassModule: Tabelle1

Private Sub cmdButtonA_Click()
   frmEintragen.Tag = "A1"
   frmEintragen.Show
End Sub

Private Sub cmdButtonB_Click()
   frmEintragen.Tag = "A2"
   frmEintragen.Show
End Sub

Private Sub cmdButtonC_Click()
   frmEintragen.Tag = "A3"
   frmEintragen.Show
End Sub

ClassModule: frmEintragen

Private Sub cmdEintragen_Click()
   Range(Me.Tag).Value = txtEintragen.Value
   Unload Me
End Sub