Gruppe
Dialog
Bereich
ScrollBar
Thema
Zellwerte über SpinButton und ScrollBar hochzählen
Problem
Wie kann ich über in einem Tabellenblatt verankerte SpinButtons und ScrollBars Zellwerte hochzählen?
Lösung
Weisen Sie den Steuerelementen die LinkedCell-Eigenschaft zu.
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