Textfelder zu kurz
07.10.2021 09:10:13
Thomas
ich habe eine userform mit sehr sehr vielen TextBoxen.
In einigen TextBoxen ist der einzugebende Text zu lang für die TextBox.
Wenn man dann diese Datensatz später lesen möchte muss man immer erst in die TextBox klicken und scrollen.
Aufgrund meiner Platzverhältnisse kann ich leider nicht mit Autofit arbeiten.
Nun habe ich den Gedanke folgendes zu machen:
IF Active.Controls("Textbox") = Text länger als sichtbarer Bereich der Active.Controls("Textbox") then
neueform1.Active.Controls("Textbox").ControlTipText = neueform1.Active.Controls.Text
end if
Wenn man das mit dem ControlTipText hinbekommen würde, bräuchte man nur noch mit der Maus über das betroffene Textfeld gehen und könnte dann den Text lesen.
Um es besser zu veranschaulichen habe ich ein kleines Beispiel erstellt.
https://www.herber.de/bbs/user/148477.xlsm
Kann mir jemand dabei helfen? Ich bekomme dies einfach nicht.
Habt schon mal rechtvielen dank für euer Interesse.
MFG Thomas