Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vorname --> männlich oder weiblich?

Vorname --> männlich oder weiblich?
ing.grohn
Hallo Forum,
neulich hab ich im Netz eine Excel-Tabelle gefunden, mit der das Geschlecht aufgrund des Vornamens ermittelt wurde. Jetzt brauch ich das Ding und finde es nicht mehr.
Hat jemand eine Ahnung wo die Tabelle steckt oder ein entsprechendes Tool?
Für die Hilfsbereitschaft bereits hier ein Dankeschön
Mit freundlichen Grüßen
Albrecht

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Mädels / Jungs
08.04.2010 12:42:04
ing.grohn
Hallo WF
genau die richtige Adresse, bedankt!!
wünsche einen regenfreien Tag
Mit freundlichen Grüßen
Albrecht
AW: Vorname --> männlich oder weiblich?
08.04.2010 12:43:51
ing.grohn
Hallo Mustafa,
genau richtig vielen Dank
Mit freundlichen Grüßen
Albrecht
(fahr morgen wieder an Köln vorbei)
Anzeige
AW: Vorname --> männlich oder weiblich?
08.04.2010 14:48:33
Berger
Hallo Albert,
ich habe mich auch mal mit dem Thema beschäftigt und dann "DANK DES FORUMS" diese Funktion geschrieben.
Diese habe ich nun als Add-Inn immer in allen Exceltabellen integriert.
Function Check_Vorname(tarC As Range) As String
Dim errArr() As Variant
Dim WArr() As Variant
Dim MArr() As Variant
Dim UArr() As Variant
Dim i As Integer
Dim w As Integer
Dim m As Integer
Dim e As Integer
w = 0
'Falsche Zeichen im Vornamen
errArr = Array(" und", "&", ".", ",", ";", "!", "?", "+", "*", "#", "/", "1", "2", "3", "4", "5" _
_
, "6", "7", "8", "9", "0", "%", "§")
For i = 0 To UBound(errArr)
If InStr(1, tarC, errArr(i)) > 0 Then
Check_Vorname = "Unzulässiges Zeichen"
Exit Function
End If
Next i
' Unicode Vornamen können männlich oder weiblich sein
UArr = Array("Alexis", "Auguste", "Carol", "Cato", "Chris", "Conny", "Dominique", "Edi", "Eike", _
_
"Elisa", "Folke", "Gabriele", "Gerrit", "Gerti", "Heilwig", "Jamie", "Jean", "Jona", "Kay", " _
Kersten", "Kim", "Laurence", "Leslie", "Maris", "Maxime", "Nicky", "Nicola", "Nikola", "Patrice", "Sandy", "Sanja", "Sascha", "Toni", "Vivien", "Winnie", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
For i = 0 To UBound(UArr)
If tarC = UArr(i) Then
Check_Vorname = "Nicht zuzuordnen"
Exit Function
End If
Next i
' Vorname enthält weibliche Merkmale
WArr = Array("a", "e", "i", "n", "y")
For i = 0 To UBound(WArr)
If Right$(tarC, 1) = WArr(i) Then
w = w + 1
End If
Next i
WArr = Array("ah", "al", "bs", "dl", "el", "et", "id", "il", "it", "ll", "th", "ud", "uk")
For i = 0 To UBound(WArr)
If Right$(tarC, 2) = WArr(i) Then
w = w + 1
End If
Next i
WArr = Array("ary", "aut", "bel", "des", "dis", "een", "efa", "eig", "ett", "fer", "got", "ies", _
_
"ild", "ind", "itt", "jam", "joy", "Joy", "Kim", "lar", "len", "lis", "men", "mor", "oan", " _
ren", "res", "rix", "san", "tas", "udy", "urg", "vig")
For i = 0 To UBound(WArr)
If Right$(tarC, 3) = WArr(i) Then
w = w + 1
End If
Next i
WArr = Array("ardi", "atie", "borg", "cole", "endy", "gard", "gart", "gnes", "gund", "iede", "  _
_
indy", "Ines", "Iris", "iris", "ison", "istl", "ldie", "lilo", "Lilo", "loni", "lott", "lynn", " _
mber", "Moni", "nken", "oldy", "quel", "riam", "rien", "sann", "smin", "ster", "uste", "vian", "vien")
For i = 0 To UBound(WArr)
If Right$(tarC, 4) = WArr(i) Then
w = w + 1
End If
Next i
WArr = Array("achel", "agmar", "Almut", "becca", "Candy", "Doris", "echen", "edwig", "Irene", "  _
_
Mandy", "rauke", "sandy", "sther", "uriel", "velin", "ybill")
For i = 0 To UBound(WArr)
If Right$(tarC, 5) = WArr(i) Then
w = w + 1
End If
Next
WArr = Array("irsten", "Lilian", "Almuth")
For i = 0 To UBound(WArr)
If Right$(tarC, 6) = WArr(i) Then
w = w + 1
End If
Next
' Vorname enthält männliche Merkmale
MArr = Array("ai", "an", "ay", "dy", "en", "ey", "fa", "gi", "hn", "iy", "ki", "nn", "oy", "pe", _
_
"ri", "ry", "ua", "uy", "ve", "we", "zy")
For i = 0 To UBound(MArr)
If InStr(1, Right$(tarC, 2), MArr(i)) > 0 Then
m = m + 1
End If
Next
MArr = Array("ael", "ali", "aid", "ain", "are", "bal", "bby", "bin", "cal", "cca", "cel", "cil", _
_
"cin", "dal", "die", "don", "dre", "ede", "eil", "eit", "emy", "eon", "ffer", "gon", "gun", " _
hal", "hel", "hil", "hka", "iel", "ill", "ini", "kie", "lge", "lon", "lte", "lja", "mal", "met", "mil", "min", "mon", "mre", "mud", "muk", "nid", "nsi", "oah", "obi", "oel", "örn", "ole", "oni", "oly", "phe", "pit", "rcy", "rdi", "rel", "rge", "rka", "ron", "rne", "rre", "rti", "sil", "son", "sse", "ste", "tie", "ton", "uce", "udi", "uel", "uli", "uke", "vel", "vid", "vin", "wel", "win", "xei", "xel")
For i = 0 To UBound(MArr)
If InStr(1, Right$(tarC, 3), MArr(i)) > 0 Then
m = m + 1
End If
Next
MArr = Array("abel", "akim", "asan", "atti", "dres", "eith", "elin", "ence", "ffer", "frid", "  _
_
gary", "gene", "hane", "hein", "idel", "iete", "irin", "jona", "kita", "kola", "lion", "levi", " _
luka", "mike", "muth", "naud", "neth", "nnie", "ntin", "nuth", "ommy", "önke", "ören", "pete", "rene", "ries", "rlin", "rome", "rtin", "stas", "tell", "tila", "tony", "tore", "uele")
For i = 0 To UBound(MArr)
If InStr(1, Right$(tarC, 4), MArr(i)) > 0 Then
m = m + 1
End If
Next
MArr = Array("astel", "benny", "billy", "billi", "elice", "ianni", "laude", "danny", "dolin", "  _
_
ormen", "ronny", "seyin", "ustel", "ustin", "vanni", "willi", "willy")
For i = 0 To UBound(MArr)
If InStr(1, Right$(tarC, 5), MArr(i)) > 0 Then
m = m + 1
End If
Next
MArr = Array("jascha", "squale", "tienne", "vester")
For i = 0 To UBound(MArr)
If InStr(1, Right$(tarC, 6), MArr(i)) > 0 Then
m = m + 1
End If
Next
e = w - m
If e > 0 Then Check_Vorname = "weiblich"
If e = 0 Then Check_Vorname = "männlich"
End Function

Jetzt brauchst du nur noch =Check_Vorname(a1) in die Zelle b1 eingeben und das Ergebnis wird angezeigt.
Es es gibt natürlich eine kleine Fehlerquote wie bei allen Vornamensanalysen.
Aber es trifft bei einer Datenbank von ca. 10.000 Deutschen Vornamen 99,5 %.
Viel Erfolg
Gruß Alfred
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige