Einfügen funktioniert erst beim 2. Mal
26.10.2007 15:54:39
Roland
wenn ich untenstehendes Makro ausführe, bekomme ich die Fehlermeldeung "Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden." Nach Abbruch des Makros ist der Schutz der Tabelle aufgehoben aber nichts kopiert. Wenn ich das Makro bei manueller Schutzaufhebung oder nach dem Abbruch ein 2. Mal ausführe funktioniert alles bestens.
Was ist Falsch an meinem Code?
Besten Dank für eure Mithilfe
Gruss
Roland
Sub MAausVorjahr()
On Error GoTo Fehler
Worksheets("Übersicht").Select
If [E6] "" Then
MsgBox "Keine Datenübernahme möglich, Daten sind bereits vorhanden!", vbInformation, "Datenü _
bernahme"
Exit Sub
Else
Workbooks("Absenzenplaner" & [A1] - 1 & ".xls").Sheets("Übersicht").Range("B6:G205"). _
Copy
On Error GoTo 0
With Worksheets("Übersicht")
.Unprotect myPwd
.Cells(6, 2).PasteSpecial xlPasteValues
.Cells(Rows.Count, 5).End(xlUp).Offset(0, 3).Formula = "0" ' Beim letzten MA "0" in _
Jubiläum schreiben
.Range("H6:H" & Cells(Rows.Count, 8).End(xlUp).Row).Formula = "0" ' Jubiläum mit "0" fü _
llen
.Range("F6:F" & Cells(Rows.Count, 6).End(xlUp).Row).Formula = "" ' Rest aus Vorjahr lö _
schen
.Protect myPwd
End With
Exit Sub
End If
Fehler:
MsgBox "Der Absenzenplaner " & [A1] - 1 & " muss zuerst geöffnet werden!", vbInformation, " _
Datenübernahme"
End Sub