Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Denkfehler...

Denkfehler...
29.04.2005 17:06:40
Christof
Hi,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Erinnert mich stark an die C64-er Zeit...
29.04.2005 17:16:56
Boris
Hi Christof,
...da wurde auch nur mit Zeilennummern, Goto, GoSub etc... programmiert.
Tipp vorab:
Gewöhn dir diese Sprungmarken schnellstmöglich ab.
Zum Thema:
Da du die Variable "Laufzeile" in den If-Abfragen immer wieder mit 8 belegst, kommt´s wahrscheinlich zur Endlosschleife.
Ungetestet.
Lad doch mal ein Beispiel hoch und beschreibe das Problem exakt in Worten.
Grüße Boris
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige