Supportnet / Forum / Tabellenkalkulation
Excel Suche aus Liste mit Einfärbung
Frage
Hallo,
ich habe eine Tabelle mit mehreren Spalten.
Nun möchte ich ausgehend von Spalte "x" alle
vorhanden Zellen auf ihr vorhandensein im Bereich
A:W prüfen und die Zellen welche ich Spalte X vorhanden sind sollten zusätzlich im Bereich A:W
eingefärbt werden.
Vielen Dank für die Hilfe im voraus.
Gruß Whyper
Antwort 1 von Saarbauer
Hallo,
die einfachste Lösung ist eine bedingte Formartierung.
Zu finden unter "Format", "Bedingte Formatierung"
Mit besten Grüßen
Helmut
die einfachste Lösung ist eine bedingte Formartierung.
Zu finden unter "Format", "Bedingte Formatierung"
Mit besten Grüßen
Helmut
Antwort 2 von kilschewski
Hi,
dann hab ich mich wohl nicht so klar verständlich gemacht. Alle Werte aus Spalte "X" sollen gleichzeitig geprüft werden ob sie im Bereich A:W vorhanden sind und sich einfärben.
Gruß Whyper
dann hab ich mich wohl nicht so klar verständlich gemacht. Alle Werte aus Spalte "X" sollen gleichzeitig geprüft werden ob sie im Bereich A:W vorhanden sind und sich einfärben.
Gruß Whyper
Antwort 3 von coros
Moin Whyper,
kopiere nachfolgendes Makro in ein StandardModul und weise es einer Schaltfläche zu.
Bei obigem Makro wird der Bereich A:W mit der Spalte X verglichen. Bei allen Werten, die in Spalte X vorkommen werden die Hintergründe grün eingefärbt.
Ich hoffe, Du hast das so gemeint. Bei Fragen oder Problemen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
kopiere nachfolgendes Makro in ein StandardModul und weise es einer Schaltfläche zu.
Option Explicit
Sub Übereinstimmungen_finden()
Dim Letzte_Zeile As Long, Wiederholungen As Long, _
Suchbegriff As Range, Addresse As String
Letzte_Zeile = Range("X65536").End(xlUp).Row
For Wiederholungen = 1 To Letzte_Zeile
With Worksheets(1).Range("A1:W65536")
Set Suchbegriff = .Find(What:=Cells(Wiederholungen, 24), LookIn:=xlValues)
If Not Suchbegriff Is Nothing Then
Addresse = Suchbegriff.Address
Do
Suchbegriff.Interior.ColorIndex = 4
Set Suchbegriff = .FindNext(Suchbegriff)
Loop While Not Suchbegriff Is Nothing And Suchbegriff.Address <> Addresse
End If
End With
Next
End SubBei obigem Makro wird der Bereich A:W mit der Spalte X verglichen. Bei allen Werten, die in Spalte X vorkommen werden die Hintergründe grün eingefärbt.
Ich hoffe, Du hast das so gemeint. Bei Fragen oder Problemen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
MfG,
coros
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von wodka
na leute alles klar bei euch
Antwort 5 von wodka
Na Bundi wat geht *Z* Bundi
Antwort 6 von kilschewski
Danke coros,
mit deiner Korrektur
Option Explicit
Sub Übereinstimmungen_finden()
Dim Letzte_Zeile As Long, Wiederholungen As Long, _
Suchbegriff As Range, Addresse As String
Letzte_Zeile = Range("AE65536").End(xlUp).Row ´Spalte was geprüft werden soll (alles da Ende unbekannt)
For Wiederholungen = 6 To Letzte_Zeile ´ (6= ab welcher Zeile gebrüft wird)
With Worksheets(1).Range("A6:ab7006") ´Bereich wo Werte stehen
Set Suchbegriff = .Find(What:=Cells(Wiederholungen, 31), LookIn:=xlValues) ´ (31= Spalten Nummer wo der Suchbegriff steht)
If Not Suchbegriff Is Nothing Then
Addresse = Suchbegriff.Address
Do
Suchbegriff.Interior.ColorIndex = 4 ´Farbe grün
Set Suchbegriff = .FindNext(Suchbegriff)
Loop While Not Suchbegriff Is Nothing And Suchbegriff.Address <> Addresse
End If
End With
Next
End Sub
hat es super gekklappt.
Gruß Whyper
mit deiner Korrektur
Option Explicit
Sub Übereinstimmungen_finden()
Dim Letzte_Zeile As Long, Wiederholungen As Long, _
Suchbegriff As Range, Addresse As String
Letzte_Zeile = Range("AE65536").End(xlUp).Row ´Spalte was geprüft werden soll (alles da Ende unbekannt)
For Wiederholungen = 6 To Letzte_Zeile ´ (6= ab welcher Zeile gebrüft wird)
With Worksheets(1).Range("A6:ab7006") ´Bereich wo Werte stehen
Set Suchbegriff = .Find(What:=Cells(Wiederholungen, 31), LookIn:=xlValues) ´ (31= Spalten Nummer wo der Suchbegriff steht)
If Not Suchbegriff Is Nothing Then
Addresse = Suchbegriff.Address
Do
Suchbegriff.Interior.ColorIndex = 4 ´Farbe grün
Set Suchbegriff = .FindNext(Suchbegriff)
Loop While Not Suchbegriff Is Nothing And Suchbegriff.Address <> Addresse
End If
End With
Next
End Sub
hat es super gekklappt.
Gruß Whyper