Hallo Leute,

ich sage ganz offen, dass ich nicht viel Erfahrung mit VBA habe und es auch nur relativ selten brauche. Jetzt brauche ich es allerdings für eine Aufgabe. Die Problemstellung ist folgende. Ich habe eine Excel-Datei mit 6 Mappen. In jeder Mappe ist eine Tabelle, die genau gleich aufgebaut ist. Ich bräuchte jetzt ein makro, dass mit genau diese 6 Tabellen in einer 7 Konsolidiert. Das ist das kleine Problem. Untenstehender Code erledigt das echt super. Nur jetzt ist da die Herausforderung für mich, dass in den Tabellen in jeder Zelle eine Formel ist (mit sverweis). Daher soll das Makro nicht einfach alles in die neue Tabelle kopieren, sondern NUR die Werte in den Zellen und nicht die dahinterliegenden Formeln. Wäre für eure Hilfe echt dankbar. Vielen dank schonmal im Voraus.

Sub TabellenKopierenUntereinander()

      Dim i as integer
      With ActiveWorkbook
      'neue Tabelle an die erste Position einfügen
         .Worksheets.Add Before:=.Worksheets(1)
         For i = 2 To .Worksheets.Count
            'Ermitteln den benutzen Bereich der einzelnen Tabellenblätter
             Set rng = .Worksheets(i).UsedRange
            'letzte Zeile ermitteln des ersten Blattes
            Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(2)
            'Bereich kopieren
             rng.Copy Destination:=rng1
          Next
      End With
   End Sub