Laufzeitfehler
05.02.2014 11:48:41
Excel
Folgendes bringt eine Laufzeitfehler 1004 und spring bei debuggen zum jetzt auskommentierten "Paste.Special".
Soll: Das Filterlöschen und Aktivieren der der ersten möglichen freien Eingabezelle in Spalte B Tabelle Arbeitsauftragsbuch.
Ist: Der Filter wird gelöscht, aber dann in die andere Tabelle "Arbeitsauftrag" gesprungen und dort die erste mögliche freie Eingabezelle in Spalte B Tabelle mearkiert um dann mit Laufzeitfehler abzubrechen.
ByVal SaveAsUI As Boolean, _
Cancel As Boolean)
Sheets("Arbeitsauftragsbuch").Select
ActiveSheet.Unprotect
Sheets("Arbeitsauftragsbuch").Select
Dim wks As Worksheet
For Each wks In Worksheets
With wks
If .FilterMode Then .ShowAllData
With .Cells(.Rows.Count, 2).End(xlUp).Offset(1)
.Copy
' .PasteSpecial xlPasteFormats
End With
End With
Application.CutCopyMode = False
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
:=True
Sheets("Arbeitsauftragsbuch").Select
End Sub
Was muss ich zun?
Danke und Grüße, Alex.