Daten mehrerer Tab in eine Tab konsolidieren
16.03.2015 15:43:33
dip
Ich verwende folgenden Makro, um Daten in verschiedenen Tabellen in einer Arbeitsmappe in einer anderen Tabelle in der gleichen Arbeitsmappe zu konsolidieren:
Private Sub Create_A_Cube()
Dim Ws As Worksheet
Me.Rows("2:" & Rows.Count).ClearContents
For Each Ws In ThisWorkbook.Worksheets
If Ws.Name "A_Cube" Then
Ws.Rows("2:" & Ws.Cells.Find("*", searchdirection:=xlPrevious).Row).Copy Me.Range("A" & _
_
Me.Cells.Find("*", searchdirection:=xlPrevious).Row + 1)
End If
Next Ws
End Sub
Nun möchte ich aber, dass er nur den Wert, ohne jegliche Formatierung, kopiert.
Leider komme ich irgendwie nicht drauf, wie ich das Makro anpassen muss.
Ich wäre sehr dankbar, wenn mir jemand weiterhelfen könnte!?
Beste Grüsse
Patrick
Anzeige