Forums Neueste Beiträge
 

VBA: Paste klappt nicht mehr

10/11/2008 - 09:38 von c-class | Report spam
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
01. If
Workbooks(wb_name).Sheets(lookup).ProtectContents = True Then
02. Workbooks(wb_name).Sheets(lookup).Unprotect
("****") 03. 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
01.Workbooks(here_wb).Sheets("template").Activate 02.Range("C3",
"R3").Copy 'Überschriften 1 kopieren 03.
04.Workbooks(wb_name).Sheets(lookup).Activate 'Blatt mit
Suchübereinstimmung aktivieren 05.Range("C3").PasteSpecial
xlPasteValues

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

Danke vorab.
Nico
 

Lesen sie die antworten

#1 Melanie Breden
10/11/2008 - 14:35 | Warnen spam
Hallo Nico,

"c-class" schrieb:








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
01.Workbooks(here_wb).Sheets("template").Activate 02.Range("C3",
"R3").Copy 'Überschriften 1 kopieren 03.
04.Workbooks(wb_name).Sheets(lookup).Activate 'Blatt mit
Suchübereinstimmung aktivieren 05.Range("C3").PasteSpecial
xlPasteValues

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

versuchs mal ohne Aktivierung der Tabellenblàtter und stattdessen
mit genauer Rewferenzierung:

Workbooks(here_wb).Sheets("template").Range("C3", "R3").Copy
Workbooks(wb_name).Sheets(Lookup).Range("C3").PasteSpecial xlPasteValues


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de

Ähnliche fragen