Suchfunktion
22.03.2006 10:50:53
Tuvux
Habe mir folgende Suchfunktion eingebaut:
Public
Sub Instrsuche()
Dim intwort, intbereich, intergebnis, intgef As Integer
Dim loletzte As Long
Range("d7:g1000").ClearContents
intgef = 7
loletzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row + 1, 65536)
intwort = InputBox("Welches Ersatzteil suchen Sie?")
For intbereich = 1 To loletzte
If InStr(1, Cells(intbereich, 1), intwort, vbTextCompare) Then
Cells(intgef, 5) = Cells(intbereich, 1)
intergebnis = intbereich
Cells(intgef, 4) = intergebnis
intgef = intgef + 1
End If
Next intbereich
End Sub
So jetzt kommt mein Problem. Ich möchte in einer anderen Tabelle Suchen lassen und zwar nicht nur in der Spalte A, sondern auch in B und C. Weiteres Problem ist, dass beim Abbruch der Suche alle Werte aus dem Bezugsbereich ausgeschpuckt werden. Kann ich das unterbinden?
Grüsse
Tuvux
Anzeige