Hallo Leute, ich habe folgendes Problem mti meiner Excel Tabelle:
Ich habe einen CommandButton mit Suchfunktion erstellt, der mir bei Übereinstimmung die komplette Zeile gelb markiert.
So weit, so gut. Wenn ich nun einen anderen Suchbegriff über den CommandButton eingebe wird die letzte gefundene Zeile aber nicht mehr zurückgesetzt, sprich das gelb wird nicht rausgelöscht. Er löscht nur in der erste Zeile das Gelb raus.
Des weiteren habe ich noch einen CommandButton, mit dem ich alle Filter rücksetzen möchte, sprich auch die gelb markierten Zeilen löschen, kann mir jemand helfen?
Hier ist der Code für den Such button!
Vielen Dank schonmal
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, 1).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
|