Datenbalken formatieren
21.11.2019 09:53:54
LemonBike
ich bin ein ziemlicher Anfänger, was VBA angeht und ich bin auf ein Problem gestoßen, bei dem ich mir nicht sicher bin, ob man es lösen kann.
Problem:
Ich will in einem Textfeld einen Wert eingeben und dieser soll in der Tabelle erscheinen und es soll ein Datenbalken ausgegeben werden. Wenn ich es durch die vorgegebene Hilfe formuliere funktioniert es Einwandfrei. Mit Makros läuft mein Code nicht richtig (siehe unten). Das eigentliche Problem ist jedoch folgendes: Jetzt möchte ich, dass Excel in der gleichen Zeile auch Text mit hinzufügt. Also beispielsweise 50 Birnen. Wenn ich 50 Birnen schreibe verschwindet allerdings der Datenbalken. Theoretisch könnte ich mir die Birnen als Einheit definieren und alles wäre schick. Nun habe ich aber immer unterschiedliche Einheiten. Deshalb meine Frage: kann ich die EInheit an Bedingungen knüpfen? Also Beispielsweise alles unter 10 wird zu der Einheit Äpfel und alles darüber zu Birnen.
Liebe Grüße
Lemon Bike
Mein Code:
Sub CreateDataBarCF()
Dim DB As Range
Set DB = Range("B3:B8").FormatConditions.AddDatabar
With DB
.MinPont.Modify newtype:=xlConditionValuePercent, newvalue:=0
.MaxPont.Modify newtype:=xlConditionValuePercent, newvalue:=100
.BarColor.Color = 32768
.BarFillType = xlDataBarFillSolid
End With
End Sub