DropDown andere Werte ausgeben

[DrHigh]

Hallo zusammen,

ich habe ein kleine Problem mit meiner DropDownliste,
ich würde gerne eine List im DropDownMenü andere Werte anzeigen lassen in der Zelle,
habe hier auch einen Artikelgefunden, aber leider bekomme ich eine Fehlermeldung:

"Die folgenden Features können in der Arbeitsmappe ohne Makro nicht ausgeführt werden:
*VB Projekt
Zum Speichern einer Datei mit diesen Features klicken Sie auf Nein ........"

Ich habe Quasi den Code im VBA kopiert und dementsprechend angepasst.

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
On Error Resume Next
Set rng = Range("E6:E106") 'Bereich anpassen
If Not Intersect(rng, Target) Is Nothing Then
    Application.EnableEvents = False
    Target(1, 1).Value = WorksheetFunction.VLookup(Target(1, 1).Value, Tabelle2.Range("A4:A25"), 2, 0)
End If
errmsg:
On Error GoTo 0
Application.EnableEvents = True
End Sub

---

Was mache ich falsch?

Danke im Voraus.

Gruß der Doc

[schauan]

Hallo Doc,

die Fehlermeldung besagt lediglich, dass Du die Datei im falschen Format speichern willst. Wähle beim Format xlsm oder xlsb.

[Rabe]

Hi,

aus diesem Grund speichere ich grundsätzlich alles als xlsb.
Das hat die Vorteile, daß ich nicht drüber nachdenken muß und die Datei kleiner ist.

[DrHigh]

Hallo Schauan,
hallo Rabe,

danke für euren Hinweis,
habe jetzt mal euren Tipp ausprobiert und siehe da,
es funktioniert endlich.
Hatte aber noch einen Fehler im VBA Code, der Range von Tabelle 2 war falsch.

Gruß
Doc.

[RPP63]

Moin!
Dann rate ich mal weiter:
Der Code gehört ins Modul der Tabelle
(Rechtsklick auf Tabellenreiter, Code anzeigen)

Siehe auch hier: http://www.online-excel.de/excel/singsel_vba.php?f=44

Wenn es immer noch nicht funktioniert, solltest Du mal die Datei hochladen.

Gruß Ralf