habe über das Forum folgendes Makro erhalten:
'----------- Zellenformat mit 00 oder - Zeichen ---------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
'Range("E:E") ist der überwachte Berecih, bitte anpassen:
If Not Intersect(Target, Range("GG:GG")) Is Nothing Then
'If Not Intersect(Target, Range("G:G", "AA:AA")) Is Nothing Then
Application.EnableEvents = False
With Target
'Wenn - an 2.Stelle:
If Mid(.Text, 2, 1) = "-" Then
.Value = Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Target, "-", ""), " ", "")
.NumberFormat = "0 ""-"" 000 00000"
'Wenn Eingabe mit 06 beginnt:
'ElseIf Left(.Text, 2) = "06" Then
ElseIf Left(.Text, 2) = "00" Or Left(.Text, 1) = "6" Then
' ElseIf Mid(.Text, 2, 2) = "06" Then
.Value = Application.WorksheetFunction.Substitute(Target, " ", "")
.NumberFormat = "0 - 000 00000"
End If
End With
Application.EnableEvents = True
End If
End Sub
In der Zelle sollte bei der Eingabe 0-111612345 das erscheinen: 0 - 111 12345
Oder bei der Eingabe:
0211112345 das erscheinen 02 111 12345.
Wieso funktioniert das nicht mehr ? Habe gerade in der Firma Umstellung auf XP
erhalten, hat das was damit zu tun.
Gruß Walter