Excel Prozent Balken!

Re(6): Excel Prozent Balken!

Chris464 — Sat, 23 Sep 2006 07:02:42 GMT

Funktioniert!

Danke!

Re(5): Excel Prozent Balken!

Thing — Fri, 22 Sep 2006 17:38:41 GMT

Scheint im wesentlichen richtig zu sein. Mit "If Target.Column < 3" filtere ich aber auf Änderungen, die in einer der ersten beiden Spalten stattfinden. Da Deine Parameter in anderen Spalten liegen, müsstest Du die Zeile also entsprechend ändern. z.B.

If Target.Column=5 Or Target.Column=11 Then

Die Zeile mit den Kugerln kannst Du eigentlich auch rauswerfen.

Re(4): Excel Prozent Balken!

Sputum — Fri, 22 Sep 2006 11:13:36 GMT

super DANKE!

Re(4): Excel Prozent Balken!

Sputum — Fri, 22 Sep 2006 11:13:27 GMT

danke!

Re: Excel Prozent Balken!

Ardjan — Fri, 22 Sep 2006 07:31:10 GMT

mit

=WIEDERHOLEN("X";(B1/A1)*100) & WIEDERHOLEN("O";(1-(B1/A1))*100)

und eine Schriftart mit feste breite (Courier, Fixedsys) hast du schon mal eine monochrome Balken aus 'X' und 'O', insgesamt 100 Zeichen lang. Schnell und oft ausreichend...

Re(4): Excel Prozent Balken!

Chris464 — Fri, 22 Sep 2006 06:21:06 GMT

nicht schlecht.

was müsste man hier ändern um in spalte k einen wert einzutragen (z.b. 100) und dann abhängig vom wert in spalte e den balken in spalte f anzeigen zu lassen?

reicht das ?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column < 3 Then
    FuellPunkte = Round(10 * Cells(Target.Row, 11) / Cells(Target.Row, 5))
    With Cells(Target.Row, 6)
      .Value = "OOOOOOOOOO" 'Kugerln
      .Value = String(10, ChrW(9608)) 'Balken
      .Characters(Start:=1, Length:=FuellPunkte).Font.ColorIndex = 5
      .Characters(Start:=FuellPunkte+1,
Length:=10-FuellPunkte).Font.ColorIndex = 6
    End With
  End If
End Sub

Re(4): Excel Prozent Balken!

bono_d70 — Fri, 22 Sep 2006 06:08:00 GMT

das is auch nicht schlecht
danke

lg
bono_d70

Re(3): Excel Prozent Balken!

Penguin — Thu, 21 Sep 2006 20:48:08 GMT

Bedingte Formatierung ist das Zauberwort:

Hier das Beispiel:
http://forum.geizhals.at/files/363/balken.xls

Re(3): Excel Prozent Balken!

Thing — Thu, 21 Sep 2006 18:34:39 GMT

Du könntest z.b. folgendes Makro für das betreffende Tabellenblatt einfügen. Dann solltest Du in Spalte C einen zweifarbigen Prozentbalken bekommen.

Du kannst natürlich nach Belieben auch andere Symbole, Farben oder eine feinere Auflösung als die 10er-Schritte nehmen.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column < 3 Then
    FuellPunkte = Round(10 * Cells(Target.Row, 2) / Cells(Target.Row, 1))
    With Cells(Target.Row, 3)
      ~~.Value = "OOOOOOOOOO" 'Kugerln~~
      .Value = String(10, ChrW(9608)) 'Balken
      .Characters(Start:=1, Length:=FuellPunkte).Font.ColorIndex = 5
      .Characters(Start:=FuellPunkte+1, Length:=10-FuellPunkte).Font.ColorIndex = 6
    End With
  End If
End Sub

Re(3): Excel Prozent Balken!

Thing — Thu, 21 Sep 2006 18:34:39 GMT

Du könntest z.b. folgendes Makro für das betreffende Tabellenblatt einfügen. Dann solltest Du in Spalte C einen Prozentbalken als Kugerlreihe bekommen.

Du Kannst natürlich nach Belieben auch andere Symbole oder Farben nehmen.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column < 3 Then
    FuellPunkte = Round(10 * Cells(Target.Row, 2) / Cells(Target.Row, 1))
    With Cells(Target.Row, 3)
      .Value = "OOOOOOOOO"
      .Characters(Start:=1, Length:=FuellPunkte).Font.ColorIndex = 5
      .Characters(Start:=FuellPunkte+1, Length:=10-FuellPunkte).Font.ColorIndex = 6
    End With
  End If
End Sub

Re(3): Excel Prozent Balken!

Thing — Thu, 21 Sep 2006 18:34:39 GMT

Du könntest z.b. folgendes Makro für das betreffende Tabellenblatt einfügen. Dann solltest Du in Spalte C einen Prozentbalken als Kugerlreihe bekommen.

Du Kannst natürlich nach Belieben auch andere Symbole oder Farben nehmen.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column < 3 Then
    FuellPunkte = Round(10 * Cells(Target.Row, 2) / Cells(Target.Row, 1))
    With Cells(Target.Row, 3)
      .Value = "OOOOOOOOOO"
      .Characters(Start:=1, Length:=FuellPunkte).Font.ColorIndex = 5
      .Characters(Start:=FuellPunkte+1, Length:=10-FuellPunkte).Font.ColorIndex = 6
    End With
  End If
End Sub

Re(2): Excel Prozent Balken!

Sputum — Thu, 21 Sep 2006 17:35:46 GMT

gehts auch ohne diagramm?
Mit verfärbung von zellen oder so?

Re: Excel Prozent Balken!

Robert Craven — Thu, 21 Sep 2006 12:34:11 GMT

Du hast 2 Zahlen, die sind "100" und "70" und möchtest 2 Balken die "70" und "30" lang sind. Soll A1 immer die Gesamtmenge anzeigen, oder wie

Re: Excel Prozent Balken!

bono_d70 — Thu, 21 Sep 2006 12:26:38 GMT

vielleicht versteh ich dich falsch aber wie wärs mit
c1=a1-b1
30=100-70

und dann mit B1 und C1 ein balkendiagramm hinzaubern

lg
bono_d70

Excel Prozent Balken!

Sputum — Thu, 21 Sep 2006 10:57:43 GMT

Hallo!

Ich möchte im Excel einen Prozentbalken darstellen.
Das ganze soll wie folgt werden

A1 = 100
B1 = 70

Als resultat möchte ich einen grünen Balken der "70" lang ist und einen roten der "30" lang ist (die relation muss stimmen!)

Wer kann mir helfen!?!