Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Wertkopie Sheet

Bild

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
Bild

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
 Bild