Makro soll nur Werte (ohne Formeln) ziehen
15.12.2015 14:19:21
Martin
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
Grüße und Vielen Dank im Voraus
Martin
Anzeige