Bedingte Formatierung

Forumthread: Bedingte Formatierung
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Bedingte Formatierung

23.08.2006 13: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

AW: Bedingte Formatierung

23.08.2006 16:35:32

Jörg
AW: Bedingte Formatierung

23.08.2006 17:58:02

Stefan
AW: Bedingte Formatierung

23.08.2006 20:36:15

Jörg
AW: Bedingte Formatierung

24.08.2006 16:56:50

Stefan

AW: Bedingte Formatierung

23.08.2006 16: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 17: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 20: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

AW: Bedingte Formatierung

24.08.2006 16:56:50

Stefan

SUPER, danke funktioniert bestens !!!