Ich habe folgenden Formatierungscode im Tabellenblatt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A7:A63")) Is Nothing Then
On Error GoTo Err
If InStr(Target.Value, ",") > 0 Then
Target.NumberFormat = "#,##0.00"
Else
Target.NumberFormat = "#,##0"
End If
Err:
Exit Sub
End If
Dim strTmp As String
If Not Intersect(Target, Range("B7:B51")) Is Nothing Then
If Target(1) "" Then
On Error GoTo ErrExit
Application.EnableEvents = False
strTmp = UCase(Replace(Target, " ", ""))
strTmp = Left(strTmp, 2) & " " & Mid(strTmp, 3)
Target = strTmp
End If
End If
ErrExit:
Application.EnableEvents = True
End Sub
Funktioniert alles schön, aber:Wenn ich die Datei speichere und schließe und später neu öffne, wird die Spalte H
auch mit Tausender-Punkt formatiert. Dort möchte ich das aber nicht. Ich formatiere die komplette Spalte H als Text, dann gehts erstmal, nach neuem speichern + schließen + öffnen ist wieder das andere Zahlenformat da.
Danke im Voraus!