Office: Dropdown / SVerweis / Select Case?

Moin Team,

folgendes Problem:

Ich hab ein Arbeitsblatt, wo ich in einer bestimmten Spalte (R) per Dropdown ein Seminar auswählen kann. Wenn ich ein Seminar ausgewählt habe möchte ich, dass er mir in den daneben liegenden Spalten den Titel (Q), Datum (S), Kosten (T) etc. nach auswählen des Seminars anzeigt.

Ich hab den SVERWEIS soweit programmiert (zB TitelEinfügen) und dachte, da es an die 30 Seminare sind, dass man dies vielleicht mit einer Select Case Anweisung machen kann (oder reícht doch eine normale If Else Anweisung)

Meine Gehversuche:

Sub TestModul()

Dim varGruppe As Variant 'vielleicht auch lieber String?
Dim Bereich As Range

With Worksheets("Anmeldungen")
Set Bereich = .Range("R2:RZ1000")

Select Case varGruppe
Case Is = "11-JD-1-101"

' lasse ich die "" weg macht Excel automatisch 11 - JD - 1 - 101

Call TitelEinfügen
Case Is = "11-JD-1-201"
Call TitelEinfügen
End Select

'usw

End With

Set Bereich = ?

End Sub

Er zeigt mir keine Fehler an, aber es kommt im gewünschten Feld leider auch kein Ergebnis.

Wie immer danke ich den Helfern für ihre Hilfe.

Gruß

 

ich hätte es ohne VBA gelöst
http://hajo-excel.de/chCounter3/getfile.php?id=129

 

danke für den tipp hajo, aber ich möchte, dass die zellen automatisch gefüllt werden wenn ich einen wert aus dem listenfeld auswähle.

Die Liste sieht so aus:

Seminar | Titel | Datum | Ort

Jetzt hab ich ein Arbeitsblatt wo die Seminare (immer noch 30) über einen Namen (Listenfeld) definiert sind, das sieht dann im anzuzeigenden Arbeitsblatt wie folgt aus

Listenfeld | | |

Jetzt möchte ich, dass er sobald ich einen Wert aus der Liste aus wähle die Felder "Titel", "Datum", "Ort" automatisch ausfüllt.
(die vorher leer sind, da kein Wert am Anfang da steht)

Eine Formel dafür könnte lauten:

=WENN(ISTFEHLER(SVERWEIS($Q8;DDown_Termine!$A:$E;2;FALSCH));"";SVERWEIS($Q8;DDown_Termine!$A:$E;2;FALSCH))

Diese funktioniert auch - klasse!

Aber ich möchte, dass er diese Prozedur für jede Zeile in der etwas steht ausführt und darüber hinaus die Formel nicht anzeigt wenn ich auf die zelle klicke.

Ich hoffe ich konnte mich verständlich genung ausdrücken.

Gruß



P.S.: Skype wäre in manchen (solchen) Fällen echt mal ne Alternative :)

 

Du könntest, grob gesagt, folgendes machen:
* Das "OnChange" Event abgreifen und überprüfen, ob in der passenden Spalte für das Seminar eine Änderung erfolgte. [target.column=seminarspalte]
* Wenn ja, dann die o.a. Formel in die Zellen neben der geänderten Zelle einfügen. [cells(y,x).formula="..."]
* Danach die Ergebnisse kopieren und als feste Werte wieder einfügen. [cells().copy : cells().pastespecial]

Damit hättest Du dann die Kombination aus Deiner Formel, aber auch dem "Formel nicht anzeigen". Und in VBA ist es außerdem auch noch... ;-)

Gruß, Michael