Es gibt zwei Tabellenblätter. VORLAGE wird durchsucht nach Produkt, das in Kalkulation in Spalte A steht. Zudem soll Zeile 16 in VORLAGE durchsucht werden nach Kunde, der in Kalkulation Spalte B steht.
Die Kombination aus Zeile und Spalte in VORLAGE soll dann nach Kalkulation in Spalte D kopiert werden.
Danke schon mal!
Hier der Code bisher:
Sub Kalkulation()
Dim wsQuelle As Worksheet
Dim wsZiel As Worksheet
Dim produktAnfang As Double
Dim produktEnde As Double
Dim anfangSuchen As Long
Dim endeSuchen As Long
Dim i As Integer
Dim j As Integer
Dim h As Integer
Set wsQuelle = Worksheets("VORLAGE")
Set wsZiel = Worksheets("Kalkulation")
j = 10
h = 8
' Wenn in VORLAGE Produkt dem entspricht aus Kalkulation und der Kunde ausgewählt ist, dann soll er den Preis heranziehen
For i = 17 To 44
If (wsVORLAGE.Range("B" & i).Value = wsKalkulation.Range("A" & j).Value And wsVORLAGE.Cells(16, h).Value = wsKalkulation.Range("B" & j).Value) Then
wsZiel.Range("D" & j).Value = wsQuelle.Cells(h, i).Value
j = j + 1
h = h + 1
i = i + 1
End If
Next
End Sub