Zahlenformat auch für Buchstaben ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then On Error Resume Next Application.EnableEvents = False Range("A1") = FormatMe(Range("A1").Text) Application.EnableEvents = True On Error GoTo 0 End If End Sub

Function FormatMe(strText As String) As String Dim i As Integer strText = Replace(strText, " ", "") For i = Len(strText) - 3 To 1 Step -4 strText = Left(strText, i - 1) & " " & Mid(strText, i, 999) Next i FormatMe = Trim(strText) End Function

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("Schlüssel_01")) Is Nothing Then On Error Resume Next Application.EnableEvents = False Target = FormatMe(Target.Text) Application.EnableEvents = True On Error GoTo 0 End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range If Not Intersect(Target, Range("Schlüssel_01")) Is Nothing Then On Error Resume Next Application.EnableEvents = False For Each c In Intersect(Target, Range("Schlüssel_01")) c = FormatMe(c.Text) Next c Application.EnableEvents = True On Error GoTo 0 End If End Sub

…Thomas,
wobei allerdings die Zahlenformate oder 3 Semikolons vorangestellt wdn müssen, weil evtl Textformate immer an 4.Stelle im Format-String stehen. Das sähe für dein Bsp dann ggf so aus: ;;;"1a2n sr45f 2df4 57AB"
Das Trennzeichen könnte auch ein anderes sein, zB ein Punkt. Dieser Format-String muss für jeden so zu formatierenden Wert erzeugt und in das Format der Zelle eingetragen wdn. Das kann ggf einmalig geschehen oder bei möglicher manueller Änderung unmittelbar per Ereignisprozedur Worksheet_Change. Dadurch fehlen dann die Trennzeichen im .Value der Zelle, obwohl sie im .Text angezeigt wdn. Verweist man auf eine solche Zelle per Formelzelle mit Standardformatierung, wdn die Trennzeichen nicht angezeigt, weil sie real nicht enthalten sind. Man kann sich also ggf das Entfernen derselben sparen, falls der Wert mal ohne Trennzeichen benötigt wird.
Fehler können nur entstehen, wenn keine Ereignisprozedur benutzt wird, aber trotzdem nachträglich geändert wird. Die Anzeige würde sich dadurch nämlich nicht ändern, denn sie ist auf diese Weise fixiert. Allerdings würde sich der Zellwert ändern, ohne dass das direkt zu sehen wäre (nur in der Edit-Zeile sichtbar). Ohne Ereignisprozedur sollte nach jeder Änderung das ganze Pgm erneut über die Daten laufen.
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

Zahlenformat auch für Buchstaben ?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread