AW: Muß, leider
01.02.2006 12:31:40
Matthias
Hallo Walter,
wenn eine Zelle mit "-" in der Mitte eingegeben wird ist das keine Zahl mehr, somit greift das Zahlenformat nicht.
Du kannst es mit einem Makro lösen:
In Tabellenblatt-Modul:
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("E:E")) Is Nothing Then
If Mid(Target, 2, 1) = "-" Then
Application.EnableEvents = False
Target = Application.WorksheetFunction.Substitute(Application.WorksheetFunction.Substitute(Target, "-", ""), " ", "")
Application.EnableEvents = True
End If
End If
End Sub
Das Zellformat muss sein: 0 "-" 000 00000
Dann können die Damen es mit oder ohne "-", mit oder ohne Leerzeichen eingeben.
Gruß Matthias