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
Das habe ich fast befürchtet- allerdings wären Makros hier kein problem :19:
Lass mir mal ne Stunde Zeit, erstmal ist Mittach angesagt.
Bis später,
Ralf
(05.05.2015, 12:29)RPP63 schrieb: [ -> ]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
*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
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:
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
FUNKTINUKKELT!!!!! :05: :05: :05:
Kann mich dich irgendwo kaufen ???
vielen vielen dank!!!!!
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