Suche mit Textfeld Werte / Kommentare

Geschätzte Forumsmitglieder,
Ich möchte eine Suchfunktion programmieren welche den Wert aus der Textbox "Suchfeld" im aktiven Tabellenblatt suchen geht.
Die zu durchsuchenden Datensätze sind mit Werten in der Zelle & Kommentaren versehen. Nun weis ich nicht wie ich den Code schreiben muss damit die Suche beides durchläuft (Zellenwerte und Kommentare)
Das erste gefundene Ergebnis soll anschliessend markiert werden.
Vielen Dank für Eure Hilfe!
Gruss Thomas
Hier der bestehende Code:
---------------


Private Sub SuchfeldSTART_Click()
On Error GoTo Fehler
Dim dValue As Double
dValue = Suchfeld.Text
Cells.Find(What:=dValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
Cells.Find(What:="dValue", After:=ActiveCell, LookIn:=xlComments, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
With ActiveCell
Range(.Offset(0, 0), .Offset(0, 2)).Select
End With
Exit Sub
Fehler:
MsgBox "Wert wurde nicht gefunden"
End Sub

-------------

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub SuchfeldSTART_Click() Dim Ergebnis As Range 'Suche auf Zellen Set Ergebnis = Cells.Find(What:=Suchfeld.Text, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) 'Suche auf Kommentar (nur wenn bei Zellen nichts gefunden) If Ergebnis Is Nothing Then _ Set Ergebnis = Cells.Find(What:=Suchfeld.Text, After:=ActiveCell, LookIn:=xlComments, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) 'wenn gefunden, Ergebnis + 2 Zellen rechts auswählen If Not Ergebnis Is Nothing Then Ergebnis.Resize(1, 3).Select Else MsgBox "Wert wurde nicht gefunden" End If End Sub

Hallo Thomas,
Wenn nicht, dann solltest Du Dich unbedingt mal mit dem Objektmodell von Excel beschäftigen.
Wie stellst Du Dir den den die Suche vor, wenn nicht mit der Find-Methode?
Mit dieser musst Du auch 2 x suchen, 1x in Zelleinhalten, 1x in Kommentaren. Das kannst du ja mit dem Makro-Rekorder aufzeichnen und dann den Code bereinigen.
Eine Alternative, wäre durch alle Zellen des zu durchsuchenden Bereichs zu iterieren und dann jedesmal zu testen, wenn ob die Zelle einen Kommentar und dieser den Suchbegriff enthält (unter der Bedingung, dass der Zellinhalt den Suchbegriff nicht enthält). Dies wird aber mit Sicherheit wesentlich langsamer sein, als die .Find-Methode.
Gruess Hansueli
De Ornate non disputandum est!

Dim Zelle as Range Dim dValue As String dValue = Suchfeld.Text Set Zelle = Cells.Find(What:=dValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If Zelle is Nothing then Set Zelle = Cells.Find(What:=dValue, After:=ActiveCell, LookIn:=xlComments, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) End if If Zelle is Nothig then Msgbox "Nicht gefunden" Else Zelle.Resize(, 3).Select End if

Beliebteste Forumthreads (12 Monate)

Suche mit Textfeld Werte / Kommentare

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suche mit Textfeld Werte / Kommentare

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread