Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zelltext als Hilfetext in einer UserForm anzeigen

Gruppe

Label

Problem

Der Text in Zelle A1 soll in einer UserForm-Hilfe-TextBox mit vertikaler ScrollBar angezeigt werden.

Lösung
Geben Sie den nachstehenden Code in das Klassenmodul der UserForm ein.

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