VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

In der UserForm aufrufende Schaltfläche erkennen

Gruppe

Dialog

Bereich

CommandButton

Thema

In der UserForm aufrufende Schaltfläche erkennen

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

    


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