Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Prüfen von Werten und Ersetzen von Text durch Bedingung
#1
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.


Angehängte Dateien
.xlsm   Primer1.xlsm (Größe: 28,96 KB / Downloads: 4)
Zitieren
#2
Hallo,

PHP-Code:
    lr Cells(Rows.Count"A").End(xlUp).Row 
Das Ergebnis hier ist lrr = 8.

Die 7777777 in Spalte F steht in 9.

Das funktioniert.

PHP-Code:
   lr Cells(Rows.Count"A").End(xlUp).Row

    
  
For 8 To lr
    
If .Cells(i2).Value Like "Top" Then
.Cells(i3).Value "Int"

    jr Cells(Rows.Count"F").End(xlUp).Row
  
  
For 8 To jr 
Gruß Kalk
Zitieren
#3
Vielen Dank für die Mühen - ist jetzt erledigt.
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions