Ansicht soll sich aktualisieren, aber ...
23.01.2014 13:25:57
TinoB
ich stehe wieder einmal vor einem Problem. Ich lese in eine Exceldatei eine CSV Datei ein, bereite diese auf und erstelle ein fertiges Diagramm daraus. Das ganze mit VBA und Makro was auch sehr gut funktioniert. Das Ergebnis ist eine neue Datei mit Diagramm und der Wertetabelle für das Diagramm. Jetzt gibt es ein UserForm wo alle Spalte aus der Wertetabelle mit Checkbox an- und abwählbar sind. Also die UserForm mit den Checkboxen greift auf die Wertetabelle zu. Ist die Checkbox Enabled, wird der entsprechende Graf im Diagramm angezeigt, ist dieser disabled wird die Spalte und somit der Graf ausgeblendet. Soweit ist das auch alles in Ordnung.
Jetzt zum Problem. Ich möchte nun, dass sich jedesmal bei Checkbox enabled bzw. disabled das Diagramm aktualisert. Und an dieser Stelle komme ich nicht weiter. Entweder man kann den Eintrag der Checkboxen ändern und erst beim Schließen dieser ändert sich der Graf, oder aber man kann die Checkboxen aktiveren und es wird dabei die Wertetabelle angezeigt. Ich würde jedoch gerne das UserForm mit den Checkboxen auf dem Diagrammblatt haben, sich die Grafen ein- und ausblenden lassen ohne dass die Wertetabelle in den Fordergrund rückt.
Ist so etwas möglich? Und wenn ja, wie müsste dieser Code angepasst werden?
- UserForm öffnen, Checkboxen werden gefüllt
Private Sub UserForm_Activate()
With Application
.ScreenUpdating = False
.DisplayAlerts = True
End With
Sheets("Werte").Activate
Dim X&
For X = 3 To 22
Me.Controls("Checkbox" & X).Value = Not Columns(X).Hidden
Next
End Sub
- Abfragen der einzelnen Checkboxen bzw. ein- und ausblenden der Spalten
Private Sub CheckBox3_Click()
X = 3
Columns(X).EntireColumn.Hidden = Not CheckBox3.Value
End Sub
Private Sub CheckBox4_Click()
X = 4
Columns(X).EntireColumn.Hidden = Not CheckBox4.Value
End Sub
Private Sub CheckBox5_Click()
End Sub
- Schließen vom UserForm
Private Sub CommandButton1_Click()
Sheets(1).Activate
Unload Me
Application.ScreenUpdating = True
End Sub
Danke
TinoB