HERBERS Excel-Forum - die Dialoge

Thema: Schaltflächenzeile ermitteln

Home
In die Zeile mit der aufrufenden Schaltfläche werden Werte eingetragen. Schaltflächenzeile ermitteln
  • Prozedur: DialogAufruf
  • Art: Sub
  • Modul: Standardmodul
  • Zweck: Schaltflächenzeile ermitteln und Dialog aufrufen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Index der Zeile der aufrufenden Schaltfläche in eine Integer-Variable schreiben
    • Rahmen um das UserForm-Objekt bilden
    • Den Zeilenindex in die Tag-Eigenschaft der UserForm schreiben
    • Die Aufschrift der UserForm festlegen
  • Code:

    
    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
    
  • Prozedur: cmdOK_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Werte in die Zeile mit aufrufender Schaltfläche eintragen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Schleife bilden
    • In die in der Tag-Eigenschaft der UserForm stehenden Zeile die Zähl-Variable minus 1 schreiben
  • Code:

    
    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