VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Zelltext als Hilfetext in einer UserForm anzeigen

Gruppe

Dialog

Bereich

Label

Thema

Zelltext als Hilfetext in einer UserForm anzeigen

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

    


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