Supportnet / Forum / Tabellenkalkulation

Hallo zusammen bei Öffnen werden die ´ControlTipTexte´ geladen. Ist es nicht möglich, den Text mit Zeilenumbrüchen anzuzeigen, wie beispielsweise bei einer msg-box? me.feld1.controltiptext = "dies ist ein test." & Chr(13) _ & " " & Chr(13) _ & "nochmals ein test..." Danke für ne Antwort & Gruss Rahel

Hallo Rahel,

dass geht leider nicht. Man kann bei Objekten einer UserForm keinen mehrzeiligen ControlTipText darstellen. Eine Lösungsmöglichkeit wäre, ein Labelfeld in die UserForm einzuarbeiten, das beim Berühren (MouseMove-Eigenschaft) eines Objektes mit Text gefüllt wird. Als Beispiel, wenn beim Berühren eines CommandButtons ein Text in dem Labelfeld angezeigt werden soll, würde der Code folgendermaßen lauten:

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X > 5 And Y > 5 And X < 70 And Y < 70 Then
Label1.Visible = 1
Label1.Caption = "Dies ist ein Test." & Chr(10) & "nochmal ein Test..."
Else
Label1.Visible = 0
End If
End Sub

Bei einem Textfeld soll aber ein anderer Text in das Labelfeld eingetragen werden, dann wird obiger Code einfach vervielfältigt und in die MouseMove-Eigenschaft der TextBox eingetragen, also folgendermaßen:

Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X > 5 And Y > 5 And X < 70 And Y < 70 Then
Label1.Visible = 1
Label1.Caption = "Ein neuer Text." & Chr(10) & "in einer TextBox"
Else
Label1.Visible = 0
End If
End Sub

Ich hoffe, Du hast verstanden wie ich das meine. Wenn nicht, dann melde Dich noch mal.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver,

danke für Deine Antwort. Ich denke ich damit sehr wohl was anfangen. Schade geht das mit dem ControlTipText nicht, aber was solls.. Alles ist eben nicht möglich.

Danke nochmals!
Gruss Rahel