Zeile und Zeile+1 löschen, Range Fehler
15.11.2018 12:02:41
Frank
ich hoffe Ihr könnt mir bei meinem Problem helfen, da ich nicht mehr weiter komme.
Ich habe einen Zeitwert. Dieser soll mit den Zeiten in der Spalte E verglichen werden. Ist der Zeitwert in der Spalte E größer als mein Vergleichswert, soll die Zeile und die direkte Zeile unter der zu löschenden Zeile gelöscht werden.
Hier der Code, wo er mir de Fehler (im If Block)angezeigt wird:
Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen
Kleiner Hinweis, wenn ich Step -2 eingebe oder komplett weglasse, tritt der Fehler nicht auf - der Code läuft zwar durch, aber es passiert nix.
Vielen Dank im Voraus.
Option Explicit
Sub Diagramm()
Dim wksEingabe As Worksheet
Dim wksData As Worksheet
Set wksEingabe = ActiveWorkbook.Worksheets("Tabelle1")
Set wksData = ActiveWorkbook.Worksheets("Tabelle2")
'Bildschirmaktualisierung Ausschalten
Application.ScreenUpdating = False
'Falls Werte > als eingegebener Max Wert auf X Achse, dann Zeilen löschen
Dim maxval As Date
Dim c As Long
maxval = wksEingabe.Range("A1")
Select Case wksEingabe.Range("A1")
Case Is > 0
For c = wksAusgabe.UsedRange.Rows.Count To 1 Step -1
If wksAusgabe.Cells(c, 5) > maxval Then
wksAusgabe.Range(Rows(c), Rows(c + 1)).Delete Shift:=xlUp
End If
Next c
Case ""
End Select
'Bildschirmaktualisierung Ausschalten
Application.ScreenUpdating = True
'Verweise Löschen
Set wksEingabe = Nothing
Set wksAusgabe = Nothing
Set wksData = Nothing
End Sub
Anzeige