Lösung mit VBA und interner Fml-Anwendung ...
29.02.2016 15:47:11
Luc:-?
…in der Zell-Formatierung:
Falls dir das lieber wäre, Tino,
geht das mit einer Ereignisprozedur → nachträglich mit Worksheet_SelectionChange, gleich bei Eintrag mit Worksheet_Change (die Prozeduren unterscheiden sich ansonsten nicht):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const adRelBer$ = "C:C" 'hier realen WirkBereich angeben!
Dim Ziel As Range
If Not Intersect(Target, Me.Range(adRelBer)) Is Nothing Then
For Each Ziel In Target
If Not IsEmpty(Ziel) Then
' Ziel.NumberFormatLocal = ";;;""" & Replace(MaskOn(Ziel, "gb"), " ", "") & """"
With WorksheetFunction
Ziel.NumberFormatLocal = ";;;""" & Left(Ziel, 1) & Mid(Ziel, _
.Search("|", .Substitute(Ziel, " ", "|", Len(Ziel) - _
Len(.Substitute(Ziel, " ", "")))) + 1, 1) & """"
End With
End If
Next Ziel
End If
End Sub
Das kann man durch Auswahl und Format Standard rückgängig machen. Statt Sellis Fml könnte man auch den auskommentierten Befehl verwenden. Dann müsste aber zusätzlich die UDF MaskOn aus dem Archiv (Fassung von 2014) ins VBA-Projekt der Mappe integriert wdn. Soll MaskOn in einem AddIn untergebracht wdn, muss im VBE ein Verweis auf dieses gesetzt wdn. Dazu muss das AddIn einen eindeutigen Namen haben (nicht einfach nur VBA-Project)!
Feedback erwünscht! Gruß, Luc :-?
Besser informiert mit …