Hallo

Ich wollte in Excel über VBA ein Balkendiagramm aufgrund einer vorhandenen Tabelle erstellen:

Tabellendefinition:

Code :

1 2 3 4 5 6 7 8 9

A-----B------C-----D-----usw   1   980   2     98   3    111   4       76

u.s.w


B1 = 100%

Balkenmaximalänge = 100 Spalten für 100%, d.h. 980 = 100 Spalten

Für die Spalten 2 bis .. soll ab Spalte 3 ein Balken dargestellt werden, der über soviele Spalten geht, wie der Wert der entsprechenden Zeile in Spalte 2 in Prozent von B1 entspricht.

Die Farbe des Balkens soll der Farbe entsprechen, die als Interior.ColorIndex der Zelle dieser Zeile eingestellt ist, die die Zahl enthält.

Beispiel:
B2 = 98 entspricht 10% Balkenlänge von 100 Spalten, entspricht 10 Spalten.
Also für Zeile 2 soll ab Spalte 3 ein Balken von 10 Spalten länge dargestellt werden.
In der Farbe, die B2 hat.

Das habe ich mit fogender Sub versucht:

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Balken(ByVal n100Proz As Integer, ByVal nAktProz As Integer)    On Error GoTo Err_Balken    Dim tCellAdr As String  Dim iBalkenLaenge As Integer  Dim nZeile As Long  Dim nSpalte As Long    tCellAdr = ActiveCell.Address   ' $Spalte$Zeile iBalkenLaenge = Int(100 / n100Proz * nAktProz)  nZeile = CInt(Mid$(tCellAdr, 4, Len(tCellAdr) - 3))    For nSpalte = 3 To 3 + iBalkenLaenge     Cells(nZeile, nSpalte).Interior.ColorIndex = Cells(nZeile, 2).Interior.ColorIndex  Next nSpalte  Exit Sub   Err_Balken:   MsgBox Err.Number & " " & Err.Description   End Sub

In der Zelle C2 steht: =Balken(A2;B2)


Leider funktioniert das so nicht!

Wenn ich aber während der Programmausführung im Direktfenster foglendes Eingebe:
Cells(nZeile, nSpalte).Interior.ColorIndex = Cells(nZeile, 2).Interior.ColorIndex

während auf genau dieser Zeile in der Sub Balken ein Haltepunkt steht, funktioniert die Ausführung der Anweisung und die entsprechende Zelle in der Tabelle wir mit der korrekten Farbe hinterlegt.

Wo ist der Fehler?

Was mache ich falsch?

Für weiterführende Hinweise bin ich dankbar.

Ein Makro muss von extern getriggert werden.

Es wäre mir neu, dass man eine Makro-Funktion per Aufruf in einer Zelle auslösen kann.

Du musst das Change-Event verwenden.

Code vb:

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range)        'Me.Cells(1,2) ist B1, Target.Value ist die Zelle in B, die geändert wurde. Die If-Abfrage nimmt nur Werte aus Spalte B (Column=2)        if Target.Column=2 then              Call Balken (Me.Cells(1,2), Target.Value)       End if   End Sub

Hallo Zvoni

Vielen Dank.
Dein Hinweis hat mir sehr gut weiter geholfen

Ich muss mir gerade selbst widersprechen: Der Aufruf einer VBA-Funktion aus Excel in einer Zelle heraus ist doch möglich, jedoch muss genannte Funktion als Public in einem Standard-Modul deklariert sein.

Dann kann man es wie eine beliebige Excel-Funktion in einer Zelle "=MeineFunktion(Zahl1, Zahl2)" verwenden.

Nur so für diejenigen die es interessiert.