Wertkopie Sheet

Informationen und Beispiele zu den hier genannten Dialog-Elementen:

Wertkopie Sheet von Matthes vom 21.03.2005 09:45:57

AW: Wertkopie Sheet - von Uwe Küstner am 23.03.2005 00:03:41

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