1 Zelle aus vielen Tabellenblättern kopieren

Sub test()

Dim lngNextRow As Long, oWS As Worksheet

With Sheets.Add 'neue Tabelle

    lngNextRow = 2 'erste Einfügezeile

    For Each oWS In ThisWorkbook.Worksheets 'Schleife über die Tabellen

                   oWS.Rows(15).Copy .Cells(lngNextRow, 1) 'Zeile 2 kopieren

            .Rows(lngNextRow).Value = .Rows(lngNextRow).Value 'Formel durch Werte ersetzen

            lngNextRow = lngNextRow + 1 'nächst Zeilennummer

        End

    Next oWS 'nächste Tabelle

End With

End Sub