Wertkopie Sheet
21.03.2005 09:45:57
Matthes
habe ein kleineres Problemchen, an dem ich mir aber gerade die Finger breche:
Was muß ich unten (fragliche Stelle mit '? gekennzeichnet) einfügen, damit sich in Sheet("3") keine externen Verknüpfungen mehr befinden, sprich: ich will vor dem weiteren Verwursten des Sheets eine WERTKOPIE dort erstellen. Oder muß ich bereits in der Zeile "Workbooks(wb.Name).Activate" eine mögliche externe Verknüpfung unterbinden?
Hier der Auszug aus dem Makro:
For Each wb In Workbooks
If Not wb.Name = target_WorkBook.Name Then
'MsgBox (wb.Name)
Workbooks(wb.Name).Activate
entity_nr = Sheets("1").Range("D1")
Sheets("3").Select
'?
Sheets("3").Copy before:=Workbooks(target_WorkBook.Name).Sheets(1)
Workbooks(target_WorkBook.Name).Activate
Sheets(1).Select
Sheets(1).Name = entity_nr & "b"
Cells.Select
Selection.Copy
Sheets(entity_nr).Unprotect "Blatt1"
Sheets(entity_nr).Activate
Cells.Select
ActiveSheet.Paste
Sheets(1).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
Next wb
Vielen Dank vorab für Eure Hilfe.
Gruß,
Matthes