Diagramm aus Tabelle
22.11.2004 12:30:45
Martina
habe ein Makro welches aus den Spalten einer Excel-Tabelle ein Diagramm kreiert, sobald ich auf den entsprechenden Button klicke. Da sich die Datenreihe monatlich vergrößert erkennt das Makro automatisch die letzte Zeile, so dass auch das Diagramm monatlich angepasst wird.
Jetzt habe ich die ursprünglichen Daten, aus denen ein Diagramm erstellt werden soll nun nicht mehr in Spalten, sondern in Zeilen.
Bisheriger Code:
Private Sub ToggleButton2_Click() 'Absatz
Set myChrt = ActiveSheet.ChartObjects("Diagramm 3").Chart
lEnd = Sheets("Tabelle1").Range("B65536").End(xlUp).Row
With myChrt
If ToggleButton2 = True Then
.SeriesCollection(2).Values = "=Tabelle1!R2C4:R" & lEnd & "C4"
Else
.SeriesCollection(2).Values = 0
End If
End With
Set myChrt = Nothing
End Sub
Wie kann ich die Zeile
lEnd = Sheets("Tabelle1").Range("B65536").End(xlUp).Row
so umwandeln, dass die letzte Zahl in der Zeile (und nicht in der Spalte) genommen wird?
Ich habe es so versucht:
lEnd = Sheets("Tabelle1").Range("IV18").End(xlUp).Column
(IV als letzte Spalte auf dem Blatt überhaupt) aber das funktioniert nicht.
Vielen Dank!
Martina