Benötige Hilfe für VBA-Schleife
31.01.2010 16:49:35
Martin S.
Liebe Excel-Profis,
ich habe eine Liste mit zwei Spalten (Spalte 1 mit Festnetzvorwahlen und Spalte 2 mit den dazugehörigen Orten) in ein Array eingelesen:
Dim ArrVorwahlen As Variant
ArrVorwahlen = ThisWorkbook.Worksheets("Vorwahlen").Range("Vorwahlen").Value
Nun möchte ich gerne eine Function schreiben, über die ich die Ortsherkunft von Festnetznummer abfragen kann:
Sub test()
MsgBox Ortsvorwahl("0301234567") 'Beispiel für Potsdam
End Sub
Public Function Ortsvorwahl(TelefonNr As String) As String
'Hier sollte das Array durchsucht und der richtige Ort gefunden werden
'Durchsucht wird i = 1 to Ubound(ArrVorwahlen, 1)
'Treffer: Ortsvorwahl = ArrVorwahlen(i, 2)
End Function
Da die Exceldatei mit den Ortsvorwahlen und Orten leider größer als 300 KB ist, konnte ich diese nur als Textdatei (im CSV-Format) hochladen: https://www.herber.de/bbs/user/67661.txt
Ich befürchte, dass hier eine in sich verschachtelte und/oder rekursive Schleife/Funktion geschrieben werden muss, da die Vorwahlen ja unterschiedlich lang sind und daher nicht so einfach verglichen werden können. Daher wäre ich für Hilfe sehr dankbar!
LG Martin