So, nun bräucht ich mal Eure Hilfe
Hab folgendes Makro geschrieben
ZitatAlles anzeigen
Sub suchen()
'
'suchen Makro
'Sub TitelSuchen()
Dim rngFind As Range
Dim strTitel As String
strTitel = InputBox("Kundensuche (Name, Kennzeichen etc eingeben):", "Kundennamen eingeben", , 5, 5)
Set rngFind = Columns("A:CJ").Find(strTitel, _
LookIn:=xlValues)
If Not rngFind Is Nothing Then
rngFind.Select
Else
MsgBox "Kunde nicht vorhanden"
End If
'
End Sub
Ich bräuchte folgendes:
a)
Wie kann ich das Ergebnis farblich hinterlegt anzeigen lassen ? Momentan ist es so, dass er zu der Zeile (dem Ergebnis) springt, mehr aber auch nicht. Da es eine sehr lange Liste ist, sieht man nicht immer gleich wo der Cursor (das Rechteck von Excel) ist. Eine farbliche Darstellung würde sehr helfen.
b)
bei gleichen Kundennamen springt er natürlich zum erst gefundenen, den zweiten zeigt er erst garnicht an. Ist ja auch richtig. Wer sich mit Excel auskennt weis das man dann einfach "Strg+F" drückt und weitersuchen macht. Leider kennt das niemand sonst ausser mir, und so finden meine Angestellten die Kunden dann nicht.
Wäre jemand so nett und würde mein Makro von oben "anpassen" ?
Wär klasse wenn das jemand machen könnte
Vielen Dank im Voraus !
Grüße
Spoon
Tante Edit: Ich hab von Excel nicht viel Ahnung, das Makro oben hab ich mir im Inet zurecht gesucht und gebastelt