ich habe ein Problem mit folgendem Makro. Ich möchte Daten aus einer geöffneten Datei in eine ausgewählte Datei kopieren. Dabei soll die Zieldatei geöffnet, entsprechende Werte eingefügt und wieder geschlossen werden. Das funktioniert, wenn die Zieldatei keinen Blattschutz hat; also beim ersten Mal ohne Probleme. Danach ist der Blattschutz gesetzt. Wiederhole ich den Vorgang, bleibt alles in der Zeile Selection.PasteSpezial..." hängen. Was mach ich falsch oder wie mach ichs besser?
Sub Daten_aktualisieren()
Application.DisplayAlerts = False
Range("C3:F20").Copy
'Application.Dialogs(xlDialogOpen).Show 'aktivieren des Dialogs
Workbooks.Open Filename:="D:\Meine_Dateien_neu\Hans\Zieldatei2.xls"
Sheets("Tabelle1").Select
ActiveSheet.Unprotect Password:=""
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Protect Password:=""
ActiveWorkbook.Close True
Application.DisplayAlerts = True
End Sub
Danke und Gruß
Hans