Format übernehmen

Hallo allerseits, hab gehört, dass man hier Unterstützung erhält bei kniffeligen Fragen. Naja - für mich sind sie kniffelig.
Folgendes: Hab es geschafft eine Tabelle (unterschiedliche Länder mit 30 gleichen Produkten)zu machen und nun erscheint das billigsten Produkte aus den jeweiligen Herkunftsländer dieser Tabelle. Doch möcht ich die Zahlen mit der Hintergrundfarbe der einzelnen Herkunftsländer hinterlegen, um eine Verteilung erkennbar zu machen. Sprich, aus Deutschland ist es am billigsten - daher hellgelb unterlegen ... hab`s mit einer bedingten Formatierung versucht, aber da kann ich nur 3 Möglichkeiten eingeben.
...gibt`s dafür eine Verweisformel oder sowas in der Richtung? Bitte antwortet mir, würd mich freuen, grüße an alle, Babsi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi Babsi :)
wie gewuenscht :)
obwohl rothaarig mit sommersprossen mir besser gefaellt :))
hier zwei varianten die auf das ereignis des zellenwechsels reagieren
einzufuegen alt f11(vbeditor)/projektexplorer/DeineTabelle
aber nur eines einfuegen :))
gruss nighty


Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim laender(5, 1) As String
Dim zaehler0 As Integer
laender(0, 0) = "Deutschland"
laender(1, 0) = "Frankreich"
laender(2, 0) = "Sudan"
laender(3, 0) = "England"
laender(4, 0) = "Polen"
laender(0, 1) = "1"
laender(1, 1) = "2"
laender(2, 1) = "3"
laender(3, 1) = "4"
laender(4, 1) = "5"
With Worksheet
For zaehler0 = 0 To 4
If Target.Value = laender(zaehler0, 0) Then Cells(Target.Row, Target.Column).Font.ColorIndex = laender(zaehler0, 1)
Next zaehler0
End With
Application.EnableEvents = True
End Sub


Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
With Worksheet
If Target.Value = "Deutschland" Then Cells(Target.Row, Target.Column).Interior.Color = RGB(255, 255, 0)
If Target.Value = "Frankreich" Then Cells(Target.Row, Target.Column).Interior.Color = RGB(255, 0, 0)
End With
Application.EnableEvents = True
End Sub

Private Sub worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Dim laender(5, 1) As String Dim zaehler0 As Integer laender(0, 0) = "Deutschland" laender(1, 0) = "Frankreich" laender(2, 0) = "Sudan" laender(3, 0) = "England" laender(4, 0) = "Polen" laender(0, 1) = "1" laender(1, 1) = "2" laender(2, 1) = "3" laender(3, 1) = "4" laender(4, 1) = "5" With Worksheet For zaehler0 = 0 To 4 If Target.Value = laender(zaehler0, 0) Then Cells(Target.Row, Target.Column).Font.ColorIndex = Val(laender(zaehler0, 1)) Next zaehler0 End With Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread