Herbers Excel-Forum - das Archiv
Wertkopie Sheet
Betrifft: Wertkopie Sheet
von: Matthes
Geschrieben am: 21.03.2005 09:45:57
Guten Morgen allerseits,
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
Betrifft: AW: Wertkopie Sheet
von: Uwe Küstner
Geschrieben am: 23.03.2005 00:03:41
Hallo Matthes,
probier es mal so:
For Each wb In Workbooks
If Not wb.Name = target_WorkBook.Name Then
'MsgBox (wb.Name)
entity_nr = wb.Sheets("1").Range("D1")
target_WorkBook.Sheets.Add before:=1
With target_WorkBook.Sheets(1)
.Name = entity_nr & "b"
.Cells.Value = wb.Sheets("3").Cells.Value
End With
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
Next wb
Gruß Uwe