Office: (Office 365) Zeile Automatisch löschen

Hallo,
ich möchte eine digitale Werkzeugausgabe erstellen.
Mein Problem ist, das ich bei der automatischen Löschung von Zellen eine Fehlermeldung bekomme, wenn in Spalte 12 kein x steht.

Die Fehlermeldung ist Laufzeitfehler 1004 Keine Zellen gefunden.

Das ist der Code:
Sub Zeilen_löschen_Tabelle()

Dim lo As ListObject

Set lo = Tabelle1.ListObjects("Tabelle1")

lo.Range.AutoFilter Field:=12, Criteria1:="x"

Application.DisplayAlerts = False
lo.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True

lo.AutoFilter.ShowAllData

End Sub


Danke für die Hilfe

 

Hallo,

eine Fehlerbehandlung einfügen (On Error GoTo EndeSub) und ein Errorsprungziel (EndeSub:)

Code:

Sub Zeilen_löschen_Tabelle()

Dim lo As ListObject

Set lo = Tabelle1.ListObjects("Tabelle1")
On Error GoTo EndeSub
lo.Range.AutoFilter Field:=12, Criteria1:="x"

Application.DisplayAlerts = False
lo.DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
EndeSub:
Application.DisplayAlerts = True

lo.AutoFilter.ShowAllData

End Sub

 

Hallo Exl121150,
danke für die schnell Hilfe es hat funktioniert.
Könntest du mir bitte beim Datum auch helfen?
Ich möchte das in der Zelle H2:H100 und K2:K100 die gleiche Funktion ist wie im untern Code.
Ich bekomme immer eine Fehlermeldung:
Laufzeitfehler 1004
Die Methode Range für das Objekt Worksheet ist fehlgeschlagen.

Code:

Sub Worksheet_Change(ByVal Target As Range)
'Quelle: Ransi
If Intersect(Target, Range("H2:H100;K2:K100")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 1).ClearContents
Else
Target.Offset(0, 1) = CDate(Format(Now, "dd.mm.yyyy hh:mm"))
End If
End Sub

Danke

 

Hallo,

ändere in Range("H2:H100;K2:K100") den Strichpunkt in ein Komma: Range("H2:H100,K2:K100")
In VBA wird normalerweise die ursprüngliche englische Schreibweise benötigt.