TextBox aktivieren
16.05.2007 13:34:20
Ingo
also noch einmal.....
Hallo Leute,
zur Laufzeit bette ich eine Textbox in eine Tabelle ein und lasse bei Bedarf Texte anzeigen.
Beispiel siehe unten.
Klappt fast perfekt - allerdings gelingt es mir nicht gleich den Cursor in der Textbox zu aktivieren.
Beim ersten mal muss noch per Mausklick die Textbox aktiviert werden, um sowohl den Cursor als auch eine evtl. Scrollbar bei längeren Texten anzuzeigen.
Kann ich das noch "irgendwie" in mein Beispiel als Automatismus 'reinkriegen ?
Danke für einen Tip und Gruß, Ingo
Sub Info_Btm_Schwerpunkte()
Dim i As Integer
Dim Hinweisfenster As Object
Set wks_meldung = ThisWorkbook.Sheets("Meldung")
Set Hinweisfenster = wks_meldung.OLEObjects(1)
Call Arr_Strassenverzeichnis_Einlesen
Hinweisfenster.Object.Text = ""
Hinweisfenster.Object.Text = _
"Mehrfachnennung möglich, wenn unterschiedliche Plz / OT" & vbLf &
vbLf
For i = 1 To UBound(Arr_Strassenverzeichnis_Btm_Schwerpunkte, 1)
Hinweisfenster.Object.Text = Hinweisfenster.Object.Text & _
Arr_Strassenverzeichnis_Btm_Schwerpunkte(i, 1) & vbLf
Next i
Hinweisfenster.Object.SelStart = 0
Erase Arr_Strassenverzeichnis()
Erase Arr_Strassenverzeichnis_Btm_Schwerpunkte()
Set wks_meldung = Nothing
End Sub
Anzeige