Textfeld aktivieren
28.10.2004 14:40:23
Helmut
habe in Tabelle1 ein Textfeld.
Leider schaffe ich es nicht, daß beim Öffnen der Arbeitsmappe gleich der Cursor in dem Textfeld blinkt. Wer kann mir bei den ? helfen?
Option Explicit
Private Sub TextBox1_Change()
Dim lR As Long
On Error Resume Next
lR = Cells.Find(What:=TextBox1.Value, After:=Range("A3"), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
On Error GoTo 0
If lR > 0 Then
ActiveWindow.ScrollRow = lR
End If
End Sub
Private Sub Workbook_Open()
'Worksheets(1).TextBox1.? End Sub
Helmut
Anzeige