Laufzeitfehler 1004
26.07.2015 14:41:49
Listopherus
Liebe Excel-Gemeinde,
ich habe ein kleines Makro geschrieben, das tägliche eine Zeile an eine Tabelle anfügt. Das funktioniert auf dem entsprechenden Tabellenblatt über einen CommandButton wunderbar.
Wenn ich aber versuche, es von der Übersicht (Tabelle1) aus zu starten, bekomme ich die wenig aussagekräftige Fehlermeldung "Anwendungs- oder objektdefinierter Fehler".
Hier ist der Code:
Private Sub CommandButton5_Click()
Dim D As Date
Dim c As Long
Sheets("Historie").Activate
ActiveSheet.Range("A65536").End(xlUp).Offset(1, 0).Select
D = ActiveCell.Offset(-1, 0).Value
If Weekday(D + 1) <> 1 And Weekday(D + 1) <> 7 Then
ActiveCell.Value = D + 1
Else
ActiveCell.Value = D + 3
End If
c = ActiveSheet.UsedRange.Rows.Count
ActiveSheet.Range(Cells(c - 1, 2), Cells(c - 1, 13)).Select 'Hier kommt die Fehlermeldung
Selection.AutoFill Destination:=Range(Cells(c - 1, 2), Cells(c, 13)), Type:=xlFillDefault
End Sub
Ich habe seit gestern alle möglichen Foren durchwühlt und finde keine Lösung.Wer kann helfen?
Listopherus