|
|
Sub AktualisiereXYDiagrammWiderstand()
|
|
|
Dim datenWs As Worksheet
|
|
|
Dim diagrammWs As Worksheet
|
|
|
Dim chartObj As ChartObject
|
|
|
Dim diagramm As Chart
|
|
|
Dim xRange As Range
|
|
|
Dim yRange As Range
|
|
|
Dim letzteSpalte As Long
|
|
|
Dim letzteZeile As Long
|
|
|
Dim i As Long
|
|
|
' Arbeitsblätter definieren
|
|
|
Set datenWs = ThisWorkbook.Worksheets(1) ' Blatt mit den Daten
|
|
|
Set diagrammWs = ThisWorkbook.Worksheets(3) ' Blatt mit dem Diagramm
|
|
|
' Diagramm definieren
|
|
|
Set chartObj = diagrammWs.ChartObjects(1) ' Diagrammname anpassen
|
|
|
Set diagramm = chartObj.Chart
|
|
|
' Letzte Zeile und Spalte der Daten finden
|
|
|
letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row ' X-Werte in Spalte A
|
|
|
letzteSpalte = datenWs.Cells(3, datenWs.Columns.Count).End(xlToLeft).Column ' Y-Werte ab Spalte B
|
|
|
' MsgBox letzteZeile, vbInformation
|
|
|
' MsgBox letzteSpalte, vbInformation
|
|
|
' X-Werte-Bereich definieren (fix in Spalte A, ab Zeile 3)
|
|
|
Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1)) ' Daten beginnen ab Zeile 3
|
|
|
' Bestehende Datenreihen im Diagramm entfernen
|
|
|
Do While diagramm.SeriesCollection.Count > 0
|
|
|
diagramm.SeriesCollection(1).Delete
|
|
|
Loop
|
|
|
' Neue Datenreihen hinzufügen
|
|
|
For i = 2 To letzteSpalte ' Y-Werte beginnen in Spalte B
|
|
|
Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i))
|
|
|
' Neue Datenreihe hinzufügen
|
|
|
With diagramm.SeriesCollection.NewSeries
|
|
|
.Name = datenWs.Cells(2, i).Value ' Name der Reihe aus der Kopfzeile (Zeile 1)
|
|
|
.XValues = xRange
|
|
|
.Values = yRange
|
|
|
End With
|
|
|
Next i
|
|
|
End Sub
|
|
|
|
|
|
Sub AktualisiereXYDiagrammKraft()
|
|
|
Dim datenWs As Worksheet
|
|
|
Dim diagrammWs As Worksheet
|
|
|
Dim chartObj As ChartObject
|
|
|
Dim diagramm As Chart
|
|
|
Dim xRange As Range
|
|
|
Dim yRange As Range
|
|
|
Dim letzteSpalte As Long
|
|
|
Dim letzteZeile As Long
|
|
|
Dim i As Long
|
|
|
' Arbeitsblätter definieren
|
|
|
Set datenWs = ThisWorkbook.Worksheets(2) ' Blatt mit den Daten
|
|
|
Set diagrammWs = ThisWorkbook.Worksheets(4) ' Blatt mit dem Diagramm
|
|
|
' Diagramm definieren
|
|
|
Set chartObj = diagrammWs.ChartObjects(1) ' Diagrammname anpassen
|
|
|
Set diagramm = chartObj.Chart
|
|
|
' Letzte Zeile und Spalte der Daten finden
|
|
|
letzteZeile = datenWs.Cells(datenWs.Rows.Count, 1).End(xlUp).Row ' X-Werte in Spalte A
|
|
|
letzteSpalte = datenWs.Cells(3, datenWs.Columns.Count).End(xlToLeft).Column ' Y-Werte ab Spalte B
|
|
|
'MsgBox letzteZeile, vbInformation
|
|
|
'MsgBox letzteSpalte, vbInformation
|
|
|
' X-Werte-Bereich definieren (fix in Spalte A, ab Zeile 3)
|
|
|
Set xRange = datenWs.Range(datenWs.Cells(3, 1), datenWs.Cells(letzteZeile, 1)) ' Daten beginnen ab Zeile 3
|
|
|
' Bestehende Datenreihen im Diagramm entfernen
|
|
|
Do While diagramm.SeriesCollection.Count > 0
|
|
|
diagramm.SeriesCollection(1).Delete
|
|
|
Loop
|
|
|
' Neue Datenreihen hinzufügen
|
|
|
For i = 2 To letzteSpalte ' Y-Werte beginnen in Spalte B
|
|
|
Set yRange = datenWs.Range(datenWs.Cells(3, i), datenWs.Cells(letzteZeile, i))
|
|
|
' Neue Datenreihe hinzufügen
|
|
|
With diagramm.SeriesCollection.NewSeries
|
|
|
.Name = datenWs.Cells(2, i).Value ' Name der Reihe aus der Kopfzeile (Zeile 1)
|
|
|
.XValues = xRange
|
|
|
.Values = yRange
|
|
|
End With
|
|
|
Next i
|
|
|
End Sub
|
|
|
|
|
|
Sub AktualisiereXYDiagrammInkrementWiderstand()
|
|
|
Dim wsAktuell As Worksheet
|
|
|
Dim ws As Worksheet
|
|
|
Dim chartObj As ChartObject
|
|
|
Dim diagramm As Chart
|
|
|
Dim letzteZeile As Long
|
|
|
Dim letzteSpalte As Long
|
|
|
Dim datenBereichX As Range
|
|
|
Dim datenBereichY1 As Range
|
|
|
Dim datenReihe As Series
|
|
|
Dim diagrammTitel As String
|
|
|
Dim startZeile As Long
|
|
|
Dim blockAnzahl As Long
|
|
|
Dim blockStartSpalte As Long
|
|
|
Dim blockEndSpalte As Long
|
|
|
Dim blockIndex As Integer
|
|
|
|
|
|
' Arbeitsblatt "Widerstandsdiagramm" festlegen
|
|
|
Set wsAktuell = ThisWorkbook.Worksheets("Widerstandsdiagramm")
|
|
|
|
|
|
' Diagramm auf "Widerstandsdiagramm" suchen
|
|
|
If wsAktuell.ChartObjects.Count = 0 Then
|
|
|
MsgBox "Kein Diagramm auf 'Widerstandsdiagramm' gefunden.", vbExclamation
|
|
|
Exit Sub
|
|
|
End If
|
|
|
|
|
|
Set chartObj = wsAktuell.ChartObjects(1)
|
|
|
Set diagramm = chartObj.Chart
|
|
|
|
|
|
' Vorhandene Datenreihen löschen
|
|
|
Do While diagramm.SeriesCollection.Count > 0
|
|
|
diagramm.SeriesCollection(1).Delete
|
|
|
Loop
|
|
|
|
|
|
' Alle Blätter vor "Widerstandsdiagramm" durchlaufen
|
|
|
For Each ws In ThisWorkbook.Worksheets
|
|
|
If ws.Index < wsAktuell.Index Then
|
|
|
' Letzte Zeile im Blatt ermitteln
|
|
|
letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
|
|
|
|
|
|
' Prüfen, ob relevante Daten vorhanden sind
|
|
|
If letzteZeile >= 3 Then
|
|
|
' Startzeile und Anzahl der Datenblöcke definieren
|
|
|
startZeile = 3
|
|
|
blockStartSpalte = 1 ' Erste Spalte für x
|
|
|
blockEndSpalte = 3 ' Spalten x, y1, y2
|
|
|
blockAnzahl = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column / 3 ' Anzahl Blöcke
|
|
|
|
|
|
' Datenblöcke durchlaufen
|
|
|
For blockIndex = 0 To blockAnzahl - 1
|
|
|
' X-Werte und Y1-Werte für den aktuellen Block definieren
|
|
|
With ws
|
|
|
Set datenBereichX = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3), _
|
|
|
.Cells(letzteZeile, blockStartSpalte + blockIndex * 3)) ' Spalte X
|
|
|
Set datenBereichY1 = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3 + 1), _
|
|
|
.Cells(letzteZeile, blockStartSpalte + blockIndex * 3 + 1)) ' Spalte Y1
|
|
|
|
|
|
' Neue Datenreihe hinzufügen
|
|
|
Set datenReihe = diagramm.SeriesCollection.NewSeries
|
|
|
datenReihe.Values = datenBereichY1
|
|
|
datenReihe.XValues = datenBereichX
|
|
|
datenReihe.Name = ws.Name & " - Position " & (blockIndex + 1)
|
|
|
End With
|
|
|
Next blockIndex
|
|
|
End If
|
|
|
End If
|
|
|
Next ws
|
|
|
End Sub
|
|
|
|
|
|
Sub AktualisiereXYDiagrammInkrementKraft()
|
|
|
Dim wsWiderstand As Worksheet
|
|
|
Dim wsKraft As Worksheet
|
|
|
Dim ws As Worksheet
|
|
|
Dim chartObj As ChartObject
|
|
|
Dim diagramm As Chart
|
|
|
Dim letzteZeile As Long
|
|
|
Dim datenBereichX As Range
|
|
|
Dim datenBereichY2 As Range
|
|
|
Dim datenReihe As Series
|
|
|
Dim diagrammTitel As String
|
|
|
Dim startZeile As Long
|
|
|
Dim blockAnzahl As Long
|
|
|
Dim blockStartSpalte As Long
|
|
|
Dim blockEndSpalte As Long
|
|
|
Dim blockIndex As Integer
|
|
|
|
|
|
' Arbeitsblätter "Widerstandsdiagramm" und "Kraftdiagramm" festlegen
|
|
|
Set wsWiderstand = ThisWorkbook.Worksheets("Widerstandsdiagramm")
|
|
|
Set wsKraft = ThisWorkbook.Worksheets("Kraftdiagramm")
|
|
|
|
|
|
' Diagramm auf "Kraftdiagramm" suchen
|
|
|
If wsKraft.ChartObjects.Count = 0 Then
|
|
|
MsgBox "Kein Diagramm auf 'Kraftdiagramm' gefunden.", vbExclamation
|
|
|
Exit Sub
|
|
|
End If
|
|
|
|
|
|
Set chartObj = wsKraft.ChartObjects(1)
|
|
|
Set diagramm = chartObj.Chart
|
|
|
|
|
|
' Vorhandene Datenreihen löschen
|
|
|
Do While diagramm.SeriesCollection.Count > 0
|
|
|
diagramm.SeriesCollection(1).Delete
|
|
|
Loop
|
|
|
|
|
|
' Alle Blätter vor "Widerstandsdiagramm" durchlaufen
|
|
|
For Each ws In ThisWorkbook.Worksheets
|
|
|
If ws.Index < wsWiderstand.Index Then
|
|
|
' Letzte Zeile im Blatt ermitteln
|
|
|
letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
|
|
|
|
|
|
' Prüfen, ob relevante Daten vorhanden sind
|
|
|
If letzteZeile >= 3 Then
|
|
|
' Startzeile und Anzahl der Datenblöcke definieren
|
|
|
startZeile = 3
|
|
|
blockStartSpalte = 1 ' Erste Spalte für x
|
|
|
blockEndSpalte = 3 ' Spalten x, y1, y2
|
|
|
blockAnzahl = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column / 3 ' Anzahl Blöcke
|
|
|
|
|
|
' Datenblöcke durchlaufen
|
|
|
For blockIndex = 0 To blockAnzahl - 1
|
|
|
' X-Werte und Y2-Werte für den aktuellen Block definieren
|
|
|
With ws
|
|
|
Set datenBereichX = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3), _
|
|
|
.Cells(letzteZeile, blockStartSpalte + blockIndex * 3)) ' Spalte X
|
|
|
Set datenBereichY2 = .Range(.Cells(startZeile, blockStartSpalte + blockIndex * 3 + 2), _
|
|
|
.Cells(letzteZeile, blockStartSpalte + blockIndex * 3 + 2)) ' Spalte Y2
|
|
|
|
|
|
' Neue Datenreihe hinzufügen
|
|
|
Set datenReihe = diagramm.SeriesCollection.NewSeries
|
|
|
datenReihe.Values = datenBereichY2
|
|
|
datenReihe.XValues = datenBereichX
|
|
|
datenReihe.Name = ws.Name & " - Position " & (blockIndex + 1)
|
|
|
End With
|
|
|
Next blockIndex
|
|
|
End If
|
|
|
End If
|
|
|
Next ws
|
|
|
End Sub
|
|
|
|
|
|
|
