Cursor in Textbox 2. Versuch

Hallo,
ich hatte gestern schon mal mein Problem angesprochen, aber die Tipps, die ich bekam, funktionieren nicht richtig.
Ich möchte, dass beim Start des Programmes der Cursor in der Textbox blinkt und keine Zelle Selektiert ist.
Dazu bekam ich von zwei Usern die Codes
sheets("Schulklassen").TbxNachname.Activate und
me.TbxNachname.SetFocus
Das zweite funktioniert gar nicht, und beim ersten wird die Textbox nicht angezeigt. Wenn ich aber in die Textbox schon ein A eingebe mit TbxNachname.value, dann wird schon die erste Zeile mit dem A angezeigt. Wenn ich nur ein Leerzeichen eingebe, wird die Textbox nicht angezeigt. Gebe ich zuerst ein A und dann ein Leerzeichen ein, wird die Textbox zwar richtig angezeigt, d ie Markierung befindet sich aber immer noch in der Zeile mit dem ersten A.
Ich hoffe, dass mir jemand weiterhelfen kann. Im hochgeladenen Beispiel habe ich die Eingabe des A als Textzeile eingefügt (in Workbook_open)
https://www.herber.de/bbs/user/33612.xls
m.f.g.
Harald

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Harald,
Ersetze Deinen Teil, mit diesem:


Private Sub TbxNachname_Change()
'Markiert die Zelle, die mit dem gesuchten Begriff beginnt
Dim Zelle As Range, Bereich As Range
With ActiveSheet
Set Bereich = .Range("A6:A" & .UsedRange.Row + .UsedRange.Rows.Count - 1)
End With
If TbxNachname.Value <> "" And TbxNachname <> " " Then
For Each Zelle In Bereich
If LCase(Left(Zelle.Value, Len(TbxNachname.Value))) = LCase(TbxNachname.Value) Then
' erstes Auftreten der Zeichenfolge ohne Beachtung von Grossbuchstaben suchen)
Zelle.Activate
If zeile > 5 Then
Cells(zeile, "A").Interior.ColorIndex = Farbe
' in vorheriger Zelle Farbe wieder herstellen
End If
zeile = Zelle.Row                   ' Zeile merken
Farbe = Zelle.Interior.ColorIndex   ' Farbe merken
Zelle.Interior.ColorIndex = 34       ' gefundene Zelle hellblau
ActiveWindow.ScrollRow = Zelle.Row - 1
' scrollen zu Zeile über markierter Zeile
TbxNachname.Activate
Exit For
End If
Next Zelle
Else
Cells(zeile, "A").Interior.ColorIndex = Farbe
End If
End Sub

Gruss Hansueli

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Cursor in Textbox 2. Versuch

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread