Office: Zahlenformat STANDARD aber mit Hochkomma

Helfe beim Thema Zahlenformat STANDARD aber mit Hochkomma in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen Wenn ich das Zahlenformat STANDARD (Excel 2003) wähle, dann habe ich die Möglichkeit meine Zahlen wie folgt zu formatieren: 1000... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von caro, 27. Februar 2010.

Seite 1 von 2

CARO

caro

Zahlenformat STANDARD aber mit Hochkomma

Hallo zusammen

Wenn ich das Zahlenformat STANDARD (Excel 2003) wähle, dann habe ich die Möglichkeit meine Zahlen wie folgt zu formatieren:

1000
1000.12
1000.123
1000.1234

Wichtig ist dabei, dass bei einer Ganzzahl kein Punkt steht. Nun möchte ich jedoch noch ein Hochkomma setzen. Also folgende Zahlenformatierung:

1'000
1'000.12
1'000.123
1'000.1234

Bekomme ich das mit einer benutzerdefinierten Zahlenformatierung hin? Wenn ja wie?
Oder mit VBA? Wie?

Grüsschen

caro

:)

caro, 27. Februar 2010

#1
CHRIS-KAISER

chris-kaiser

hiho

format benutzdef.

#'##0.00

chris-kaiser, 28. Februar 2010

#2
OFFICEUSER

OfficeUser Neuer User

Hallo
mit Makro.
Code:

Sub hochkomma()
Dim i As Long
For i = 1 To 10 'Bereich anpassen
Select Case Len(Cells(i, 1)) 'hier Spalte A
Case 4: Cells(i, 1) = Format(Cells(i, 1), "#""' ""###")
Case 5: Cells(i, 1) = Format(Cells(i, 1), "#""' ""###"".""#")
Case 6: Cells(i, 1) = Format(Cells(i, 1), "#""' ""###"".""##")
Case 7: Cells(i, 1) = Format(Cells(i, 1), "#""' ""###"".""###")
Case 8: Cells(i, 1) = Format(Cells(i, 1), "#""' ""###"".""####")
End Select
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@ Chris bei mir kommt mit Deiner Formatierung das raus.

Tabellenblattname: Tabelle1

A
1
'1.000
2
'10.001
3
10'0.012
4
1.0'00.123
5
10.0'01.234
bei meinem Code

Tabellenblattname: Tabelle1

A
1
1' 000
2
1' 000.1
3
1' 000.12
4
1' 000.123
5
1' 000.1234
gruss hary

OfficeUser, 1. März 2010

#3
CHRIS-KAISER

chris-kaiser

Zahlenformat STANDARD aber mit Hochkomma

Hallo Hary

ja bei deutscher Ländereinstellung schon *wink.gif*
aber die Schweizer haben den . (Punkt) als Komma

chris-kaiser, 1. März 2010

#4
HARY

hary

Hallo Chris
jau,jetzt hab ich das Ch links gesehen. ;-)

"werr hats errfundennn? die Schweizer!"
gruss hary

hary, 1. März 2010

#5
CHRIS-KAISER

chris-kaiser

Hallo Hary

aber ein Problem gibt es auch bei meiner Lösung!

#'##0,####

würde die Nachkommastellen 1,2,3,4 Zeigen aber bei ganzen Zahlen
das liefern

1'000.

anbei ein Lösungsansatz mit VBA für den selectierten Bereich

Code:

Sub format_selection()
Dim rng As Range
Set rng = Selection
For Each cell In rng
If cell "" Then
If IsNumeric(cell) Then
If cell - Int(cell) = 0 Then
If cell >= 1000 Then
cell.NumberFormat = "#'##0"
Else
cell.NumberFormat = "0"
End If
Else
If cell >= 1000 Then
cell.NumberFormat = "#'##0.#####"
Else
cell.NumberFormat = "0.#####"
End If
End If
End If
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser, 1. März 2010

#6
CARO

caro

Hallo Chris

Vielen Dank für Deine Hilfe.
Leider geht das nicht. Ergibt bei mir zwar ein Hochkomma, aber 2 Kommastellen. Das kann ich nicht brauchen. Es muss so viele anzeigen wie eingegeben.

Gruss

Caro

caro, 1. März 2010

#7
CHRIS-KAISER

chris-kaiser

Zahlenformat STANDARD aber mit Hochkomma

Hallo caro

ich weiß *wink.gif*

deshalb ja noch das Post mit der VBA Lösung

chris-kaiser, 1. März 2010

#8
CARO

caro

Hallo

War gerade am Ausprobieren. Das geht leider auch nicht. Es ergibt folgendes:

1' 000
1.000
.1000

Hast Du noch ne Idee?

Gruss

Caro

caro, 1. März 2010

#9
CHRIS-KAISER

chris-kaiser

hiho

bei mir geht es
aber ich habe ja eine andere Ländereinstellung

hast du schon versucht im Code den Punkt als , (Komma) einzugeben.
"#'##0,#####"

in der Form
vielleicht gehört ja auch der VBA Code umgedreht

ist aber nicht getestet

Code:

Sub format_selection()
Dim rng As Range
Set rng = Selection
For Each cell In rng
If cell "" Then
If IsNumeric(cell) Then
If cell - Int(cell) = 0 Then
If cell > 1000 Then
cell.NumberFormat = "#'##0"
Else
cell.NumberFormat = "0"
End If
Else
If cell > 1000 Then
cell.NumberFormat = "#'##0,#####"
Else
cell.NumberFormat = "0,#####"
End If
End If
End If
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser, 1. März 2010

#10
CARO

caro

Hallo Chris

Der Code ergibt folgendes:

1000
'01'000
'01'000
'01'000
'01'000

Ben. def. #'##0,##### ergibt dann

0,1'000
0,1'000
0,1'000
0,1'000
0,1'000

Es will einfach nicht.

caro, 1. März 2010

#11
CARO

caro

... übrigens >1000 kann ich nicht nehmen. Es ist ja nicht immer Tausend. Es kann auch 10, 15, usw. also irgend eine Ganzzahl sein.

caro, 1. März 2010

#12
CHRIS-KAISER

chris-kaiser

Zahlenformat STANDARD aber mit Hochkomma

Hallo Caro

zeichne mal die Formatierung mit einem Makro auf
und ändere die Formatierung im Code nach deiner Aufzeichnung.

dann müsste es gehen.

ich werde mal meinen Rechner zum "Schweizer" machen
mal schauen was dann bei mir rauskommt.^^

p.s das > 1000 ist nur dazu da das eben bei diesen Werten der ' genommen wird und unter 1000 nicht das würde schon passen.

so ich habe mal meinen umgestellt

Code:

SSub format_selection()
Dim rng As Range
Set rng = Selection
For Each cell In rng
If cell "" Then
If IsNumeric(cell) Then
If cell - Int(cell) = 0 Then
If cell >= 1000 Then
cell.NumberFormat = "#,##0"
Else
cell.NumberFormat = "0"
End If
Else
If cell >= 1000 Then
cell.NumberFormat = "#,##0.######"
Else
cell.NumberFormat = "0.######"
End If
End If
End If
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

so ging es jetzt bei mir mit Standard Schweizer Einstellung

chris-kaiser, 1. März 2010

#13
CARO

caro

Hallo Chris

Dein zweiter Code geht und zwar so:

Code:

Sub format_selection()
Dim rng As Range
Set rng = Selection
For Each cell In rng
If cell "" Then
If IsNumeric(cell) Then
If cell - Int(cell) = 0 Then
If cell >= 1000 Then
cell.NumberFormat = "#,##0"
Else
cell.NumberFormat = "0"
End If
Else
If cell >= 1000 Then
cell.NumberFormat = "#,##0.#####"
Else
cell.NumberFormat = "0.#####"
End If
End If
End If
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit Excel ein Hochkomma ausspuckt, muss beim VBA-Code ein Komma eingegeben werden, dann funktionierts.

Kann ich daraus auch eine Funktion machen?

caro, 1. März 2010

#14
CHRIS-KAISER

chris-kaiser

hiho

^^ fast zeitgleich

lege das in das jeweilige Tabellenblatt

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 Then 'nur in Spalte A
Dim cell As Range
Set cell = Target
If cell "" Then
If IsNumeric(cell) Then
If cell - Int(cell) = 0 Then
If cell >= 1000 Then
cell.NumberFormat = "#,##0"
Else
cell.NumberFormat = "0"
End If
Else
If cell >= 1000 Then
cell.NumberFormat = "#,##0.######"
Else
cell.NumberFormat = "0.######"
End If
End If
End If
End If
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

chris-kaiser, 1. März 2010

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Zahlenformat STANDARD aber mit Hochkomma

Die Seite wird geladen...

Zahlenformat STANDARD aber mit Hochkomma - Similar Threads - Zahlenformat STANDARD Hochkomma
Zahlenformat
in Microsoft Excel Hilfe
Zahlenformat: Excel in der Schweizer Formatierung hat Zahlen wie z.B.: 10'000.00. Ein Apostroph für's 1000-er Trennzeichen. Einen Punkt nach der Ganzzahl. Mit Office 2021 kann ich nun nicht mehr nach...
Power Query englisches Zahlenformat bei Import berücksichtigen
in Microsoft Excel Hilfe
Power Query englisches Zahlenformat bei Import berücksichtigen: Hallo, ich arbeite in einem internationalen Unternehmen und habe daher Excel dauerhaft auf das englische Zahlenformat umgestellt. D. h. das Komma wird durch einen Punkt ersetzt. Somit wird in...
Zahlenformat: Tausender Trennzeichen auch vor Zahlen unter tausend!?
in Microsoft Excel Hilfe
Zahlenformat: Tausender Trennzeichen auch vor Zahlen unter tausend!?: Hallo zusammen. Ich habe folgendes Problem: ich weiss, wie man Zellen formatiert und bei zahlen das Tausender-Trennzeichen einfügt. hat bisher immer gut geklappt: z.b. 16'768.00 (in der CH...
Zahlenformat im Bericht
in Microsoft Access Hilfe
Zahlenformat im Bericht: Hallo Access-Profis, mein Problem betrifft die Textfeld-Formatierung in einem Bericht; ich lese Zahlen im Bereich zwischen 0 und 31 mit einer möglichen Nachkommastelle und entsprechend höchstens...
mehrere Zahlenformate in einer Zelle
in Microsoft Excel Hilfe
mehrere Zahlenformate in einer Zelle: Hallo zusammen, ich habe ein Problem bei dem ich Eure Unterstützung benötige: Ich möchte über ein Drowdown verschiedene Texte auswählen. Das Zahlenformat soll sich in der daneben stehenden Spalte...
Zahlenformate Excel - Teams - Aufgaben - Amerikanisch
in Microsoft Teams Hilfe
Zahlenformate Excel - Teams - Aufgaben - Amerikanisch: Bei den hochgeladenen Excel Dateien, in Teams Aufgaben, werden die Zahlenformate nur im amerikanischen Format dargestellt. Wie können die Formate auf ein deutsches Format umgestellt werden....
Zahlendarstellung bei EXCEL
in Microsoft Excel Hilfe
Zahlendarstellung bei EXCEL: Hallo und einen guten Tag, liebe Mitstreiter. zunächst danke für die Aufnahme :) Ich habe folgendes Problem bei EXCEL: egal an welcher Position ich eine Zahl in eine Zelle schreibe, wird...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden