Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In der UserForm aufrufende Schaltfläche erkennen

Gruppe

CommandButton

Problem

In die Zeile mit der die UserForm aufrufenden Schaltfläche sollen Werte eingetragen werden.

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

ClassModule: frmCallerRow

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim iCounter As Integer
   For iCounter = 2 To 5
      Cells(Me.Tag, iCounter).Value = iCounter - 1
   Next iCounter
End Sub

StandardModule: Modul1

Sub DialogAufruf()
   frmCallerRow.Tag = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row
   frmCallerRow.Show
End Sub