title image


Smiley Re: Mit Makro Diagramm-Datenquelle steuern
Hi Hansjochen,



versuche es mal damit



Sub diagramm_hansjochen()

Dim loLetzte As Long

' letzte belegte Zelle in Spalte A der Tabelle Daten

loLetzte = IIf(IsEmpty(Worksheets("Daten").Cells(Rows.Count, 1)), Worksheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

With Worksheets("Diagramm").ChartObjects("Diagramm 1").Chart

.SeriesCollection(1).XValues = "=Daten!R2C1:R" & loLetzte & "C1"

.SeriesCollection(1).Values = "=Daten!R2C6:R" & loLetzte & "C6"

End With

Range("A1").Select

End Sub



GrußformelBeverly's Excel - Inn

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: