Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Formatierung abhängig von Zellwert"
Automatische Datumformatierung unterdrücken Zahlenformatierung mit Punkt nach der 1. Ziffer
Unterschiedliche Schriftformatierung in Kopf-/Fußzeile Jahreskalender und bedingte Formatierung
Bedingte Formatierung auslesen Über die bedingte Formatierung den Minimalwert markieren
Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern Bedingte Formatierung in Abhängigkeit eines Zellkommentars
Markierung von Formeln über bedingte Formatierung Zelleinträgen über die Formatierung Spaltennamen hinzufügen