Diagramm nur Zellen mit Wert einlesen
18.11.2013 10:06:55
Maen
ich habe ein Problem mit meinem Diagramm. Nachdem ich mein Tabellenblatt kopiert und die Diagrammbezüge geändert habe, funktioniert es eigentlich. Jedoch sind die Bezugszellen nicht immer gefüllt. WIe kann ich Excel sagen, dass er nur die gefüllten Zellen nutzen soll?
Hier mein code:
Private Sub OKButton_Click()
Dim NewName As String
Dim wsNeu As Worksheet
Dim Vorlage As Worksheet
Worksheets("Vorlage").Copy Before:=ActiveSheet
ActiveSheet.Name = TextBoxName
'Diagramm auf neues Bauteil beziehen
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = Range("AY4:AY23")
ActiveChart.SeriesCollection(1).Values = Range("AX4:AX23")
ActiveChart.SeriesCollection(2).XValues = Range("AY4:AY23")
ActiveChart.SeriesCollection(2).Values = Range("AZ4:AZ23")
ActiveChart.SeriesCollection(3).XValues = Range("BC4:BC7")
ActiveChart.SeriesCollection(3).Values = Range("BB4:BB7")
Set Vorlage = ActiveSheet
Vorlage.Cells(21, 19).Value = TextBox27.Value
'Kopieren innerhalb Tabellenblatts
Dim rng
Dim loLetzte As Long
With Vorlage
.Range("L4:L21").Copy
Vorlage.Range("B27").PasteSpecial Paste:=xlPasteValues
End With
Vorlage.Range("B27:B45").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftUp
Unload Me
End Sub
Anzeige