Frage zu Bereiche kopieren
03.12.2008 18:32:00
Peter
Mit untenstehendem Makro kopieren ich einen Bereich aus einem Workbook in ein anderes Workbook (gleiche Sturktur).
Ich möchte Werte, Formel, Formate und Gültigkeitskriterien mitkopieren. Mit untenstehender Zeile wbZiel = wbQuelle wird gar nichts kopieren mit der Ergänzung .Value eben nur die Werte.
Wie muss ich den Code ergänzen, damit alles kopiert wird?
Bin gespannt auf eine Antwort.
Gruss, Peter
Public Sub KopierenVonDaten()
Dim wbQuelle As Workbook
Dim wbZiel As Workbook
Set wbQuelle = ThisWorkbook
Set wbZiel = fuNmFileToRefresh 'Funktionsaufruf (Rückgabewert ist ein Objekt)
wbZiel.Worksheets("Deckblatt").Range("A1:f20") = wbQuelle.Worksheets("Deckblatt").Range("A1:f20" _
_
)
Set wbZiel = Nothing
Set wbQuelle = Nothing
End Sub
Anzeige