Set rng = ws.Listobjects("tbluidpcr").databodyrange ' usedrange beinhaltet ja auch deine Suchzelle. Das Listobjekt ist die intelligente Tabelle ,die du auch filterst.
ResetMarkierungen mußt du nur einmal aufrufen. Aktuell im If und im Else Zweig. Also einmal außerhalb des if-else Konstruktes.
If Not markierteZellen Is Nothing Then
ResetMarkierungen
End If
innerhalb von "ResetMarkierungen" wird if not markierteZellen .... auch nochmal verwendet. Einmal reicht doch, oder?
|