AW: Brauch ne Fantasiefunktion
Reinhard
Hi Kami,
irgendwoher brauchst du eine Vornamensliste, getrennt nach Gechlecht, bzw 2 Listen.
Dann kann es so funtionieren wie hier:
https://www.herber.de/bbs/user/12608.xls
Nachstehend nochmals der Code dazu.
Gruß
Reinhard
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 Then Exit Sub
On Error Resume Next
letzteW = Worksheets("Namen").Range("A65536").End(xlUp).Row
letzteM = Worksheets("Namen").Range("B65536").End(xlUp).Row
For Each Zelle In Target.Cells
If Target.Column = 3 Then
gefW = WorksheetFunction.VLookup(Zelle.Value, Worksheets("Namen").Range("A2:A" & letzteW), 1, 0)
gefM = WorksheetFunction.VLookup(Zelle.Value, Worksheets("Namen").Range("B2:B" & letzteM), 1, 0)
If gefM <> "" Then Target.Offset(0, -1) = "Herr"
If gefW <> "" Then Target.Offset(0, -1) = "Frau"
End If
Next Zelle
End Sub