Hallo beisammen,
leider gibt's einen Fehler bei folgendem Code:
Sub CustomBud()
Application.ScreenUpdating = False
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim actRow As Long
Set wb1 = Workbooks("Kundenbudget_IOE.xls")
Set wb2 = Workbooks("IOE_TEST.xls")
'Einfügen eines neuen Blocks
With wb2.Windows(1).ActiveSheet
actRow = .Cells(65536, "D").End(xlUp).Row - 11
.Rows(actRow & ":" & actRow + 11).Copy
.Paste Destination:=wb2.Windows(1).ActiveSheet.Cells(actRow + 12, 1)
Application.CutCopyMode = False
.Cells(actRow + 12, 4).Select
End With
Excel bricht ab an der Code-Zeile:
".Cells(actRow + 12, 4).Select" mit der Meldung:
"Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden"
Wie muß der Code denn nun richtig lauten. Ich probier' hier schon Stunden herum ohne Lösung.
Wahrscheinlich sehe ich den Wald nun vor lauter Bäumen nicht mehr.
Für Eure Tipps im voraus besten Dank.
Gruß
Torsten