Excel: Schnell Anfang und Ende eines zusammenhängenden Datenbereiches aus einem Diagramm...

Hallo Andreas Killer,
danke für deine Lösung. Ich werde sie mal ausprobieren.

Tja, das geht leider nicht so einfach. Evt. ist das hilfreich:
Klicke mit der rechten Maustaste auf die Blattregisterkarte
Wähle "Code anzeigen"
Füge den folgenden Code ein
Schließe den VBA-Editor
Wechsel in ein anderes Blatt und zurück, das aktiviert den Code
Jetzt klick das Diagramm an und den ersten Punkt der Dich interessiert, dann kommt eine MsgBox wie z.B.



Dann klickst Du einen 2ten Punkt an und dann kommt sowas



Andreas.
Option Explicit

Dim WithEvents C As Chart
Dim F As Range, T As Range

Private Sub C_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
Dim S As Series
Dim P As Point
Dim A
Dim Where As Range
Select Case ElementID
Case XlChartItem.xlSeries
Set S = C.SeriesCollection(Arg1)
If Arg2 < 0 Then
'Series
Else
'Series, Point
A = SplitSeriesFormula(S.Formula)
Set T = A(3).Cells(Arg2)
If F Is Nothing Then
Set F = T
MsgBox F.Address(0, 0) & " gewählt, Ok klicken und 2. Datenpunkt wählen", vbInformation, "1. Datenpunkt"
Else
Set Where = Range(F, T)
MsgBox "Mittelwert " & WorksheetFunction.Average(Where), vbInformation, "Datenbereich " & Where.Address(0, 0)
Set F = Nothing
End If
End If
End Select
End Sub

Private Sub Worksheet_Activate()
Set C = Me.ChartObjects(1).Chart
End Sub

Function SplitSeriesFormula(ByVal sf As String) As Variant
'Parse a series formula, return array of ranges/names/values
Const Delimiter = ",", Quote = "'", DoubleQuote = """"
Dim i As Long, j As Long
Dim InArray As Boolean, InQuote As Boolean
Dim Temp, Result
Dim n As Name
'Assume failure
SplitSeriesFormula = Array()
'Extract the cell references => remove "=SERIES(" and ")"
i = InStr(sf, "(")
If i = 0 Then Exit Function
sf = Mid$(sf, i + 1)
i = InStrRev(sf, ")")
If i = 0 Then Exit Function
sf = Left$(sf, i - 1)
'Remove double quotes
sf = Replace(sf, DoubleQuote, "")
'Temporary replace delimiters in sheet names and arrays
For i = 1 To Len(sf)
Select Case Mid$(sf, i, 1)
Case Quote
InQuote = Not InQuote
InArray = False
Case Application.International(xlLeftBrace), Application.International(xlRightBrace), "(", ")"
If Not InQuote Then InArray = Not InArray
Case Delimiter
If InQuote Or InArray Then Mid$(sf, i, 1) = Chr(255)
End Select
Next
'Split the formula
Temp = Split(sf, Delimiter)
ReDim Result(1 To UBound(Temp) + 1)
On Error Resume Next
For i = 0 To UBound(Temp)
'Restore the delimiters
Result(i + 1) = Replace(Temp(i), Chr(255), Delimiter)
'Remove braces from arrays
If Left$(Result(i + 1), 1) = Application.International(xlLeftBrace) Then _
Result(i + 1) = Mid$(Result(i + 1), 2)
If Right(Result(i + 1), 1) = Application.International(xlRightBrace) Then _
Result(i + 1) = Left$(Result(i + 1), Len(Result(i + 1)) - 1)
'Retrieve ranges if any
Set Result(i + 1) = Range(Result(i + 1))

If Not TypeOf Result(i + 1) Is Range Then
'Check for Names
If InStr(Result(i + 1), "!") > 0 Then
For Each n In Names
If InStr(Result(i + 1), n.Name) > 0 Then
Set Result(i + 1) = n
Exit For
End If
Next
End If
End If
Next
SplitSeriesFormula = Result
End Function

Hallo,

ich kann das Problem bei meinem Office 2016 nachstellen.

Aber nur dann, wenn ich einen einfachen Excel-Bereich als Datengrundlage für die Diagramme nehme.

Ich erweitere meine Liste, das Diagramm ist nicht automatisch erweitert. Wenn ich dann das Diagramm manuell auf den neuen Datenbereich verweisen lasse, wird das verknüpfte PowerPoint-Diagramm nicht aktualisiert.

Ändere ich hingegen nur einzelne Werte aus dem vorhandenen Bereich, wirken die Änderungen sofort in Excel und PowerPoint. Die Verknüpfung ist also da.

Du könntest alternativ versuchen, den Bereich für die Daten mit einem Namen zu versehen.

Oder Du verwendest einfach eine Tabelle für den Datenbereich (Als Tabelle formatieren mit z.B. STRG + T oder STRG + L). Der Datenbereich wird dann in Excel automatisch angepasst, da sich die Tabelle erweitert. Das Diagramm wird in Excel verändert und diese
Veränderungen sind bei mir sofort auch in PowerPoint sichtbar.

Viel Erfolg

Andreas

Wenn Du einen zusammenhängenden Datenbereich über mehrere Zeilen/Spalten hast und nur eine Zelle auswählst und dann einen AutoFilter erstellst, dann erzeugt Excel für alle Spalten eine Filtermöglichkeit. (Excel ermittelt automatisch alle Daten, was auch
sinnvoll ist).

Wenn Du dagegen z.B. nur 2 Spalten markierst und dann einen AutoFilter erstellst, , dann erzeugt Excel nur für diese Spalten eine Filtermöglichkeit.

Andreas.

Hallo Andreas,
meine Frage betraf nicht die Ansicht eines Diagramms. Hatte ich evtl. nicht präzise genug formuliert.
Es geht um die Erweiterung der Datenauswahl, bei Excel am PC unter Diagrammentwurf / Daten auswählen (Tooltip: Ändern Sie den im Diagramm enthaltenen Datenbereich).
Beispiel: Wenn einer Tabellenspalte täglich ein Zellenwert hinzugefügt wird und ein Diagramm entsprechend erweitert werden soll, dann kann bei iPadOS-Mobilgeräten wie iPad Air (oder ebenfalls bei Android-Handy) der Datenbereich nicht erweitert werden. Diese Möglichkeit fehlt, ist bei Windows-Mobilgeräten (z.B. TerraPad) aber vorhanden.