AW: Diagramm variabel?
23.10.2007 18:09:00
ingUR
Hallo, Julia,
hatte nicht darauf geachtet, dass Du für Deine Kenntniseinschätzung "VBA nein" angegeben hast. So habe ich nur ein Gerüst vorgegeben, dass nach Erfordernissen anzupaasen ist, insbesondere in Bezug auf die Datenbereichsgrenzen.
Wenn Du eine Steuerelement auf Deinem Arbeitsblatt, auf dem sich das eingebettete Diagramm als erstes Diagramm befindet, anlegst, dann wählst Du im Entwurfsmodus das Element an und klickst darauf. Dadurch wird das richtige Fenster im VBA-Ediotor geöffnet. Lösche den Inhalt indiesem Femstet und kopiere die fplgenden Teile komplett dort hinein:
Option Explicit
Const NDISPLAY = 10
Const DATAROW1 = 2
Private Sub SpinButton1_Change()
Dim R0 As Long, R1 As Long
R0 = Application.Min(DATAROW1 + (SpinButton1.Value - 1) * NDISPLAY, SpinButton1.Max)
R1 = DATAROW1 + SpinButton1.Value * NDISPLAY
With ActiveSheet.ChartObjects(1).Chart
.SeriesCollection(1).Values = "=Tabelle1!R" & R0 & "C2:R" & R1 & "C2"
.SeriesCollection(1).XValues = "=Tabelle1!R" & R0 & "C1:R" & R1 & "C1"
End With
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("A2:B65536"), Target) Is Nothing Then Exit Sub
With SpinButton1
.Max = Cells(Rows.Count, 1).End(xlUp).Row
.Min = DATAROW1
End With
End Sub
Wenn es nun weitere Anpassungsprobleme geben sollte, dann lade bitte eine Mustermappe hoch.
Viel Erfolg!
Uwe