Sub DialogAufruf()
Dim iRow As Integer
iRow = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row
With frmCallerRow
.Tag = iRow
.Caption = "Zeilennummer: " & iRow
End With
frmCallerRow.Show
End Sub
Private Sub cmdOK_Click()
Dim iCounter As Integer
For iCounter = 2 To 5
Cells(Me.Tag, iCounter).Value = iCounter - 1
Next iCounter
Unload Me
End Sub