dynamisches 3D-Diagramm

Hallo zusammen,
ich habe ein 3D-Diagramm mit einer x,y Ebene auf dem ich die z-Koordinaten darstellen möchte. Die x,y Ebene ist dynamisch, d.h. sie kann größer oder kleiner werden. Ich hatte mir überlegt den Darstellungsbereich der x,y Ebene groß zu wählen und mit der Funktion NV() die Bereiche ausblenden zu lassen, wenn x,y kleiner wird. Leider wird bei 3D Diagrammen die NV() stellen trotzdem angezeigt (siehe Beispielmappe).
Bei Liniendiagrammen kann man mit der Funktion INDIREKT im Namenmanager sich eine dynamische Achse basteln und diese im Diagramm zu implementieren. Leider sehe ich bei 3D Diagrammen diese Möglichkeit nicht.
Hat jemand eine Idee, wie man das trotzdem (mit oder ohne VBA) bewerkstelligen kann?
Ich bin für jede Hilfe dankbar.
Grüße
AL
https:\/\/www.herber.de/bbs/user/137340.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DiaDynamisch() Dim lngZeile As Long Dim intSpalte As Integer intSpalte = Application.Count(Rows(3)) + 2 lngZeile = Application.Count(Columns(2)) + 3 With ActiveSheet.ChartObjects(1).Chart .SetSourceData Source:=Range("$B$3:" & Cells(lngZeile, intSpalte).Address) End With End Sub

Sub DiaDynamisch() Dim lngZeile As Long Dim intSpalte As Integer With Worksheets("1_mxd+") intSpalte = Application.Count(.Rows(3)) + 2 lngZeile = Application.Count(.Columns(2)) + 3 End With With Worksheets("PBew_Druck").ChartObjects(1).Chart .SetSourceData Source:=Worksheets("1_mxd+").Range("$B$3:" & _ Cells(lngZeile, intSpalte).Address) End With End Sub

Hallo Beverly,
anbei findest du die 3D Diagramme. Ich habe es mit deinem Code versucht, allerdings wird das Diagramm verschoben. Zum Verständnis: auf den beiden Tabellenblättern PBew_Druck & _Zug ist jeweils noch ein Diagramm enthalten.
Ich habe deinen Code in einem Modul eingebunden, das mehrere Funktionen Subs nacheinander ausführt.
Anbei der Code für ein Diagramm auf dem Blatt PBew_Druck, den ich umgeschrieben habe:

Sub DiaDynamisch()
Dim lngZeile As Long
Dim intSpalte As Integer
With Worksheets("1_mxd+")
intSpalte = Application.Count(Rows(5)) + 3
lngZeile = Application.Count(Columns(3)) + 4
End With
With Worksheets("PBew_Druck").ChartObjects(2).Chart
.SetSourceData Source:=Worksheets("1_mxd+").Range("$C$5:" & Cells(lngZeile, intSpalte). _
Address)
End With
End Sub

Hast du eine Idee, was ich falsch gemacht haben könnte?
https:\/\/www.herber.de/bbs/user/137370.xlsx

Sub DiasBearbeiten() Dim strFormel As String Dim strX As String Dim strY As String Dim lngZeile As Long Dim intSpalte As Integer Dim intDia As Integer Dim strTab As String For intDia = 1 To Worksheets("PBew_Druck").ChartObjects.Count With Worksheets("PBew_Druck").ChartObjects(intDia).Chart strFormel = .SeriesCollection(1).Formula strX = Split(strFormel, ",")(2) strY = Split(strFormel, ",")(1) strTab = Left(strY, InStr(strY, "!") - 1) strTab = Application.Substitute(strTab, "'", "") With Worksheets(strTab) intSpalte = Application.Count(.Rows(5)) + 3 lngZeile = Application.Count(.Columns(5)) + 4 End With .SetSourceData Source:=Worksheets(strTab).Range("$C$5:" & _ Cells(lngZeile, intSpalte).Address) End With Next intDia End Sub

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

133 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

dynamisches 3D-Diagramm

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

133 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread