Hallo,
ganz ehrlich. Ich habe den Code aus dem Forum hier und es funktioniert nicht. also dachte ich, ich mach mal nen neuen Beitrag auf...
Ich möchte, dass der Bereich im Tabellenblatt 2 C9 bis IV9 durch Informationen aus Tabellenblatt 4 B3 bis B17 ersetzt wird.
Beispiel: C9 = 01 D9=04 E9=10 usw....nach Makro.....C9= 01 Apfel D9= 04 Birne E9=10 Kirsche
Ich habe hier vorgegebene Werte von 01 bis 14. Diese sollen nach Makro automatisch in 01 Text bis 14 Text umgewandelt werden.
Folgenden Code habe ich aus dem Internet
Sub A
Sheets("Tabellenblatt 2").Select
If Target.Column <> 3 Or Target.Row <> 9 Then Exit Sub
Application.EnableEvents = False
Range("C9") = WorksheetFunction.VLookup(Target.Value, Sheets("Tabellenblatt 4").Range("B3:B17"), 2, False)
Application.EnableEvents = True
End Sub
Seht ihr hier den Fehler? Habe ich euch genug Informationen gegeben? Oder hat jemand einen komplett anderen Ansatz. Kann ja auch sein, dass der hier ins Leere führt.
Vielen Dank für die Hilfe!
VG
|