Zellinhalt eine Zeile tiefer löschen
01.09.2022 20:02:16
Heinz-Dieter
Ende Juni hat mir Daniel hier bei einem Problem super geholfen.
Mit folgendem Code kann ich nun meine Auftragsnummern (Werkstattarbeit = Nr. / Montage = Nr.+m)
in meinem Fertigungsterminplan finden und bei Bedarf den Auftrag incl. der hinterlegten Zeiten löschen.
Sub Zeiten_löschen()
'hier werden die Auftragsnummern und die zugehörigen Zeiten gelöscht
Dim DatAnfang As Date
DatAnfang = Now
If Worksheets("Berechnungen").Range("B2").Value = "" Then 'wenn kein Auftrag ausgewählt ist, bleibt die Zelle B2 leer - nicht "0"!
MsgBox "keine Auftrag zum Löschen ausgewählt"
Exit Sub
End If
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:="xxx"
Application.Goto Reference:="Personal_Farben"
'alle Zellen mit der Auftragsnummer (Werkstattarbeit) suchen und löschen
Selection.Replace What:=Sheets("Berechnungen").Range("B4").Value, Replacement:=True, LookAt:=xlWhole
Selection.SpecialCells(xlCellTypeConstants, 4).Offset(1, 0).ClearContents
Selection.SpecialCells(xlCellTypeConstants, 4).ClearContents
'alle Zellen mit der Auftragsnummer (Montage = Auftragsnummer + "m") suchen und löschen
Selection.Replace What:=Sheets("Berechnungen").Range("B5").Value, Replacement:=True, LookAt:=xlWhole
Selection.SpecialCells(xlCellTypeConstants, 4).Offset(1, 0).ClearContents
Selection.SpecialCells(xlCellTypeConstants, 4).ClearContents
ActiveSheet.Protect Password:="xxx"
Application.ScreenUpdating = True
End Sub
nur Werkstattarbeit (Nr.) aber keine Montage (Nr.+m) eingetragen ist.
In der Zeile "Selection.SpecialCells(xlCellTypeConstants, 4).Offset(1, 0).ClearContents" bekomme ich dann
jedoch den Laufzeitfehler 1004 "Keine Zellen gefunden"!
Wie kann ich diesen Fehler abfangen?
Danke für eure Hilfe und Unterstützung.
Gruß
Dieter