Laufzeitfehler 1004... mal wieder...
22.02.2005 11:42:32
Udo
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
Das eigentliche Phänomen ist, dass die Save-Routine beim Range-Select keinen Fehler auslöst (wird aus einem Userform aufgerufen), die löschroutine aber wohl (wird über einen Button auf einem anderen Sheet aufgerufen - ja, ich habe TakeFocusOnClick für diesen Button auf "false" gesetzt!)
Wo liegt mein Denkfehler? Der entscheidende Code ist doch gleich!?! Das entsprechende Sheet ist auch aktiv/selektiert...
Gruß und Danke für Vorschläge
Udo