Laufzeitfehler 1004... mal wieder...

Private Sub C_Save_Click()
Sheets("A-Z").Select
If MeinFormular.Caption = "Neuer Datensatz" Or MeinFormular.Caption = "Datensatz kopieren" Then
MeinFormular.Caption = "***"
Range("A" + Format(L_Nummer.Caption - 1, "####")).Select 'erzeugt keinen Fehler
Selection.EntireRow.Insert
End If
'[...] Einfügen des Datensatzes usw.
Sheets("Anzeige").Select
MeinFormular.Hide
End Sub

Private Sub C_Loeschen_Click()
If MsgBox("Achtung! Sie sind dabei, einen" + vbCrLf + "Datensatz zu löschen. Dies" + vbCrLf + "kann nicht zurückgenommen werden!", vbOKCancel) = vbOK Then
Sheets("A-Z").Select
Range("A" + Format(S_DS.Value + 1, "####")).Select 'erzeugt Fehler
Selection.EntireRow.Delete
S_DS.Max = S_DS.Max - 1
Sheets("Anzeige").Select
End If
End Sub