Hallo Markus,
Ich hoff die Lösung ist ganz einfach,
ja ist sie… 
- erstelle ein Pulldownfeld (Bezeichnung z.B. Wahl_NAME)
- als Datenbasis nimmst du die Mitarbeiterliste
- wähle die folgenden Spalten aus:
-
- Spalte = Mitarbeiter_ID (ggf. an deine Bezeichnung anpassen)
-
- Spalte = Nachname & " " & Vorname
-
- Spalte = Abteilung
- Eigenschaften Pulldownfeld [Spaltenanzahl]=3
- Eigenschaften Pulldownfeld [Spaltenbreiten]= 0;15;0
Trick: 0 = unsichtbar
- ggf. noch Eigenschaften Pulldownfeld [Nur Listeneinträge]= ja
es wird die ID des Mitarbeiters in der Unfall-Tabelle gespeichert. Angezeigt wird aber Nach- und Vorname. Du kannst aber auch die erste Spalte weglassen und direkt den Namen speichern.
Beim Ereignis [bei Fokusverlust] folgenden VBA-Code eingeben:
Me.Abteilung = Me.Wahl_NAME.column(2)
Column (Spalten) werden bei Pulldownfelder mit 0 durchnummerriert:
- Spalte = Column(0)
- Spalte = Column(1)
- Spalte = Column(2)
um also den Inhalt der 3. Spalte zu übertragen, mußt du Column(2) angeben.
Es sieht hier schlimmer aus, als es hinterher beim Programmieren ist.
Grüße aus Essen
Wolfgang
(Netwolf)