Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

UF TB Format für Telefonnummer

Betrifft: UF TB Format für Telefonnummer von: Peter
Geschrieben am: 24.09.2020 16:46:36

Hallo,
um ein Datum in einer Textbox als Vorgabe einzugeben, benutze ich auszugsweise folgenden Code:

Private Sub TextBox13_Change()
    'Anfang Datum "." Vorgabe und Begrenzung in Eigenschaften der TextBox1 unter MaxLength auf  _
10 Stellen eingestellt
    If TextBox1.Tag = "1" = True Then Exit Sub

    If Len(TextBox1) = 2 Then
        If InStr(TextBox1, ".") = 0 Then TextBox1 = TextBox1 & "."
    ElseIf Len(TextBox1) = 5 Then
        If Len(TextBox1) - Len(Application.Substitute(TextBox1, ".", "")) < 2 Then
            TextBox1 = TextBox1 & "."
        End If
    End If
    'Ende Datum "." Vorgabe und Begrenzung in Eigenschaften der TextBox1 unter MaxLength auf 10  _
Stellen eingestellt
Kann mir bitte geholfen werden, um eine Telefonnummer entsprechend mit +49 einzugeben.

Z. B. +049 172 572 300

Besten Dank

Gruss
Peter

Betrifft: AW: UF TB Format für Telefonnummer
von: Hajo_Zi
Geschrieben am: 24.09.2020 16:55:06

Hallo Peter,

If Left(TextBox13),1)<>"+" then
TextBox13="+49" &TextBox13
End if

GrußformelHomepage

Betrifft: AW: UF TB Format für Telefonnummer
von: Peter
Geschrieben am: 24.09.2020 17:10:22

Hallo Hajo,
geht leider nicht.
If Left(TextBox13, 1) = 0 Then
    TextBox13 = "+49"
end if
Dieser Code fügt statt der 0 die +49 ein.

Jetzt benötige ich aber als nächtes ein Leerzeichen und dann die Nummer jeweils mit 3 Stellen dann wieder Leerzeichen.

Kannst Du mir hierbei bitte helfen.

Gruss
Peter

Betrifft: AW: UF TB Format für Telefonnummer
von: Hajo_Zi
Geschrieben am: 24.09.2020 17:11:59

Hallo Peter,

If Left(TextBox13, 1) = 0 Then
TextBox13 = "+49 " & Mid(Textbox13,2)
end if

Gruß Hajo

Betrifft: AW: UF TB Format für Telefonnummer
von: Peter
Geschrieben am: 24.09.2020 17:23:05

Hallo Hajo,
das mit dem Abstand und dem Einfügen der Nummer ist perfekt.

Ist eine Anzahl der max. Stellen sinnvoll?

Gruss
Peter

Betrifft: AW: UF TB Format für Telefonnummer
von: Hajo_Zi
Geschrieben am: 24.09.2020 17:24:49

Hallo Peter,

warum? In Excelzelle glaube ich werden max. 255 Zeichen angezeigt.

Gruß Hajo

Betrifft: AW: UF TB Format für Telefonnummer erledigt
von: Peter
Geschrieben am: 24.09.2020 17:26:06

Hallo Hajo,
nochmals besten Dank für Deine Hilfe.

Gruss
Peter

Betrifft: AW: UF TB Format für Telefonnummer
von: Peter
Geschrieben am: 26.09.2020 12:52:00

Hallo,

ich habe das bisherige Makro umgebaut. Es soll nach der Umwandlung von "0" in "+49" jede 3. Stelle ein Leerzeichen bzw. ein Komma einfügen.

Mein bisheriger Code lautet:
Private Sub TextBox14_Change()

    'Anfang Telefonnummer "." Vorgabe und Begrenzung in Eigenschaften der TextBox1 unter  _
MaxLength auf 10 Stellen eingestellt
    If TextBox14.Tag = "1" = True Then Exit Sub



    If Left(TextBox14, 1) = 0 Then  'funktioniert
        TextBox14 = "+49 "

    ElseIf Len(TextBox14) = 7 Then  'funktioniert   1. drei
        If Len(TextBox14) - Len(Application.Substitute(TextBox14, ".", "")) < 2 Then
            TextBox14 = TextBox14 & "."
        End If

    ElseIf Len(TextBox14) = 11 Then  'funktioniert  2. drei
        If Len(TextBox14) - Len(Application.Substitute(TextBox14, ".", "")) < 2 Then
            TextBox14 = TextBox14 & "."
        End If

    ElseIf Len(TextBox14) = 16 Then  'funktioniert nicht
        If Len(TextBox14) - Len(Application.Substitute(TextBox14, ".", "")) < 2 Then
            TextBox14 = TextBox14 & "."
        End If
    

    'Ende Telefonnummer "." Vorgabe und Begrenzung in Eigenschaften der TextBox1 unter  _
MaxLength auf 10 Stellen eingestellt

    End If
End Sub
Das letzte "elseif" funktioniert leider nicht mehr. Könnt ihr mir bitte zeigen, wo der Fehler liegt.

Gruss
Peter

Betrifft: AW: UF TB Format für Telefonnummer
von: Hajo_Zi
Geschrieben am: 27.09.2020 15:39:03

Hallo Peter,

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

http://www.excel-ist-sexy.de/bilder-statt-datei/

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

Gruß Hajo

Betrifft: AW: UF TB Format für Telefonnummer
von: Peter
Geschrieben am: 27.09.2020 19:50:40

Hallo Hajo,
besten Dank für Deine Antwort, aber die Angelegenheit hat sich zwischenözeitlich erledigt.

Gruss
Peter

Beiträge aus dem Excel-Forum zum Thema "UF TB Format für Telefonnummer"