Zahlen mit Bindestriche versehen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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 Private Sub Worksheet_Change(ByVal Target As Range) Dim s As String 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 If Len(s) 20 Then Exit Sub Target.NumberFormat = "@" Target.Value = Kartennummer(s) End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim s As String 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 If Len(s) 20 Then Exit Sub Target.NumberFormat = "@" Target.Value = Kartennummer(s) End Sub

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

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlen mit Bindestriche versehen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

8 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread