VBA-Laufzeitfehler 1004 "Anwendungsdefinierter oder objektdefinierter Fehler" bei der Auswahl des Bereichs
Ich habe ein Problem mit dem Fehler 1004 "Anwendungsdefinierter oder objektdefinierter Fehler" bei der Auswahl eines Bereichs.
Ich kann immer noch Zeilen auswählen (d. HRows("21:21").select
) und Bereiche in anderen Blättern derselben Arbeitsmappe auswählen. Ich glaube nicht, dass der Fehler im Code liegt. Vielleicht ist es eine Einstellung, die ich nicht kenne?
Ich habe den exakt gleichen Code schon oft benutzt, aber aus irgendeinem Grund kann ich ihn in diesem Sub nicht zum Laufen bringen (ich habe kommentiert, wo der Fehler auftritt) ...
Sub CopySheet1_to_PasteSheet2()
Dim CLastFundRow As Integer
Dim CFirstBlankRow As Integer
'Finds last row of content
Windows("Excel.xlsm").Activate
Sheets("Sheet1").Activate
Range("C21").Select
'>>>Error 1004 "Application-defined or Object-defined error" Occurs
Selection.End(xlDown).Select
CLastFundRow = ActiveCell.Row
'Finds first row without content
CFirstBlankRow = CLastFundRow + 1
'Copy Data
Range("A21:C" & CLastFundRow).Select
Selection.Copy
'Paste Data Values
Sheets("PalTrakExport PortfolioAIdName").Select
Range("A21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Bring back to top of sheet for consistancy
Range("A21").Select
Range("A1").Select
End Sub
Ich muss mich beim Kopieren sehr anstrengen, da sich die Anzahl der Zeilen häufig ändert. Wieder wurde der folgende Code zuvor ohne Fehler verwendet ... aber nicht in diesem Fall.
Dim CLastFundRow As Integer
Dim CFirstBlankRow As Integer
'Finds last row of content
Windows("Excel.xlsm").Activate
Sheets("Sheet1").Activate
Range("C21").Select
'>>>Error 1004 "Application-defined or Object-defined error" Occurs
Selection.End(xlDown).Select
CLastFundRow = ActiveCell.Row
'Finds first row without content
CFirstBlankRow = CLastFundRow + 1