Spalten auslesen und Wert ausgeben mit W_Change+Se
info@edv-fiegl.de
ich habe ein Problem mit meinem Makro. Ich möchte in Spalte B einige hundert Artikelnummern einkopieren und ein Makro soll mir dann in Spalte C den Wert ausgeben. Das Auslesen des Produktes funzt schon leider bringe ich es nur so hin dass der ausgelesene Wert in eine bestimmte Zelle geschrieben wird, hat jemand eine Idee? Hier mein Code:
Code:
Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Target.Column 2 Then Exit Sub
Select Case Target.Column
' Produktark Joghurt
Case "911110000000" To "915140000000"
Range("C2").Value = "Jog"
Case "91111550" To "91111660"
Range("C2").Value = "Milch"
End Select
Application.EnableEvents = True
End Sub
Danke für die Hilfe!
Anzeige