Textboxeintrag in Spalte A suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox1_Change() Dim lLetzte As Long Dim Zelle As Range Dim firstAdr As String Dim Nachname As String Nachname = ActiveSheet.TextBox1 lLetzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row With ActiveSheet.Range("A4:A" & lLetzte) Set Zelle = .Find(Nachname, LookIn:=xlValues, lookat:=xlPart) If Not Zelle Is Nothing Then firstAdr = Zelle.Address Do Zelle.Select Set Zelle = .FindNext(Zelle) Loop While Not Zelle Is Nothing And Zelle.Address <> firstAdr Else MsgBox "Der Name " & Nachname & _ " wurde nicht gefunden.", _ 16, " Den gesuchten Namen gibt es nicht." End If End With End Sub

Hallo Harald,
Hier meine Alternative. Sie markiert während der Eingabe die Zelle gelb und scrolled den Bildschirm. Dazu sollte das Fenster unterhalb der 3. Zeile fixiert werden! Beim Verlassen der Textbox wird die Zelle mit dem zuletzt gefundenen Befriff selektiert.


Private Sub TextBox1_Change()
'Markiert die Zelle, die mit dem gesuchten Begriff beginnt
Dim Zelle As Range, Bereich As Range
With ActiveSheet
Set Bereich = .Range("A4:A" & .UsedRange.Row + .UsedRange.Rows.Count - 1)
End With
If TextBox1.Value = "" Then
Range("A4").Activate
Bereich.Interior.ColorIndex = xlColorIndexNone
ActiveWindow.ScrollRow = 4
TextBox1.Activate
Exit Sub
End If
For Each Zelle In Bereich
If Left(Zelle.Value, Len(TextBox1.Value)) = TextBox1.Value Then
Zelle.Activate
Bereich.Interior.ColorIndex = xlColorIndexNone
Zelle.Interior.ColorIndex = 6
ActiveWindow.ScrollRow = Zelle.Row
TextBox1.Activate
Exit For
End If
Next Zelle
End Sub
Private Sub TextBox1_LostFocus()
'Beim Verlassen wird die Zelle mit dem gesuchten Text selektiert und Farbmarkierung zurückgesetzt
Dim Zelle As Range, Bereich As Range
With ActiveSheet
Set Bereich = .Range("A4:A" & .UsedRange.Row + .UsedRange.Rows.Count - 1)
End With
If TextBox1.Value = "" Then
Bereich.Interior.ColorIndex = xlColorIndexNone
ActiveSheet.Range("A4").Select
Exit Sub
End If
For Each Zelle In Bereich
If Left(Zelle.Value, Len(TextBox1.Value)) = TextBox1.Value Then
Zelle.Interior.ColorIndex = xlColorIndexNone
Zelle.Select
Exit For
End If
Next Zelle
End Sub

Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Textboxeintrag in Spalte A suchen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textboxeintrag in Spalte A suchen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread