Thema Datum  Von Nutzer Rating
Antwort
Rot Überprüfen mehrerer Spalten auf Inhalte VBA
23.12.2017 14:09:06 Simon
Solved
23.12.2017 16:13:53 Gast43806
*****
Solved

Ansicht des Beitrags:
Von:
Simon
Datum:
23.12.2017 14:09:06
Views:
1101
Rating: Antwort:
 Nein
Thema:
Überprüfen mehrerer Spalten auf Inhalte VBA

Hallo VBA Profis,

seit mehreren Stunden versuche ich nun, eine Code für folgendes Problem  zu schreiben:

Meine Excel hat 2 Arbeitsblätter "Check" und "Temp":
In "Temp" sind in den Spalten A bis L eine beliebige Anzahl an Werten aufgelistet, welche ich vorher aus einer anderen Tabele extrahiere.
In "Check" sind in den Spalten A bis L von A1:L10 eine feste Anzahl an Werten aufgelistet, welche als Vorlage dienen.

Nun möchte ich überprüfen, ob jeder einzelne der extrahierten Werte einer Spalte (z.B. A) in "Temp" in der entsprechenden Spalte (A) in "Check" vorkommt. Wenn ein Wert aus "Temp" in "Check" gefunden wurde, soll seine Zelle grün markiert werden. Wenn nicht, soll die Zelle rot markiert werden. Dabei ist zu bedenken, dass die Anzahl der Werte in den Spalten in "Temp" variiert und leere Zellen nicht mehr berücksichtigt werden sollen. Dieser Vorgang soll für alle Spalten A bis L durchgeführt werden. Am Ende soll eine Messagebox mit 2 möglichen Inhalten erscheinen: "All values have been checked and are correct" (falls alle Werte in der Vorlage gefunden wurden) oder "Please check table manually" (falls mindestens 1 Wert nicht gefunden werden konnte).

Am Beispiel der Spalte A sieht es so aus:
 

Spalte A (Check)
Audi
BMW
Mercedes
Volkswagen
Peugeot
Citroen
Dacia
Range Rover
Ferrari
Lamborghini

Spalte A (Temp)
Citroen
Dacia
Lamborghini
Lamborghini
Audi

In diesem Fall würden alle Werte der Spalte A aus "Temp" in der Spalte A aus "Check" vorkommen und müssten entsprechend grün markiert werden.

Meine Überlegung war folgende: Ich beginne mit Spalte A in "Temp". Zunächst ermittle ich die letzte Zeile, welche noch einen Inhalt hat. Anschließend überprüfe ich über eine Schleife, ob jeder Wert in der Spalte A in "Temp" in der selben Spalte A in "Check" vorkommt (über Kombination aus ODER und IDENTISCH, VERGLEICHEN o.Ä.). Wenn dies der Fall ist, färbe ich die Zelle in "Temp" entsprechend und springe zur nächsten, bis ich die letzte zuvor ermittelte Zeile erreiche. Ist der Vorgang für Spalte A abgeschlossen, wiederhole ich das Ganze für B bis L.

Ich wäre für jegliche Hilfe unendlich dankbar!

Liebe Grüße und frohe Weihnachten,
Simon


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Überprüfen mehrerer Spalten auf Inhalte VBA
23.12.2017 14:09:06 Simon
Solved
23.12.2017 16:13:53 Gast43806
*****
Solved