Makro zur Wertkopie läuft nicht
28.10.2013 08:05:59
Holger
ich habe eine Problem mit einem Makro und komme nicht weiter. Ich habe eine große Arbeitsmappe, in der alle Register mit einem Passwort geschützt sind. Nun soll das Makro eine Wertkopie der gesamten Arbeitsmappe erstellen (dazu soll der Passwortschutz aufhehoben werden und die Werte reinkopiert).
Sub Wertkopie()
Dim I As Integer
Application.ScreenUpdating = False
For I = 1 To Worksheets.Count
If Worksheets(I).Visible = True Then
With Worksheets(I)
.Unprotect ("Passwort") 'Passwort
.UsedRange = .UsedRange.Value
End With
End If
Next I
Application.ScreenUpdating = True
MsgBox "Die Wertekopie wurde erstellt!"
End Sub
Bei der Ausführung kommt es nun aber zu einem Fehler:.UsedRange = .UsedRange.Value
Code kann im Haltemodus nicht ausgeführt werden. Was bedeutet dies und wie kann ich ich dies umgehen? Vielen Dank für euren Support im Voraus!
Holger