Denkfehler...
29.04.2005 17:06:40
Christof
Ich hoffe es kann mir einer helfen.
Irgendwo mache ich einen Denkfehler.
VB kommt aus dem script nicht mehr heraus.
Das Programm soll aus einer Tabelle einen Wert auslesen und in einer anderen danach suchen.
Findet er etwas dann soll der Wert in der alten eingetragen werden.
Ist die Tabelle zu ende dann soll er "XXX" eintragen.
Hier das script:
Arbeitszeile = 2
Laufzeile = 8
starting:
Sheets("VIEW ").Select
Produktsoll = Range("I" & Arbeitszeile).Value
If Produktsoll = "" Then GoTo daswarsdenn
suchen:
Sheets("FILES ").Select
Produktist = Range("E" & Laufzeile).Value
If Produktist = Produktsoll Then Labelnummer = Range("A" & Laufzeile).Value: Sheets("ORDERREVIEW ").Select: Range("F" & Arbeitszeile) = Labelnummer: Arbeitszeile = Arbeitszeile + 1: Laufzeile = 8: GoTo starting
If Produktist = "" Then Sheets("ORDERREVIEW ").Select: Range("F" & Arbeitszeile) = XXX: Arbeitszeile = Arbeitszeile + 1: Laufzeile = 8: GoTo starting
Laufzeile = Laufzeile + 1
GoTo suchen
daswarsdenn:
End Sub