Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ermittlung einer VANITY-Rufnummer

Gruppe

Zeichenfolge

Problem

Der Abdruck von Buchstaben auf der Tastatur der Telefonapparate eröffnet die Möglichkeit, Telefonnummern zu beantragen, deren alphanumerische Umsetzung einen bestimmten Namen ergibt. Wie kann ich aus einer Zeichenfolge die Vanity-Nummer ermitteln?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function Ph700(sTxt As String) As String
   Dim iCounter As Integer, iChr As Integer
   Dim sTmp As String
   sTxt = UCase(sTxt)
   For iCounter = 1 To 8
      iChr = Asc(Mid(sTxt, iCounter, 1)) - 64
      Select Case iChr
         Case Is < 19
            sTmp = sTmp & Fix((iChr - 1) / 3) + 2
         Case Is < 26
            sTmp = sTmp & Fix((iChr - 2) / 3) + 2
         Case Else
            sTmp = sTmp & Fix((iChr - 3) / 3) + 2
      End Select
   Next iCounter
   Ph700 = "0700-" & sTmp
End Function