+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Prüfen von Werten und Ersetzen von Text durch Bedingung (/thread-28439.html)
Prüfen von Werten und Ersetzen von Text durch Bedingung - MartinSchm - 09.11.2022
Guten Morgen, ihr Lieben.
Hab eine Frage zu VBA Programmierung:
Ausgangssituation: Es gibt eine Tabelle, die mit Kundendaten gefüllt werden soll, denen gemäß der Spalte Ranking eine Rolle zugewiesen werden muss. Das heißt, wenn Ranking = "Top", wird die Rolle "Int" sein, in allen anderen Fällen "No Info".
Es gibt jedoch eine Datenbank "Int - SPD List", mit der eine zusätzliche Prüfung auf Übereinstimmung mit der Kundennummer durchgeführt werden sollte. Und in diesem Fall muss die Rolle von "Int" in "Int - SPD" geändert werden.
Ich habe eine kleine Frage: Was ist in dem in der Anlage angegebenen Fall zu tun? Nämlich dann, wenn in der "Int - SPD-Liste" mehr Werte vorhanden sind, als in der Kundentabelle? Wie ihr im Beispiel sieht, ändert sich in der letzten Zeile der Kundentabelle die Rolle bei "Int - SPD" aus irgendeinem Grund nicht, obwohl es eine Übereinstimmung gibt...
Entschuldige mich vorab falls es unverständlich war und bedanke mich im Voraus für eure Hilfe.
RE: Prüfen von Werten und Ersetzen von Text durch Bedingung - Kalk - 09.11.2022
Hallo,
PHP-Code:
lr = Cells(Rows.Count, "A").End(xlUp).Row
Die 7777777 in Spalte F steht in 9.
Das funktioniert.
PHP-Code:
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 8 To lr
If .Cells(i, 2).Value Like "Top" Then
.Cells(i, 3).Value = "Int"
jr = Cells(Rows.Count, "F").End(xlUp).Row
For j = 8 To jr
RE: Prüfen von Werten und Ersetzen von Text durch Bedingung - MartinSchm - 15.11.2022
Vielen Dank für die Mühen - ist jetzt erledigt.