VBA-Programmierung in Microsoft Excel

Zellwerte über SpinButton und ScrollBar hochzählen

ClassModule: frmHelp

Private Sub cmdOK_Click()
   Unload Me
End Sub

Private Sub tglHelp_Click()
   On Error Resume Next
   With txtHelp
      .Visible = tglHelp.Value
      .ScrollBars = fmScrollBarsBoth
      .SetFocus
      .SelStart = 0
   End With
End Sub

Private Sub UserForm_Initialize()
   txtHelp.Visible = False
   'txtHelp.Text = WorksheetFunction.Substitute(Range("A1").Value, vbLf, "")
   txtHelp.Text = Range("A1").Value
End Sub

StandardModule: Modul1

Sub DialogAufruf()
   frmHelp.Show
End Sub

    

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