Laufzeitfehler, Haltemodus, Wertkopie
06.11.2017 14:36:14
Holger
Ich habe eine geschützte Arbeitsmappe, die mit einer Datenbank verknüpft ist und ein Makro soll eigentlich den Schutz aufheben und in allen Register die Werte kopieren. Leider erscheint eine Fehlermeldung.
Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler.
Code kann im Haltemodus nicht ausgeführt werden (Zeile mit .UsedRange = wird angezeigt)
Ich weiß nun nicht woran es liegt. Benötige euren Support! Dankeschön!
Sub Wert()
Dim I As Integer
Application.ScreenUpdating = False
For I = 1 To Worksheets.Count
If Worksheets(I).Visible = True Then
With Worksheets(I)
.Unprotect ("PW") 'Passwort
.UsedRange = .UsedRange.Value
End With
End If
Next I
Application.ScreenUpdating = True
MsgBox "Die Wertekopie wurde erstellt!"
End Sub