14.06.2017, 15:44
OK, zumindest habe ich eine smarte Lösung für VBA (da kommen die einzelnen @ vor).
Noch völlig ohne Fehlerbehandlung und Eingrenzung des Wirkungsbereichs.
Der Bereich MUSS vorher als Text formatiert sein, sonst greift wieder der 15-Stellen-Runder:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Format(Target, "@@@@-@@@@-@@@@-@@@@")
Application.EnableEvents = True
End Sub
Gruß Ralf
Noch völlig ohne Fehlerbehandlung und Eingrenzung des Wirkungsbereichs.
Der Bereich MUSS vorher als Text formatiert sein, sonst greift wieder der 15-Stellen-Runder:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target = Format(Target, "@@@@-@@@@-@@@@-@@@@")
Application.EnableEvents = True
End Sub
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)