CommandButton
27.07.2003 15:15:11
Joerg
Ich habe einen CommandButton mit dem Namen 'Löschen' in Tabelle1 erstellt und habe versucht
das Makro für 'Löschen von Zellen' (s.u.) in die folgenden Zeilen einzubauen:
Private Sub Löschen_Click()
End Sub
Leider bekomme ich immer die Antwort Laufzeitfehler 424, Objekt erforderlich.
Wer kann mir weiterhelfen?
Danke Joerg
'Makro für Löschen von Zellen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Antwort As String
If Target.Column = 1 Then
Antwort = MsgBox((Cells(Target.Row, 3)) & " wirklich löschen?", vbYesNo + vbQuestion)
If Antwort = vbYes Then
' ActiveSheet.Unprotect "joerg"
Range(Cells(Target.Row, 3), Cells(Target.Row, 7)).ClearContents
' ActiveSheet.Protect Password:="joerg", DrawingObjects:=True, Contents:=True, Scenarios:=True
phad = ThisWorkbook.Path 'definiert Speicherverzeichnis
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs FileName:=phad & "\" & Format(Now, "DD-MM-YY") & "Backup.XLS"
Range("G15").Select
Range("C15").Select
End If
End If
' weiteres Makro
End Sub