Laufzeitfehler 1004 bei Cells(1,1)
Sven
ich habe eine Rechnungsvorlagendatei aus der ich per Button bestimmte Werte in eine eigenständige Rechnungslistendatei kopieren möchte. Das kopieren zwischen den Dateien habe ich mit dem Makrorekorder von Excel bewerkstelligt, funktioniert auch soweit. Da nun aber die Rechnungsvorlagendatei immer beim speichern einen neuen Dateinamen erhält und mit dieser dann weitergearbeitet wird, habe ich den Code manuell erweitert und angepasst. Damit nun immer die nächste freie Zeile in der Rechnungsliste gesucht wird, habe ich mit Hilfe diese Forums die Range.Attribute in der Rechnungsliste angepasst.
Und hier liegt nun auch irgendwie der Fehler. Als Fehler Meldung erhalte ich "Lauftzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler".
Da das ganze schoneinmal lief, verstehe ich das Problem nicht.
Vielleicht kann mir ein Profi mal unter die Arme greifen an bei der Code:
Vielen Dank schonmal im Vorraus.
Sub btn_Werte()
' btn_Werte Makro
Dim vEingabe As Variant
Dim vEingabe2 As Variant
Range("AC10").Select
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
-> Cells(1, 1).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
Range("AF10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 2).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
Range("AF11").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 3).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
Range("AF14").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 4).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
Range("AC13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 5).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
Range("AB42").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 6).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
Range("AB21").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 7).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
Range("AF16").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 8).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
Range("AC12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 9).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
Range("D7").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 10).End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ActivatePrevious
vEingabe = InputBox("Bitte Ertragskonto eingeben:", "Irgendwas eingeben", "1690")
If vEingabe = "" Then
MsgBox "Der Benutzer hat abgebrochen oder nix eingegeben!"
Else
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 11).End(xlDown).Offset(1, 0) = vEingabe
End If
ActiveWindow.ActivatePrevious
vEingabe2 = InputBox("Bitte ZBL eingeben:", "Irgendwas eingeben", "0")
If vEingabe2 = "" Then
MsgBox "Der Benutzer hat abgebrochen oder nix eingegeben!"
Else
Windows("Rechnungsliste.xlsx").Activate
Cells(1, 12).End(xlDown).Offset(1, 0) = vEingabe2
End If
ActiveWindow.ActivatePrevious
MsgBox "Die Werte wurden übertragen!"
End Sub