Hallo Leute,

ich habe folgendes Problem.

Es geht um eine Exceldatei, die aus einem "Overview" und mehreren Sheets, wo verschiedene Daten gesammelt werden, besteht.

Bei dem Overview werden mittels eines "refresh" Button alle bei den verschiedenen sheets neu hinzugefuegten Informationen aktualisiert und gesammelt.

Folgender Code existiert bereits:

Sub Refresh_Dep_List()
'
' Refresh_Dep_List Macro
' Macro recorded 3/29/2011 by michael
'
    'Clear overview sheet
    Sheets("OC3 Overview").Select
    Range("B6:K6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
   
    'Copy OC312 topics
    Sheets("OC312").Select
    Range("B2:K2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("OC3 Overview").Select
    Range("B6").Select
    ActiveSheet.Paste
   
    'Copy OC322 topics
    Sheets("OC322").Select
    Range("B2:K2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("OC3 Overview").Select
    Cells(Range("B6").End(xlDown).Row + 1, 2).Select
    ActiveSheet.Paste
   
    'Sort overview by status and target date
    Range("B5:K5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Sort Key1:=Range("H6"), Order1:=xlDescending, Key2:=Range("K6") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    Range("B6").Select
               
End Sub
 

Meine Frage nun, wie kann ich ein weiteres Sheet mit dem "Overviewsheet" verknuepfen?

Vielen Dank fuer eure Hilfe im Voraus!