Wertkopie Sheet

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Mehrfach vergleichen"