Textbox-Text in Userform markieren
09.01.2020 12:08:24
M.Bacher
ich habe es geschafft, das beim klick in eine Zelle (bzw. 2 verbundene Zellen) eine Userform startet:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range
Set rng = Me.Range("AN27:AO27")
UserForm3.Height = 140
UserForm3.TextBox1.Value = Range("AN27")
UserForm3.TextBox1.SelStart = 0
UserForm3.TextBox1.SelLength = 4
If Not Intersect(Target, rng) Is Nothing Then UserForm3.Show
End Sub
Der Text wird eingelesen und auch gleich markiert.So soll es sein... eigentlich.
Denn bei der Höhe 140 wird die Textbox1 zunächst nicht dargestellt. Sie liegt tiefer in der Userform.
Man sieht in der Userform aktuell nur zwei CommandButton's.
Der erste heißt "Abbruch" und schließt die Userform wieder. Kein Thema. Der rechts daneben befindliche
soll die Userform erweitern und die Textbox1 freilegen. Geht auch! Aber dann geht die Markierung in der Textbox flöten... Die Anweisung in den Code des Commandbuttons eingetragen, funktioniert aber leider nicht... was mache ich falsch, bzw. muss ich am Code ändern?