Dynamische Diagrammen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Der Fehler sagt eigentlich alles. Die Variable ist zu definieren (Dim ...). Aber es gibt noch diverse andere Probleme (z.B. EnableEvents greift für Steuerelement nicht).
WICHTIG: ListFillRange darf nicht auf gefilterte Zeilen verweisen. Setze die Liste auf ein separates Blatt.
Modul Tabelle1:

Private Sub ComboBox1_Change()
b = True
Sheets("Diagram").ComboBox1.ListIndex = Sheets("Calculation").ComboBox1.ListIndex
Call BeiAenderung
End Sub

Modul Tabelle2:

Private Sub ComboBox1_Change()
b = True
Sheets("Calculation").ComboBox1.ListIndex = Sheets("Diagram").ComboBox1.ListIndex
Call BeiAenderung
End Sub

Standardmodul:

Public b As Boolean
Sub BeiAenderung()
Dim m As Integer, Y As Integer, d1 As Date, d2 As Date, rng As Range
If b = False Then
With Sheets("Calculation")
On Error Resume Next
.ShowAllData
On Error GoTo 0
If Not .ComboBox1.ListIndex = 0 Then
m = .ComboBox1.ListIndex
Y = Year(.Cells(10, 2))
d1 = DateSerial(Y, m, 1)
d2 = DateSerial(Year(d1), Month(d1) + 1, Day(d1)) - 1
Set rng = .Range(.Cells(9, 2), .Cells(5000, 29))
rng.AutoFilter Field:=2, Criteria1:=">=" & CDbl(d1), Operator:=xlAnd, Criteria2:="

cu
Chris

Hi Yilmaz,
das kann man auch ohne VBA lösen. Verwende anstelle der ActiveX-Kombinationsfelder die Formular-Kombinatinsfelder und trage bei beiden als Zellverknüpfung die Zelle G4 der Tabelle Calculation ein. Mit Hilfe der Zellen H4:H6 wird das kleinste und das größte Datum im jeweiligen Monat berechnet. Definiere dann 2 Namen, die sich auf die Zellen H5 und H6 mit dem kleinsten und dem größten Datum beziehen:
XWerte =INDEX(Calculation!$B:$B;VERGLEICH(Calculation!$H$5;Calculation!$B:$B;0);1):INDEX(Calculation!$B:$B;VERGLEICH(Calculation!$H$6;Calculation!$B:$B;0);1)
YWerte =INDEX(Calculation!$AJ:$AJ;VERGLEICH(Calculation!$H$5;Calculation!$B:$B;0);1):INDEX(Calculation!$AJ:$AJ;VERGLEICH(Calculation!$H$6;Calculation!$B:$B;0);1)
und trage die Namen im Diagramm bei den X- und repsektive Y-Werten ein - dann passt sich das Diagramm dynamisch an den ausgewählten Monat an. Wird im Kombinationsfeld "Alle" ausgewählt, werden im Diagramm alle Werte dargestellt.
https://www.herber.de/bbs/user/120530.xlsm

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dynamische Diagrammen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread