Zwei Spalten Loop mit 3x Wenn dann VBA

Liebe Herber Community Mitglieder,
ich wäre für eure Hilfe bei folgendem Problem sehr dankbar. Es zerbricht mir den Kopf:
Es gibt ein Tabellenblatt "Lager" und eins " Lieferungen"
In Lieferungen steht der Produkt Code in Spalte "X" (21.).
In Lager steht der Produkt Code in Spalte "B".
Die Idee ist ein Buchungsknopf der die Bestellungen in "Lieferungen" kopiert und mit .PasteSpecial Operation:=xlAdd zu den Beständen des jeweiligen Artikels in "Lager" addiert wenn in Spalte "W" in "Lieferungen" der Status "Geliefert" steht.
Die zu kopierenden Informationen sind kg in Spalte "P" und Preis in Spalte "Q" in "Lieferungen". Sie werden dazu benutzt den neuen Durchschnitts EK des aktuellen Bestandes zu berechnen. Das Ziel dieser kopierten Werte ist in Lager und hängt davon ab welcher Lagerstandort in Lieferungen Spalte "U" (17.) definiert ist.
In Lager wird eingefügt: für Lager 1 in M-N; für Lager 2 in Q-R; für Lager 3 in U-V, für Lager 4 in AD-AE
'Summewenns' und 'Index in Kombination mit Vergleich' haben sich nicht als zufriedenstellend in dieser Situation erwiesen weil tatsächlich gebucht werden soll und die gelieferten Bestellungen in ein Archiv Blatt kopiert werden mit dem gleichen Makro.
Ich hoffe ich konnte das Problem verständlich erklären.
Ich bin für jegliche Ratschläge offen und lerne gerne.
Viele Grüße
Phil

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Sverweis() Dim Z As Range With Worksheets("Tabelle") For Each Z In Range(.Range("A2"), .Range("A99999").End(xlUp)).Cells Z.Offset(0, 1) = WorksheetFunction.VLookup(Z.Value, Worksheets("Tabelle2").Range("A:B"), 2, 0) Next End With End Sub

Private Sub CommandButton1_Click() Dim wb As Workbook Dim Bu As Worksheet Dim LA As Worksheet Dim Z As Range Dim kg As Integer Application.ScreenUpdating = False Set Bu = Sheets("Buchungen") Set LA = Sheets("Lager") With Worksheets("Lager") For Each Z In LA.Range(LA.Range("B8"), LA.Range("B300").End(xlUp)).Cells kg = WorksheetFunction.Index(Bu.Range("B8:B300"), WorksheetFunction.Match(Bu.Cells(Z, 2).Value, Bu.Range("AD6:AD300")), 0) If kg > 0 Then Cells(Z, 13).Value = Cells(Z, 13).Value + kg End If Next End With Application.ScreenUpdating = True End Sub

Private Sub CommandButton1_Click() Dim wb As Workbook Dim Bu As Worksheet Dim LA As Worksheet Dim Z As Range Dim kg As Variant Application.ScreenUpdating = False Set Bu = Sheets("Buchungen") Set LA = Sheets("Lager") With Worksheets("Lager") For Each Z In LA.Range(LA.Range("B8"), LA.Range("B300").End(xlUp)).Cells kg = WorksheetFunction.Index(Bu.Range("AD6:AD300"), WorksheetFunction.Match(Cells(Z.Row, 30).Value, Bu.Range("AD6:AD300")), 0) If kg > 0 Then LA.Cells(Z.Row, 13).Value = LA.Cells(Z.Row, 13).Value + kg End If Next End With Application.ScreenUpdating = True End Sub

Danke dir für deinen Hinweis, das hat mir geholfen die Index Match Funktion zu korrigieren. zumindest zu einem Teil. Denn selbst wenn ich simpel schreibe gib mir den Wert in Zeile 24, Spalte 4 wie unten in bold dann wirft er mir trotzdem einen Fehler raus 'Index Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden'.


Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim Bu As Worksheet
Dim LA As Worksheet
Dim Z As Range
Dim kg As Variant
Application.ScreenUpdating = False
Set Bu = Sheets("Buchungen")
Set LA = Sheets("Lager")
With Worksheets("Lager_Algeba")
For Each Z In LA.Range(LA.Range("B8"), LA.Range("B300").End(xlUp)).Cells
kg = WorksheetFunction.Index(Bu.Range("AD6:AL300"), 24, 4, 0)
MsgBox "kg beträgt " & kg
If kg > 0 Then
LA.Cells(Z.Row, 13).Value = LA.Cells(Z.Row, 13).Value + kg
End If
Next
End With
Application.ScreenUpdating = True
End Sub

Ich verstehe an diesem Punkt einfach nicht was ich falsch mache. Wenn es etwas damit zu tun hat was Yal meinte, dass Index einen Array herausgeben kann den ich nicht in einer Variable speichern kann die Variant oder Integer ist dann verstehe ich Index Match nicht mehr. Im Workbook hat mri die Kombination immer den Wert von der Kreuzung aus 'x' und 'y' Koordinate gegeben. Ich bitte um Hilfe, ich muss das gelöst bekommen.
Viele Grüße und vielen Dank für eure Geduld.
Phil

Beliebteste Forumthreads (12 Monate)

Zwei Spalten Loop mit 3x Wenn dann VBA

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zwei Spalten Loop mit 3x Wenn dann VBA

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread