Office: Zahlenformat STANDARD aber mit Hochkomma

caro · 1. März 2010

Hallo Chris

Noch ein Problem: Habe probiert 2 Spalten gleichzeitig zu formatieren, ging aber nicht. In der Spalte L schreibe ich etwas rein und es sollte die Spalte L und die Spalte F formatiert werden.

Bekomme es nicht hin. Hast Du eine Lösung?

Gruss

caro

chris-kaiser · 1. März 2010

hiho

versuche mal das

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 12 Then 'nur in Spalte A
Dim cell As Range, rng As Range
Set rng = Union(Target, Target(1, -5))
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 If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

caro · 1. März 2010

Er macht es nur in der aktiven Zelle.

chris-kaiser · 1. März 2010

Hiho

ich dachte es sollte bei der Eingabe geschehen.?
sonst das Makro verwenden

Zellen markieren (oder über VBA wählen ) und das Makro starten.

caro · 1. März 2010

Es sollte schon bei der Eingabe geschehen. Die Eingaben wird in der Spalte L gemacht. Die Zahlen werden dann in Spalte F zur Berechnung verwendet. Dort - also in Spalte F soll die gleiche Formatierung vorgenommen werden.

chris-kaiser · 1. März 2010

Hallo caro

jetzt verstehe ich gar nichts mehr??, das macht doch der Code *entsetzt

Eingaben in L und Formatierung in F und L

caro · 1. März 2010

Du meinst das mit dem Union?

Das habe ich genau so eingefügt, es macht es aber leider nur in der aktiven Zelle, wo ich die Änderung vorgenommen habe.

Funktionierts bei Dir?

caro · 1. März 2010

Hallo Chris

Bei Deiner Lösung wird die spezielle Formatierung nicht in die Zelle F übernommen.

Habe es nun so gelöst:

Code:

Dim strZelle As String
Private Sub Worksheet_Change(ByVal Target As Range)
strZelle = ActiveCell.Address
Range("F:F,L:L").Select
Range(strZelle).Activate
Call Format_Selection
End Sub
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
Range(strZelle).Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du hättest das bestimmt besser hinbekommen, aber es funktioniert so.

Vielen Dank für Deine super tolle Hilfe.
Ich wünsche Dir einen schönen Abend.

Griessli us dr Schwiiz.

Caro

Office: Zahlenformat STANDARD aber mit Hochkomma

Zahlenformat STANDARD aber mit Hochkomma

Zahlenformat STANDARD aber mit Hochkomma

Zahlenformat STANDARD aber mit Hochkomma

Zahlenformat STANDARD aber mit Hochkomma

Zahlenformat STANDARD aber mit Hochkomma - Similar Threads - Zahlenformat STANDARD Hochkomma

Zahlenformat

Power Query englisches Zahlenformat bei Import berücksichtigen

Zahlenformat: Tausender Trennzeichen auch vor Zahlen unter tausend!?

Zahlenformat im Bericht

mehrere Zahlenformate in einer Zelle

Zahlenformate Excel - Teams - Aufgaben - Amerikanisch

Zahlendarstellung bei EXCEL