Excel vba: Datenbalken mit Schrift & Zahl

[sharky51]

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:

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 Sub

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?

[schauan]

Hallo Erich,

2 Varianten.
1) Du bringst den Text als Zellformat rein.
1) Du extrahierst die Zahlen und formatierst die "Extraktionszellen"

[sharky51]

Hallo André,

danke für die Rückmeldung.

Deinen ersten Punkt verstehe ich nicht.
Den zweite hatte ich probiert - funktioniert aber nicht - weil nach der Extraktion soll der Text ja wieder zurück in die Zelle.
D.h., wenn der Text zunächst extrahiert ist, wird die Zelle wie gewünscht formatiert - komm der Text wieder dazu ist die Formatierung wieder futsch.

Vielleicht verstehe ich auch nicht was Du genau meinst mit den zwei Punkten.

[schauan]

hallöchen,

Punkt 1 macht nur Sinn, wenn es der gleiche Text ist.
Punkt 2 zielt auf eine dauerhafte Trennung


   

[sharky51]

Hallo André,

und wie funktioniert das mit dem Punkt 1 - verstehe nicht so richtig wie das umzusetzen ist?
Kannst Du mir das beispielhaft erklären?

[schauan]

Hallo Erich,

so könnte das gehen

Arbeitsblatt mit dem Namen 'Tabelle1' A 1 xyz 1 2 xyz 2 3 xyz 3
Zelle Format Wert A1 "xyz" # 1 A2 "xyz" # 2 A3 "xyz" # 3	Zelle bedingte Formatierung... Format A1 1: Datenbalken abc A2 1: Datenbalken abc A3 1: Datenbalken abc

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.2) erstellt. ©Gerd alias Bamberg

[sharky51]

Guten morgen André,

jetzt habe ich es auch begriffen, vielen Dank - funktioniert bestens!

Vielen Dank!