Drop Down

[RPP63]

Ich habe sie noch nicht geöffnet, denn:
Dein Vorhaben geht nur mittels VBA.
Wobei sich die Frage stellt, ob Makros in Eurer Firma überhaupt gestattet sind.

Gruß Ralf

[Daniel65]

Das habe ich fast befürchtet- allerdings wären Makros hier kein problem :19:  

[RPP63]

Lass mir mal ne Stunde Zeit, erstmal ist Mittach angesagt.

Bis später,
Ralf

[Daniel65]

Lass mir mal ne Stunde Zeit, erstmal ist Mittach angesagt.

Bis später,
Ralf

auch zwei! :05:
Mahlzeit!!

[Daniel65]

Lass mir mal ne Stunde Zeit, erstmal ist Mittach angesagt.

Bis später,
Ralf

auch zwei! :05:
Mahlzeit!!


Edit meint noch- die Tabelle ist aktuell noch nicht vollständig- das werden ca 15-20 Einträge werden   

[RPP63]

*Bauchstreichel*

So, ich habe Dir mal kurz was für E8 und V8 im Sheet "Wein" vorbereitet.
An den Code kommst Du mit Rechtsklick auf den Tabellenreiter, Code anzeigen.
Dort befindet sich das Makro:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EventsAn
With Target
  If .Count > 1 Then Exit Sub
  If .Address = "$E$8" Or .Address = "$V$8" Then
     Application.EnableEvents = False
     With WorksheetFunction
        Target = .Index(Tabelle5.Columns("H"), .Match(Target, Tabelle5.Columns("K"), 0))
     End With
  End If
End With
EventsAn: Application.EnableEvents = True
End Sub

Wenn Deine Liste länger wird, musst Du lediglich die Datengültigkeit anpassen.
Allerdings kann ich in einem Forum natürlich keine Projektbegleitung gewährleisten!
Datei im Anhang.

Gruß Ralf

[Daniel65]

Hallo Ralf

schonmal VIELEN DANK für deine Mühe.

Ich habe die Bezüge angepasst- und im Code die Spalten geändert. Allerdings bekomme ich nicht die richtige anzeige.
Ich bekomme zwar im Dropdown die richtige Anzeige (Einträge in Spalte L von Sheet 2)
aber ausgedruckt dann nicht den dazugehörenden Eintrag aus Spalte K in Sheet2  

Ich habs nochmal drangehängt- (vielleicht habe ich auch was falsch verstanden)

wenn das funzt- bin ich auch 1000% fertig (die Bezüge erweitern etc. werde ich dann hinbekommen) 


und du bist mein held :18:

[RPP63]

Hi!
Ja, das ist das, was ich meine.
Bei mir funktioniert es.
Wenn Du die Makros aktiviert hast, kann es eigentlich nur daran liegen, dass Du beim Ändern einmal die Events nicht wieder aktiviert hast (mein Code fängt diesen Fehler normalerweise auf).
Gehe mal in den VBA-Editor,
Einfügen, Modul
und füge dieses Makro ein und lasse es einmal laufen:

Code:

Sub EventsAn()
Application.EnableEvents = True
End Sub

Dann müsste es wieder laufen.

Gruß und bis gleich
Ralf

[Daniel65]

FUNKTINUKKELT!!!!! :05: :05: :05:

Kann mich dich irgendwo kaufen ???    

vielen vielen dank!!!!!

[RPP63]

Hi und Danke fürs Feedback!  :17:
Aber ich entlasse Dich nicht ohne den erhobenen Zeigefinger  :19:
Wenn Du VBA in einer Produktivumgebung einsetzt, solltest Du jederzeit auf Unwägbarkeiten reagieren können.

Und ja: ich bin käuflich!  :P 

Gruß Ralf