VBA verwenden

[Cpt-Planlos]

Hi Hubert,

vielen Dank für die Antwort.
Mittlerweile habe ich die Anwendung verstanden und auch schon den Syntax Fehler gefunden.
In der Funktion wurde einmal End Selection, statt End Select verwendet.

Nun kommt aber immer 0 raus, obwohl die Anwendung richtig sein sollte.
   

Ich schätze bei mir scheitert es aktuell am Grundverständnis.

Liebe Grüße
Jakob

[HubertK]

Hei,

in dem Code aus deiner Anfrage gibt es kein Selection. Lade deine Datei doch mal hoch, dann kann ich den Fehler suchen, so ist das schwierig.

[Cpt-Planlos]

Hallo Hubert,

vielen Dank!
Ich habe nun alles nochmal neu gestartet und dann ist der Befehl durchgelaufen.

So sollte es nun alles stimmen. :)

Code:

Function mw(sName As String)
Dim sm(2 To 6), sw(1 To 6), sms, sws
If sName = "" Then
mw = ""
Else
Select Case LCase(Right(sName, 2))
Case "ai", "an", "ay", "dy", "en", "fa", "gi", "hn", "nn", "oy", "pe", _
"ri", "ry", "ua", "uy", "ve", "we"
sm(2) = 1
End Select
Select Case LCase(Right(sName, 3))
Case "ael", "ali", "ain", "bal", "bin", "cal", "cca", "cel", "cin", _
"die", "don", "dre", "ede", "emy", "eon", "gon", "gun", "hel", _
"hka", "iel", "ill", "ini", "kie", "lge", "lon", "lte", "met", _
"mil", "min", "mon", "mud", "nsi", "oah", "obi", "oel", "örn", _
"ole", "oni", "rel", "rge", "ron", "rne", "rre", "rti", "son", _
"ste", "tie", "ton", "uce", "udi", "uel", "uli", "uke", "vid", _
"vin", "win", "xel"
sm(3) = 1
End Select
Select Case LCase(Right(sName, 4))
Case "abel", "akim", "kola", "eike", "eith", "elin", "frid", "gary", _
"hane", "hein", "irin", "mike", "muth", "neth", "ntin", "nuth", _
"önke", "ören", "rene", "rtin", "stas", "tila", "tony", "tore"
sm(4) = 1
End Select
Select Case LCase(Right(sName, 5))
Case "astel", "laude", "dolin", "ronny", "ustel", "ustin", "willi", "willy"
sm(5) = 1
End Select
Select Case LCase(Right(sName, 6))
Case "sascha"
sm(6) = 1
End Select
sms = -Application.Sum(sm)
Select Case LCase(Right(sName, 1))
Case "a", "e", "i", "n", "y"
sw(1) = 1
End Select
Select Case LCase(Right(sName, 2))
Case "ah", "al", "bs", "dl", "el", "et", "id", "il", "it", "ll", "th", _
"ud", "uk"
sw(2) = 1
End Select
Select Case LCase(Right(sName, 3))
Case "ary", "aut", "des", "een", "fer", "got", "ies", "ild", "ind", "jam", _
"ken", "kim", "lar", "len", "lis", "men", "mor", "oan", "ren", "res", _
"rix", "san", "tas", "udy", "urg"
sw(3) = 1
End Select
Select Case LCase(Right(sName, 4))
Case "atie", "borg", "cole", "gard", "gart", "gnes", "gund", "iede", "indy", _
"ines", "iris", "istl", "ldie", "lilo", "lott", "lynn", "oldy", "riam", _
"rien", "smin", "ster", "uste", "vien"
sw(4) = 1
End Select
Select Case LCase(Right(sName, 5))
Case "achel", "agmar", "almut", "doris", "edwig", "heike", "irene", "mandy", _
"meike", "rauke", "reike", "sandy", "sther", "uriel", "velin"
sw(5) = 1
End Select
Select Case LCase(Right(sName, 6))
Case "irsten", "almuth"
sw(6) = 1
End Select
sws = Application.Sum(sw)
If sws + sms = 1 Then
mw = "w"
Else
mw = "m"
End If
End If
End Function

Vielen Dank für eure Hilfe und liebe Grüße

Jakob

[snb]

Benütze Code Tags !!

Wir benützen viele Namen für sowohl Jungs als Mädel: Joep, Pim, Hans, Anne, Ruud, Aleid, René, usw.

[Cpt-Planlos]

Hi SNB,

sorry ich hab keine Ahnung was das ist. :)

[schauan]

Hallöchen,

ich habe in Deinen Beitrag mal die Codetags eingefügt - dann siehst Du den Unterschied.
Wenn Du im VBE Deinen Code eingerückt hast, würde das hier auch so angezeigt - nur im Nachgang leider nicht, weil der Editor Text, den er als normal erkennt, linksbündig einrückt.
In der Symbolleist über der Eingabebox hier ist es der 5. Button von rechts - beim Verweilen dort erscheint der Quicktipp Code

[HKindler]

@snb: bei euch gibt es ernsthaft Mädels, die Hans heißen?

@Cpt-Planlos:
   
Das sind Code-Tags. Oder direkt eingetippt als

PHP-Code:

[code]...[/code] 


[snb]

@HK

Bestimmt & ernsthaft.