Erklärung - neuer Bezug | HERBERS Excel Forum

Hallo,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Sven,
ich hab den Code ein klein wenig modifiziert wegen besserer Übersicht in welchen Tabebellen Werte ausgelesen bzw. eingetragen werden.
>
z ist die Variable für den Zeilen-Zähler in der Tabelle Bestellung und beginnt bei Zeile 13.
Gruß
Franz

'bestellung auslösen
Sub Schaltfläche1_BeiKlick()
Dim wksBestell As Worksheet, wksBestand As Worksheet, c As Range, z As Long
Set wksBestell = Worksheets("Bestellung")
Set wksBestand = Worksheets("Bestand")
Application.EnableEvents = False
With wksBestand
.Unprotect Password:="Sommer12"
For z = 13 To wksBestell.Cells(Rows.Count, 1).End(xlUp).Row
Bestellnummer = wksBestell.Cells(z, 1)
'Bestellnummer in Spalte G suchen
Set c = .Columns(7).Cells.Find(What:=Bestellnummer, LookIn:=xlValues, LookAt:=xlWhole) _
If Not c Is Nothing Then
'            c.Offset(0, 2) = c.Offset(0, 1) 'Soll nach IST übertragen
c.Offset(0, 2) = wksBestell.Cells(z, 5) 'Bestellmenge in Spalte IST eintragen
c.Offset(0, 6) = "aktiv"
End If
Next z
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Sommer12"
End With
With wksBestell
.Unprotect Password:="Sommer12"
.Range("a13:e130").Sort Key1:=.Range("c13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'      Range("a13").Select
.PrintOut Copies:=1, Collate:=True
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="Sommer12"
End With
Application.EnableEvents = True
End Sub

Beliebteste Forumthreads (12 Monate)

Erklärung - neuer Bezug

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread