Zahlen mit Bindestriche versehen

Lilli · 2019-05-15T14:47:36+00:00

Hallo Ihr lieben, ich bräuchte bitte Hilfe beim Formatieren von Telekom-Kartennummer. ich habe folgendes Code im Netz gefunden: Sub Kartennummer() Dim a, b, c, d a = Left(ActiveCell.Value, 1) b = Mid(ActiveCell.Value, 2, 5) c = Mid(ActiveCell.Value, 7, 5) d = Mid(ActiveCell.Value, 12, 8) e = Right(ActiveCell.Value, 1) ActiveCell.Value = (a & "-" & b & "-" & c & "-" & d & "-" & e) End Sub Ich möchte aber, dass nach jeder Eingabe in den Zellen C2:E150 automatisch mit den Bindestrichen versehen wird. Hier muss ich über jede einzelne Zelle gehen und anklicken. Das Makro habe ich jetzt in einem Modul eingefügt. Kann es da bleiben oder muss ich: Tab - Code Anzeigen und dann dort einfügen ;) Vielen Dank für die Mühe und Feedback im Voraus. Liebe Grüße, Lilli :)

Hallo Lilli,
ich habe keine Ahnung wie eine Sim-Nr oder Mac aussieht. Wie lange sind die und wo sitzen die Striche?
Die grundsätzliche Struktur des Programms ist wie folgt (davon ausgehend, das sich alles in Spalten c-e abspielt):

Option Explicit
Function Kartennummer(s As String) As String
Dim a, b, c, d, e
a = Left(s, 1)
b = Mid(s, 2, 5)
c = Mid(s, 7, 5)
d = Mid(s, 12, 8)
e = Right(s, 1)
Kartennummer = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function
Function SimNummer(s As String) As String
'Hier die Regeln für die Formatierung der Sim-Nummer einfügen
End Function
Function MacNummer(s As String) As String
'Hier die Regeln für die Formatierung der MAC-Nummer einfügen
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String, n As String, c As Long
If Intersect(Target, [C2:E150]) Is Nothing Then Exit Sub
If (Target.Cells.Count > 1) Then Exit Sub
s = Target
If InStr(s, "-") > 0 Then Exit Sub
c = Target.Columns(1) 'hier wird geguckt, in welcher Spalte geändert wurde
If c = 3 Then 'Kartennummer
If Len(s)  20 Then Exit Sub
n = Kartennummer(s)
ElseIf c = 4 Then 'sim-Nr
n = SimNummer(s)
Else  ' c=5 hier steht die ISBN
n = MacNummer(s)
End If
Target.NumberFormat = "@"
Target.Value = n
End Sub

vg, MM

Option Explicit
Function Kartennummer(s As String) As String
Dim a, b, c, d, e
a = Left(s, 1)
b = Mid(s, 2, 5)
c = Mid(s, 7, 5)
d = Mid(s, 12, 8)
e = Right(s, 1)
Kartennummer = a & "-" & b & "-" & c & "-" & d & "-" & e
End Function
Function SimNummer(s As String) As String
'Hier die Regeln für die Formatierung der Sim-Nummer einfügen
End Function
Function MacNummer(s As String) As String
'Hier die Regeln für die Formatierung der MAC-Nummer einfügen
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String, n As String, c As Long
If Intersect(Target, [C2:E150]) Is Nothing Then Exit Sub
If (Target.Cells.Count > 1) Then Exit Sub
s = Target
If InStr(s, "-") > 0 Then Exit Sub
c = Target.Columns(1) 'hier wird geguckt, in welcher Spalte geändert wurde
If c = 3 Then 'Kartennummer
If Len(s)  20 Then Exit Sub
n = Kartennummer(s)
ElseIf c = 4 Then 'sim-Nr
n = SimNummer(s)
Else  ' c=5 hier steht die ISBN
n = MacNummer(s)
End If
Target.NumberFormat = "@"
Target.Value = n
End Sub

vg, MM

Forumthread: Zahlen mit Bindestriche versehen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zahlen mit Bindestrichen versehen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)