title image


Smiley Schnelle VBA-Lösung
Hi Georg,



hier meine VBA-Lösung:



Function V_Gebiet(PLZ As String) As String

Application.Volatile

Select Case Left(PLZ, 2)

    Case "00" To "09"

    V_Gebiet = "Maier"

    Case "10" To "19"

    V_Gebiet = "Müller"

    Case "20" To "29"

    V_Gebiet = "Schulze"

    Case "30" To "39"

    V_Gebiet = "Schmitt"

    Case "40" To "49"

    V_Gebiet = "Hoffmann"

    Case "50" To "59"

    V_Gebiet = "Irgendwer"

    Case "60" To "69"

    V_Gebiet = "Schröder"

    Case "70" To "79"

    V_Gebiet = "Klausimausi64"

    Case "80" To "89"

    V_Gebiet = "Weigel"

    Case "90" To "99"

    V_Gebiet = "Test4711"

    Case Else

    V_Gebiet = "Keine Gültige Postleitzahl!"

End Select

End Function



 Code eingefügt mit Syntaxhighlighter 1.16



In der Tabelle so einsetzen:



Tabelle1 th {font-weight:normal}  AB135635Schmitt279589Klausimausi64380112Weigel423154SchulzeFormeln der TabelleB1 : =V_Gebiet(A1)B2 : =V_Gebiet(A2)B3 : =V_Gebiet(A3)B4 : =V_Gebiet(A4) Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  



CU Klaus

Viele Grüsse

aus dem sonnigen

Markgräflerland!!!

Wissen ist Macht, aber Nix wissen macht auch Nichts!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: