Suche über Textbox und Sprung zu gefundener Zeile

[Thomas78]

Hallo liebes Forum,

ich hätte da nach langer Zeit mal wieder eine Frage zu der ich in der Suchfunktion nichts gefunden habe.

Ich habe in meinem Tabellenblatt "Rechnungsbuch" ein ActiveX Textfeld erstellt. Nun würde ich gerne eine Funktion hinzufügen:

• Eingabe einer Rechnungsnummer in dieses Textfeld
  
• durch Betätigen der Entertaste soll eine Suche in Spalte "D" dieses Tabellenblattes gestartet werden
  
• bei Finden der Rechnungsnummer soll zu der entsprechenden Zeile gesprungen werden
  
• was wäre die optimale Herangehensweise falls die Rechnungsnummer mehrfach vorkommt?
  

Ich hoffe das euch diese Angaben reichen, sonst würde ich selbstverständlich eine Beispieldatei einstellen wie es sich gehört. 

Schöne Grüße und vielen Dank im Voraus für eure Hilfe !!!

Thomas

[Flotter Feger]

Hallo,

ich schreibe das zu suchende einfach in eine Zelle ... bei mir ist es F1 ...
Dann eventuell so ...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Dim firstAddress As String
Dim Anzahl As Integer

With Worksheets("Rechnungsbuch")
.Range("D:D").Interior.Color = xlNone
Anzahl = Application.WorksheetFunction.CountIf(.Range("D:D"), .Range("F1"))

   Set c = .Range("D:D").Find(.Range("F1"), LookIn:=xlValues)
   If Not c Is Nothing Then
       firstAddress = c.Address
       Do
           If Anzahl = 1 Then
               c.Select
           Else
               c.Interior.Color = 255
           End If
           Set c = .Range("D:D").FindNext(c)
       Loop While Not c Is Nothing And c.Address <> firstAddress
   End If
End With
End Sub

[Thomas78]

Hallo Sabina,

vielen Dank für deine schnelle Rückmeldung. Interessanter Ansatz, wobei mir das einfärben nicht so gut gefällt als Lösung. 
Wie müsste ich es denn umschreiben dass er mir zu der gefundenen Rechnungsnummer springt?

Danke!

[Kuwer]

Hallo Thomas,

markiere Spalte D und öffne Suchmaske mit Tastenkombination Strg+f .

Gruß Uwe

[Gast 123]

Hallo Thomas

man kann wie Uwe vorgeschagen hat konventionelle über Excel Suchfunktion suchen.  Oder das sehr schöne Makro von Flotter Feger nutzen, indem man den Suchwert in eine Zelle gibt und das Makro startet.  Kleine Anederung für dieses Makro:  da wo Else steht kann man eine Msgbox mit If Then einfügen, und den Suchlauf über Nein stoppen.  

Else 
   If MsgBox("Weitersuchen??", vbYesNo) = vbNo Then Exit Sub
end if

mfg  Gast 123

[Thomas78]

Danke an euch alle.

Ich probiers jetzt erstmal mit Strg-F

Schöne Grüße

[Igelbauer]

Hi,
meine kleine Suchbox hat schon ein paar Freunde gefunden.
Könnte auch noch etwas angepasst werden.
Beispieldatei angefügt.
Gruss Igel

[Thomas78]

Hallo Igel,

auch dir ein herzliches Dankeschön. Deine Suchbox gefällt mir sehr gut, ich denke die werde ich die nächste Zeit ausprobieren.

Schöne Grüße

Thomas