With FG
        For r = Startzeile To EndZeile
            .Row = r: .col = Spalte
            Farbverlauf Me.pic_Balken, (CDbl(.Text) / Endwert) * 100, Farbe, _
              Hintergrundfarbe
            Me.pic_Balken.Height = .CellHeight
            Me.pic_Balken.Width = .CellWidth
            .CellPictureAlignment = flexAlignLeftCenter
            Set .CellPicture = Me.pic_Balken.Image
        Next
End With

Wer aufhört sich zu verbessern, hört auf gut zu sein.