Erklärung - neuer Bezug
03.04.2007 15:17:00
Sven
kann mir einer mal diesen Code erklären? Was ist z = 13 ?
With Sheets("Bestand")
For z = 13 To Cells(Rows.Count, 1).End(xlUp).Row
Bestellnummer = Cells(z, 1)
Set c = .Cells.Find(What:=Bestellnummer, LookIn:=xlValues, LookAt:=xlWhole)
Sheets("Bestand").Unprotect Password:="Sommer12" (dieser Teil ist soweit klar)
If Not c Is Nothing Then c(1, 3) = c(1, 2): c(1, 7) = "aktiv" (dieser Teil ist soweit klar)
Next z
Tabelle füge ich bei.
So wie es jetzt ist, wird in der Tabelle "Bestand" einfach der Wert vom Soll in die Spalte IST übertragen.
Was muss ich im Code ändern, um in der Tabelle "Bestand" in der Spalte IST den Wert zu übernehmen, der in der Bestellung steht (Verbindung ist die Bestellnummer)?
https://www.herber.de/bbs/user/41531.zip
Danke und liebe Grüße, Sven