Funktion Suchen in xl Tabelle
05.10.2012 07:47:57
Wilson
Brauch mal wieder eure Hilfe da ich mit meinen VBA- Kenntnissen nicht mehr weiter komme!
Ich habe folgende Code der mir die Suche nach einer Sachnummer in der Tabelle erleichtert. Code:
Public Sub fktMarkieren()
Dim strSuchen As String
Dim rngEingabe As Range
Worksheets("Tabelle1").Range(Worksheets("Tabelle1").Cells(4, 2), Worksheets("Tabelle1").Cells( _
300, 2)).Select
'Schrift fett rückgängig
Selection.Font.Bold = False
'Schrift Farbe der Zelle rückgängig
Selection.Interior.ColorIndex = xlNone
'Eingabe der gewünschten Sachnummer in die Inputbox
strSuchen = InputBox("Bitte geben Sie die gewünschte Sachnummer ein!", "Sachnummer suchen")
If strSuchen = "" Then Exit Sub
Set rngEingabe = Worksheets("ET").Columns(2).Find(what:=strSuchen, lookat:=xlPart)
If Not rngEingabe Is Nothing Then
'Gefundene Sachnummer wird fett markiert
rngEingabe.Font.Bold = True 'Fett
'Gefundene Sachnummer wird ausgewählt
rngEingabe.Select
'Zelle mit gefundener Sachnummer wird gelb eingefärbt
With rngEingabe.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535 'oder hier eine andere Farbe
'.TintAndShade = 0
'.PatternTintAndShade = 0
End With
Else
MsgBox "Eingegebene Sachnummer ist nicht vorhanden", , "Fehler"
End If
End Sub
Ich habe nun versucht, meine Inputbox mit dem Button "Weitersuchen" zu erweitern, leider ohne Erfolg und ich weiss auch nicht wie ich das hinbekommen soll.
Hoffentlioch habe ich mein Anliegen gut erklärt und ich hoffe dass ihr mir wie bisher auch wieder helfen könnt.
Schon mal vielen Dank!
Viele Grüße