Ich würde gerne in Tabellenblatt "SB" Produktnamen eingeben, diese dann mit einer Preisliste (Spalte A: Produktname, Spalte B: Preis hinterlegt) abgleichen, so das es mir im Tabellenblatt "SB" in der Spalte daneben für die ausgewählten Produkte direkt einen Preis ausgiebt. Habe mich ein wenig dran versucht komme aber nicht wirklich weiter. Habe mal meinen mickrigen Code angehangen.
Würde mich über ein paar Tipps freuen
Gruss
Florian
Sub Calculate1()
Worksheets("SB").Activate
Dim rng As Range
rng = Worksheets("Tabelle1").Range(3, 1 - 100, 1)
Dim i As Integer
i = 6
Dim Material As String
Do
If Material.Value = rng.Value Then
Material , 2 = rng, 2
End If
i = i + 1
Loop
End Sub