Symbol für Standart-Zahlenformat

Computer: Software & Programmierung Office Software
1

Hallo,

ich brauche häufig in Excel 2003 ein ganz normales Zahlenformat: Zahl, ohne Dezimale mit Tausenderzeichen.
Kann ich mir für dieses Zahlenformat ein eigenes Symbol einrichten oder das (unvorteilhafte) Symbol mit den 3 Nullen anpassen?

mfg Harald

2

Format Benutzerdefiniert #.##0 ?
Gruß Fritz

3

ich brauche häufig in Excel 2003 ein ganz normales
Zahlenformat: Zahl, ohne Dezimale mit Tausenderzeichen.
Kann ich mir für dieses Zahlenformat ein eigenes Symbol
einrichten oder das (unvorteilhafte) Symbol mit den 3 Nullen
anpassen?

Hallo Harald,

Symbolanpassung,
mit Alt+F11 kommste in den VB-Editor und zurück zu Excel.

Wenn du im Projektexplorer kein Projekt „personl.xls“ siehst,
so wechsle zu Excel, zeichne ein beliebiges Makro auf und wähle
als Speicherort „persönliche Arbeitsmappe“.

Jetzt im Projektexplorer links Doppelklick auf „Modul1“ der
personl.xls.
Lösche da deinen aufgezeichneten Code und füge die nachstehenden Codes ein.

Dann stellst du den Cursor an beliebige Stelle in der Prozedur
„FormatEIN“ und drückst F5
Oben links ist ein Diskettensymbol, klicke darauf, dann ist deine
personl.xls gespeichert. Beende den Vb-Editor.

Gruß
Reinhard

Option Explicit

Sub FormatEIN()
With Application.CommandBars("Formatting").Controls("&1.000er-Trennzeichen")
 .OnAction = ThisWorkbook.Name & "!Formatieren"
End With
End Sub

Sub FormatAUS()
With Application.CommandBars("Formatting").Controls("&1.000er-Trennzeichen")
 .OnAction = ""
End With
End Sub

Sub Formatieren()
On Error Resume Next
Selection.Cells.NumberFormat = "#,##0"
End Sub
4

Hallo Reinhard,

leider klappt der Code in Excel 2003 nicht, es kommt der Hinweis, dass ein Syntaxfehler vorliegt. Ich vermute, dass Excel mit dem beginnenden „with“ nicht klar kommt. Kannst Du dies bei E 2003 bitte pfüfen?

Danke Harald

5

leider klappt der Code in Excel 2003 nicht, es kommt der
Hinweis, dass ein Syntaxfehler vorliegt. Ich vermute, dass
Excel mit dem beginnenden „with“ nicht klar kommt. Kannst Du
dies bei E 2003 bitte pfüfen?

Hallo harald,

ich hatte den Code in XL2000 getestet. Da ist nicht das geringste drin
was XL2003 falsch verstehen könnte.

Hast du mal Zeichen für Zeichen sehr genau überprüft ob der Code
in deinem Editor exakt der gleiche ist wie hier sichtbar?

Gruß
Reinhard

6

Hallo Reinhard!

So steht der Text in meinem Modul drin:
_Sub FormatEIN()
With
Application.CommandBars(„Formatting“).Controls("&1.000er-Trennzei
chen „)“
.OnAction = ThisWorkbook.Name & „!Formatieren“
End With
End Sub

Sub FormatAUS()
With
Application.CommandBars(„Formatting“).Controls("&1.000er-Trennzei
chen „)“
.OnAction = „“
End With
End Sub

Sub Formatieren()
On Error Resume Next
Selection.Cells.NumberFormat = „#,##0“
End Sub_
Jeweils vor dem „Sub“ steht eine Linie für einen Neubeginn - ist das richtig? Muss das alles vielleicht in eine Prozedur?

Gruß Harald

7

Hallo Harald,

was machst du um Code von w-w-w in ein Modul vom VB-Editor zu kopieren?
Ich markiere den Code in w-w-w, Strg+c, im VB-Editor dann Strg+v
Das sieht dann so aus:
http://www.uploadagent.de/show-185925-1342696865.html

Gruß
Reinhard

8

ja, so mache ich dies auch,
auch mein Code sieht so aus, also 3 Teile

Mit welchem Teil verknüpfe ich das (neue) Symbol, falls der Code klappt?

Gruß Harald

9

Mit welchem Teil verknüpfe ich das (neue) Symbol, falls der
Code klappt?

Hallo Harald,

schreib das in „DieseArbeitsmappe“ von personl.xls

Option Explicit

Private Sub Workbook_Open()
Call FormatEIN
End Sub

Gruß
Reinhard