Hallo zusammen,
ich habe versucht, aus 2 Tabellen Werte miteinander zu vergleichen, um dann andere Werte aus der zweiten Tabelle in der ersten zuzuordnen.
Solange es sich um Werte handelt, die ausschließlich aus Ziffern bestehen, funktioniert die kleine von mir programmierte Routine problemlos.
Handelt es sich bei den zu vergleichenden Werten allerdings um gemischte Daten aus Ziffern und Buchstaben scheitert der Vergleich und die Routine übergeht den Artikel. Alles andere an dieser Routine funktioniert so, wie es soll.
Hat jemand eine Idee, wie ich die Routine ändern kann, so daß der Vergleich auch mit gemischten Werten funktioniert?
Der Fehler tritt auf, egal ob ich die Variablen als "Variant" oder als "String" definiere.
Da ich noch nicht besonders fit auf dem Gebiet der VBA-Programmierung bin, es sich eigentlich erst um meine zweite Programmierung handelt, bin ich mit meinem Latein am Ende.
Ich habe den Quelltext der Routine mal angehängt, in der Hoffnung, daß vielleicht schon jemand direkt sagen kann, was falsch ist.
Es ahndelt sich um den Vergleich in Zeile 9 der nicht funktioniert:
For zeile = 38 To 1468 Step 1
If cells(zeile, 5) "Klauke" Then GoTo Nichts
Artikelnummer = cells(zeile, 4)
Debug.Print Artikelnummer
ActiveWindow.ActivateNext
For zaehler = 3402 To 3643 Step 1
Debug.Print Artikelnummer
Debug.Print cells(zaehler, 1)
If cells(zaehler, 1) = Artikelnummer Then Gruppe = cells(zaehler, 6): GoTo Weiter
Next zaehler
Weiter:
ActiveWindow.ActivateNext
cells(zeile, 8) = Gruppe
Gruppe = ""
Nichts:
Next zeile
End Sub
Für eine Lösung wäre ich sehr dankbar!
Gruß Henning.