ich arbeite an einem Finanzfile, bei dem mehrere Tabellenblätter automatisch per Makro zu einem Tabellenblatt konsolidiert werden. Aus dem Konsolidierten Tabellenblatt wird dann eine Pivot-Tabelle erstellt. Jetzt ist es aber so, dass in einer der zu konsolidierenden Tabellen Formeln hinterlegt sind. Diese Formeln werden in die Konsolidierungs-Tabelle übernommen und so entstehen dort Fehler durch falsche Bezüge.
Daher meine Frage: Ist es möglich, dass nur die Werte durch das Makro konsolidiert werden (ohne Formeln)?
Hier noch der Code mit dem die Tabellenblätter konsolidiert werden:
Sub Konsolidieren()
Dim i As Long
Worksheets("Konsolidierung Kosten").Activate
Range("A2:K5000").Select
Selection.ClearContents
Range("A1").Select
Dim Zeile&, letzteZ&
'Von Blatt 9 bis Blatt 11 zusammenfassen
For i = 4 To 6
With Worksheets(i)
'Von Zeile 2 bis zur vorletzten kopieren nach ZMEK
letzteZ = .Cells(Rows.Count, 1).End(xlUp).Row
Zeile = Worksheets("Konsolidierung Kosten").Cells(Rows.Count, 1).End(xlUp).Row + 1
.Range("A8:P" & letzteZ).Copy Worksheets("Konsolidierung Kosten").Range("A" & Zeile) _
End With
Next
Calculate
Worksheets("GuV").Activate
End Sub
Wäre wirklich super, wenn mir da jemand weiterhelfen kann. Ich kenne mich mit Makros leider nicht so gut aus.Grüße und Vielen Dank im Voraus
Martin