Dynamisches Diagramm "istleer" ignorienen

[Gameforce]

Sub Datenbereich_ermitteln_2()
On Error Resume Next

Dim Tabelle1 As String
Dim LZ As Long
Dim EZ As Long
Dim Spalte1 As Long
Dim AnzahlZeilen As Long

Tabelle1 = "Diagramm_Daten"
Spalte1 = 1
LZ = LetzteZeile(Tabelle1, Spalte1)
AnzahlZeilen = CLng(Worksheets("Graph").Cells(1, 18).Value)
EZ = LZ - AnzahlZeilen
If (EZ < 1) Then EZ = 1

'* schreibt die beiden Werte in Zellen BA1 und BB1 *
Worksheets("Diagramm_Daten").Cells(1, 53).Value = EZ
Worksheets("Diagramm_Daten").Cells(1, 54).Value = LZ
'***

End Sub

 

[Arek100]