Gruppe
Dialog
Problem
In die Zeile mit der die UserForm aufrufenden Schaltfläche sollen Werte eingetragen werden.
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