03.01.2020, 18:58
Hallo zusammen,
ich knabbere gerade an einem weiteren Formatierungsproblem mit Datenbalken.
Vielleicht hat von Euch freundlicherweise eine Idee ob man dies mit vba umsetzen kann?
Zellen mit nur Zahlen als Inhalt kann ich mit folgendem Code (aus dem Netz) formatieren:
Was ich aber gerne hätte ist, dass auch Zellen so formatiert werden können wenn außer der Zahl links noch ein Text in der Zelle steht. Z.B. in der Art: xyzxyz 6
Die Textlänge kann variabel sein.
Gibt es dazu ev. eine Lösung?
ich knabbere gerade an einem weiteren Formatierungsproblem mit Datenbalken.
Vielleicht hat von Euch freundlicherweise eine Idee ob man dies mit vba umsetzen kann?
Zellen mit nur Zahlen als Inhalt kann ich mit folgendem Code (aus dem Netz) formatieren:
Code:
Sub FormatDatenbalken()
Dim c As Range
'Dim Zeichen As String
Selection.FormatConditions.Delete
For Each c In Selection.Cells
c.FormatConditions.AddDatabar
With c.FormatConditions(c.FormatConditions.Count)
.ShowValue = True
.SetFirstPriority
.MinPoint.Modify newtype:=xlConditionValueAutomaticMin
.MaxPoint.Modify newtype:=xlConditionValueNumber, newvalue:=12
If c < 5 Then
.BarColor.Color = RGB(153, 204, 0) 'Grün
ElseIf c >= 6 Then
.BarColor.Color = RGB(255, 102, 0) 'Rot
Else
.BarColor.Color = RGB(255, 255, 0) 'Gelb
End If
.BarColor.TintAndShade = 0
End With
Next c
End SubWas ich aber gerne hätte ist, dass auch Zellen so formatiert werden können wenn außer der Zahl links noch ein Text in der Zelle steht. Z.B. in der Art: xyzxyz 6
Die Textlänge kann variabel sein.
Gibt es dazu ev. eine Lösung?
