|
Hallo zusammen,
ich möchte in einer Tabelle den Range automatisch bestimmen lassen, doch die letzten beiden Zeilen geben mir einen Objektdefinierten Fehler aus. Ich habe auch schon versucht den Range mi einen Punkt, wie in einer with-Schleife einzuleiten [ Range(.Cells(2, 1), .Cells(LastRow, 1))], doch das hat auch nicht funktioniert.
Muss ich hier noch irgendwas deklarieren?
Vielen Dank für einen Ansatz - schoneinemal im Vorhinaus.
Sub MatrixInListeNeu()
'*** Deklarationsteil
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
'*** Definitionsteil
Set wksQuellBlatt = Tabelle4 '*** Referenz auf das Quellarbeitsblatt in einer Objektvariablen ablegen
Set wksErgbnisblatt = ThisWorkbook.Worksheets.Add '*** Referenz auf das Ergebnisblatt ablegen und gleich eins anlegen
LastRow = wksQuellBlatt.Cells(Rows.Count, 1).End(xlUp).Row - 2 '-2, da die letzten beiden Zeilen Schrott sind
LastColumn = wksQuellBlatt.Cells(1, Columns.Count).End(xlToLeft).Column - 2 '-2, da die letzten beiden Spalten nicht gebraucht werden
Set rngZeilen = wksQuellBlatt.Range(Cells(2, 1), Cells(LastRow, 1))
Set rngSpalten = wksQuellBlatt.Range(Cells(1, 2), Cells(1, LastColumn))
End Sub
Hier die Tabelle: https://smuehl.de/nextcloud/s/GdXNRJiCpSpkbZL
|