Liebe VBA-Profis,
ich bin leider keine:-),
Ich habe folgendes Problem... Und zwar, ich möchte bedingte Formatierung mit VBA so erstellen, dass die Daten mit den Kombischaltetaste funktionieren.
Es gibt 3 TAbellen in der Mappe,
1) Soll-werte (Vorgabe) tabelle zeigt die werte für neun Betriebe, mit 2 spalten: Bestwert spalte und worstwert spalte für jeden Betrieb.
2) Datenerfassungstabelle, wo man die daten monatlich eingibt und die daten weiter mit INDEX auf die Tabelle #1 übergeben werden.
3) Tabelle #1 zeigt die Daten aus Datenerfassungstabelle und hat 2 Kombischaltertasten: eine für das Jahr und die andere für die Betriebe, die tasten funktionieren mit den Makros schon.
Aber ich weiss nicht ob es möglich ist, irgendwie so zu machen, diese Kombitasten zu nutzen, um die Daten für jeden Betrieb mit dem Bezug auf Soll-werte (Vorgabe) tabelle rot, grün oder orange zu kriegen. Wie macht man sowas? Ich habe schon alles versucht, uns ich habe sogar was geschrieben, aber...ist es Irgenwie Heftig... und vielleicht kann man was Elegantes kriegen...
Danke und ich hoffe meine Deutschkentnisse ist genug um das Problem zu beschreiben,
lg,A.
P.S. Makro ist noch nicht fertig...trotzdem schicke ich es...
Sub test()
With Cells(18, 7)
Select Case .Value
Case 21200
Set best = Worksheets("Vorgabe").Range("f4")
Set worst = Worksheets("Vorgabe").Range("G4")
Set best2 = Worksheets("Vorgabe").Range("f5")
Set worst2 = Worksheets("Vorgabe").Range("G5")
Case 21201
Set best = Worksheets("Vorgabe").Range("h4")
Set worst = Worksheets("Vorgabe").Range("i4")
Set best2 = Worksheets("Vorgabe").Range("h5")
Set worst2 = Worksheets("Vorgabe").Range("i5")
End Select
End With
' ________________________________________
'Thema1
With Cells(5, 9)
.Font.Bold = True
Select Case .Value
Case Is < best
.Font.ColorIndex = 4
Case Is > worst
.Font.ColorIndex = 3
Case best To worst
.Font.ColorIndex = 46
Case Else
.Font.ColorIndex = 1
End Select
End With
'Thema2
With Cells(6, 9)
.Font.Bold = True
Select Case .Value
Case Is < best2
.Font.ColorIndex = 4
Case Is > worst2
.Font.ColorIndex = 3
Case best2 To worst2
.Font.ColorIndex = 46
Case Else
.Font.ColorIndex = 1
End Select
End With
End Sub
ich bin leider keine:-),
Ich habe folgendes Problem... Und zwar, ich möchte bedingte Formatierung mit VBA so erstellen, dass die Daten mit den Kombischaltetaste funktionieren.
Es gibt 3 TAbellen in der Mappe,
1) Soll-werte (Vorgabe) tabelle zeigt die werte für neun Betriebe, mit 2 spalten: Bestwert spalte und worstwert spalte für jeden Betrieb.
2) Datenerfassungstabelle, wo man die daten monatlich eingibt und die daten weiter mit INDEX auf die Tabelle #1 übergeben werden.
3) Tabelle #1 zeigt die Daten aus Datenerfassungstabelle und hat 2 Kombischaltertasten: eine für das Jahr und die andere für die Betriebe, die tasten funktionieren mit den Makros schon.
Aber ich weiss nicht ob es möglich ist, irgendwie so zu machen, diese Kombitasten zu nutzen, um die Daten für jeden Betrieb mit dem Bezug auf Soll-werte (Vorgabe) tabelle rot, grün oder orange zu kriegen. Wie macht man sowas? Ich habe schon alles versucht, uns ich habe sogar was geschrieben, aber...ist es Irgenwie Heftig... und vielleicht kann man was Elegantes kriegen...
Danke und ich hoffe meine Deutschkentnisse ist genug um das Problem zu beschreiben,
lg,A.
P.S. Makro ist noch nicht fertig...trotzdem schicke ich es...
Sub test()
With Cells(18, 7)
Select Case .Value
Case 21200
Set best = Worksheets("Vorgabe").Range("f4")
Set worst = Worksheets("Vorgabe").Range("G4")
Set best2 = Worksheets("Vorgabe").Range("f5")
Set worst2 = Worksheets("Vorgabe").Range("G5")
Case 21201
Set best = Worksheets("Vorgabe").Range("h4")
Set worst = Worksheets("Vorgabe").Range("i4")
Set best2 = Worksheets("Vorgabe").Range("h5")
Set worst2 = Worksheets("Vorgabe").Range("i5")
End Select
End With
' ________________________________________
'Thema1
With Cells(5, 9)
.Font.Bold = True
Select Case .Value
Case Is < best
.Font.ColorIndex = 4
Case Is > worst
.Font.ColorIndex = 3
Case best To worst
.Font.ColorIndex = 46
Case Else
.Font.ColorIndex = 1
End Select
End With
'Thema2
With Cells(6, 9)
.Font.Bold = True
Select Case .Value
Case Is < best2
.Font.ColorIndex = 4
Case Is > worst2
.Font.ColorIndex = 3
Case best2 To worst2
.Font.ColorIndex = 46
Case Else
.Font.ColorIndex = 1
End Select
End With
End Sub
