Sub MatrixInListeNeu()
Dim cZeilen As Excel.Range
Dim cSpalten As Excel.Range
Dim rngZeilen As Excel.Range
Dim rngSpalten As Excel.Range
Dim wksQuellBlatt As Excel.Worksheet
Dim wksErgbnisblatt As Excel.Worksheet
Set wksQuellBlatt = Tabelle4
Set wksErgbnisblatt = ThisWorkbook.Worksheets.Add
LastRow = wksQuellBlatt.Cells(Rows.Count, 1).End(xlUp).Row - 2
LastColumn = wksQuellBlatt.Cells(1, Columns.Count).End(xlToLeft).Column - 2
Set rngZeilen = wksQuellBlatt.Range(Cells(2, 1), Cells(LastRow, 1))
Set rngSpalten = wksQuellBlatt.Range(Cells(1, 2), Cells(1, LastColumn))
End Sub