Formatierung abhängig von Zellwert

Bild

Betrifft: Formatierung abhängig von Zellwert
von: Thomy
Geschrieben am: 17.04.2005 16:33:10
Hallo
In der Spalte C verkette ich die Werte von Spalte A und B mit der folgendenen Formel. =verketten(A+:B1)*1. Die Werte werden von einem anderen Programm in die Spalten kopiert.
In der Spalte A habe ich immer eine 10 stellige Zahl.
In der Spalte B hat es entweder keinen Wert oder 0 bis 9.
Nun mein Problem:
Wenn in Spalte B ein Wert vorhanden ist, soll in Spalte C die Zahl folgendermassen formatiert werden:
00#"."##"."##"."###"."##
Ist in Spalte B kein Wert vorhanden soll folgendes Format verwendet werden:
00#"."##"."##"."###
Ich habe bis 20'000 Zeilen in der Tabelle.
Siehe angehänge Arbeitsmappe.
https://www.herber.de/bbs/user/21268.xls
Besten Dank im Voraus für Tipps.
Thomy

Bild

Betrifft: AW: Formatierung abhängig von Zellwert
von: Bert
Geschrieben am: 17.04.2005 17:01:02
Hi,
das Verketten kannst du dir sparen, so gehts kürzer: =(A1&B1)*1
Das Formatieren musst du über VBA machen.
mfg Bert
Bild

Betrifft: AW: Formatierung abhängig von Zellwert
von: Thomy
Geschrieben am: 17.04.2005 17:11:48
Hallo
Besten Dank für die Beiträge.
Ich kann die Zellen manuell formatieren. Ich möchte das aber automatisiert machen.
Die Werte werden in die Spalten A und B kopiert, in Spalte C steht die Formel schon drinn. In der Spalte C soll dann automatisch das richtige Format, abhängig vom Wert in Spalte B verwendet werden.
Thomy
Bild

Betrifft: AW: Formatierung abhängig von Zellwert
von: Kurt
Geschrieben am: 17.04.2005 17:14:45
Hallo,
ins Klassenmodul der Tabelle:

Sub test()
For i = 1 To 20000
With Cells(i, 3)
If Cells(i, 2) = "" Then
.Value = Cells(i, 1).Value
.NumberFormat = " 00#"".""##"".""##"".""###"
Else
.Value = Cells(i, 1) & Cells(i, 2)
.NumberFormat = " 00#"".""##"".""##"".""###"".""##"
End If
End With
Next
End Sub

...und Tschüss Kurt
Bild

Betrifft: AW: Formatierung abhängig von Zellwert
von: Thomy
Geschrieben am: 17.04.2005 17:23:35
Hallo Kurt
Genaus das wars.
Vielen Dank
Thomy
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formatierung abhängig von Zellwert"