Excel Zeile suchen und markieren
13.08.2014 15:38:31
Matthias
Ich verwende einen CommandButton zum suchen von bestimmten begriffen. Wenn es eine übereinstimmung gab sollen die jeweiligen zeilen gelb markiert werden. nun zu dem Problem: wenn ich was gesucht habe und eine zeile gelb markiert ist, und ich will eine erneute suche ausführen bleibt die alte zeile gelb, ich will sie aber wieder in Ursprungszustand versetzen. Hier ist mein Code:
Private Sub CommandButton2_Click()
Dim suchName As String
Dim zeLLe As Range
Dim markRange As Range
' Bei Diagrammblättern gleich raus
If Not TypeOf ActiveSheet Is Worksheet Then Exit Sub
suchName = InputBox("Name eingeben:", "Suchfeld")
If suchName = "" Then Exit Sub
Application.ScreenUpdating = True
With ActiveSheet
' Alte Markierung löschen
.Range(.Cells(2, 1), .Cells(.Rows.Count, 14).End(xlUp)).Interior.ColorIndex = xlNone
For Each zeLLe In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)).Resize(, 14)
If InStr(LCase(zeLLe), LCase(suchName)) 0 Then
If markRange Is Nothing Then
Set markRange = .Cells(zeLLe.Row, 1).Resize(, 14)
Else
Set markRange = Union(markRange, .Cells(zeLLe.Row, 1).Resize(, 14))
End If
End If
Next
If Not markRange Is Nothing Then
With markRange.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Application.Goto markRange(1), True
Else
MsgBox "nix gefunden", , "gebe bekannt ..."
End If
End With
Application.ScreenUpdating = True
End Sub