Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bedingte Formatierung

Bedingte Formatierung
23.08.2006 11:30:21
Stefan
Ahoi,
hab auf B1 eine Liste (Anzahl, EUR usw) mit Gültigkeit gemacht. Der User gibt in A1 einen Wert ein der entweder Anzahl oder EUR ist. Nun würde ich das Feld A1 gerne so formatieren, dass wenn der User in B1 EUR auswählt, dass beim Wert in A1 automatisch EUR dazugefügt wird...
Mit bedingter Formatierung habe ich das nicht geschafft...
Ist das mit Excel machbar ?
Für eine Antwort wäre ich sehr dankbar
LG Stefan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung
23.08.2006 14:35:32
Jörg
Hallo Stefan,
Rechtsklick auf den Tabellenblattnamen, Code anzeigen, diesen Code einfügen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("B1").Address Then
Select Case Range("B1").Text
Case "Euro"
Range("A1").NumberFormat = "#,##0.00 $"
Case "Anzahl"
Range("A1").NumberFormat = "General"
End Select
End If
End Sub

VBA Editor schliessen und ausprobieren.
Gruß Jörg
AW: Bedingte Formatierung
23.08.2006 15:58:02
Stefan
Hey danke, aber geht dass auch mit mehreren Feldern...
Also für A1/B1
A2/B2
A3/B3
usw....
AW: Bedingte Formatierung
23.08.2006 18:36:15
Jörg
Hallo Stefan,
dann so für gesamte Spalte A:B

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Select Case Target.Text
Case "Euro"
Cells(Target.Row, 1).NumberFormat = "#,##0.00 $"
Case "Anzahl"
Cells(Target.Row, 1).NumberFormat = "General"
End Select
End If
End Sub

Gruß Jörg
Anzeige
AW: Bedingte Formatierung
24.08.2006 14:56:50
Stefan
SUPER, danke funktioniert bestens !!!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige