Die Methode Delete ist fehlgeschlagen
08.02.2021 18:03:43
Max
An sich handelt es sich jedoch um die Ecxel 365 Version.
Seit Einigen Monaten Funktioniert der Code ohne Probleme.
Heute jedoch :
Der Fehler taucht aber auch nicht beim ersten Durchgang auf sondern aus irgendwelchen Gründen nach einer willkürlichen Anzahl an bearbeiteten Dateien.
Sub Schaltfläche6_Klicken()
'Erzeugen der Graphen 20 Jahres Lückentester
Dim MMQ As Boolean
Dim uQ As Integer
Dim oQ As Integer
Dim Name As String
Dim Graph As Range
Dim Blattname As String
Dim Rohdaten As String
Dim x As Double
Dim i As Long
Dim Ws As Worksheet
Dim c As Integer
Dim d As Integer
Dim Fehler As String
x = 17
Application.ScreenUpdating = False
Rohdaten = ActiveWorkbook.Worksheets("Tabelle1").Cells(x, 1).Text
Fehler = ActiveWorkbook.Worksheets("Tabelle1").Cells(x, 10).Text
If ActiveWorkbook.Worksheets("Tabelle1").Range("V28").Value = Ja Then
MMQ = True
Else
MMQ = False
End If
uQ = ActiveWorkbook.Worksheets("Tabelle1").Range("V31").Value
oQ = ActiveWorkbook.Worksheets("Tabelle1").Range("V32").Value
Do While Rohdaten ""
'Nächste Messstelle bearbeiten wenn Fehler vorhanden
If Fehler "Fehler" Then
Rohdaten = ActiveWorkbook.Worksheets("Tabelle1").Cells(x, 1).Text
'wenn Zelle Leer Schleife beenden
If Rohdaten = "" Then Exit Do
Workbooks.Open Rohdaten
Blattname = ActiveSheet.Name
'Prüfung Ob Sheet Graphen vorhanden
For Each Ws In Sheets
If Ws.Name = "Graphen" Then
Application.DisplayAlerts = False
Sheets("Graphen").Delete ' Hier taucht der Fehler manchmal auf
Application.DisplayAlerts = True
Else
End If
Next Ws