VBA Makro kopiert keine Werte Tabelle in Datei
22.11.2005 15:34:05
Simon
habe schon länger probiert und google befragt und kam bisher so weit. (Siehe weiter unten)
Was ich möchte ist das kopieren von einem Bereich einer Exceldatei in eine andere Exceldatei, ohne diese jedoch offen zu haben. Eine Art Exceldatenbank (nein, Access möchte ich dafür nicht bemühen). Mein Vorhaben funktioniert schon, aber er kopiert nur Formeln, nicht deren Werte.
Kann mir jemand einen Tip geben wie ich nun nur die Werte kopieren kann?
Danke,
Gruß
Simon
Sub KopieMehrfach()
Dim wb As Workbook, rng As Range, iRowZ As Integer, iCol As Integer, rng_tmp As Range
' Zielmappe öffnen
Set wb = Workbooks.Open(Filename:= _
"c:\_new_1.xls")
With wb.Worksheets(1)
' erste freie Zeile des Zielblatts
iRowZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
iCol = 1
' Quellmappe aktivieren
ThisWorkbook.Activate
' Schleife über Bereiche
Set ErsterBereich = Worksheets("Tabelle1").Range("A5:k5")
For Each rng In ErsterBereich
rng.Copy Destination:=.Cells(iRowZ, iCol)
iCol = iCol + 1
Next rng
End With
' Zielmappe schließen+sichern
wb.Close SaveChanges:=tru
' Werte im selektierten Bereich löschen
'Selection.ClearContents
' aufräumen
Cells(1, 1).Select
Set wb = Nothing
Set rng = Nothing
End Sub