68023
Goto Top

Paste klappt bei geschütztem Sheet nicht

Hallo,

ein bisher reibungslos arbeitendes Skript soll nun auch geschützte Tabellen zunächst entsperren und dann seine Arbeit tun.
Die fragwürdigen Tabellen waren bisher nicht geschützt, sind es nun jedoch.

Zunächst gebe ich das Sheet wieder frei:
                If Workbooks(wb_name).Sheets(lookup).ProtectContents = True Then
                    Workbooks(wb_name).Sheets(lookup).Unprotect ("****")  
                End If

Und möchte dann - wie bisher auch immer erfolgreich umgesetzt - etwas aus einer anderen Tabelle kopieren:

Workbooks(here_wb).Sheets("template").Activate  
Range("C3", "R3").Copy 'Überschriften 1 kopieren  
                
Workbooks(wb_name).Sheets(lookup).Activate 'Blatt mit Suchübereinstimmung aktivieren  
Range("C3").PasteSpecial xlPasteValues  


Obwohl das unprotecten wunderbar funktioniert, kann nicht eingefügt werden.
Woran kann das liegen?

Danke vorab.
Nico

Content-Key: 101293

Url: https://administrator.de/contentid/101293

Ausgedruckt am: 29.03.2024 um 00:03 Uhr