Der Werner hatte mir etwas Cooles gezeigt:
Offenbar, wenn ich den Kniff "UCase" verwende, führt mein Code eine Filterkopierung unabhängig von der Groß-und Kleinschreibung aus.
Das finde ich klasse und würde ich gerne in eine andere Funktion einbauen:
Aufgabe: Zellen in Spalte "AG" durchsuchen und bei Treffern einfärben.
Ziel: Dass gefärbt wird, unabhängig von Schreibweise.
(Beispiel: Sowohl "Auto", als auch "AuTo" u.dgl.m. werden gefärbt.)
Problem: Kriege "UCase" nicht richtig verbaut.
Anbei mein Code ohne "UCase":
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
For Each Zelle In Range("AG:AG")
'Blattname = UCase(strSearch) Auszug aus Werners Code. Versucht, hier mit dranzubauen. Ohne _
Erfolg.
If InStr(Zelle.Value, "Auto") > 0 Then
Zelle.Interior.ColorIndex = 4
ElseIf InStr(Zelle.Value, "Banane") > 0 Then
Zelle.Interior.ColorIndex = 45
ElseIf InStr(Zelle.Value, "Tomate") > 0 Then
Zelle.Interior.ColorIndex = 6
ElseIf InStr(Zelle.Value, "Panzer") > 0 Then
Zelle.Interior.ColorIndex = 3
ElseIf InStr(Zelle.Value, "Stadion") > 0 Then
Zelle.Interior.ColorIndex = 41
ElseIf InStr(Zelle.Value, "Stadt") > 0 Then
Zelle.Interior.ColorIndex = 38
ElseIf InStr(Zelle.Value, "Winterfell") > 0 Then
Zelle.Interior.ColorIndex = 53
End If
Next Zelle
End Sub
Danke vorab für eure Hilfe!Gruß, Clancy