Leeres Array anlegen
16.05.2018 08:40:34
Lutz
ich benötige ein leeres Array, das die gleiche Größe wie ein zuvor befülltes Array hat.
Mit diesem Code lösche ich das Array ja vollig:
Sub Makro1()
' 1. Array mit den Daten befüllen '
Dim TMPDAT As Variant
Dim TMPZMAX As Long
Dim TMPSMAX As Long
TMPSMAX = 20
tbl91.Activate
Range("A1").End(xlDown).Activate
TMPZMAX = ActiveCell.Row
Application.Goto Reference:=Range("A1"), Scroll:=True
With tbl91
TMPDAT = .Range(.Cells(1, 1), .Cells(TMPZMAX, TMPSMAX))
End With
' 2. Array erstellen in gleicher Größe wie 1. Array '
Dim VARDAT As Variant
With tbl91
VARDAT = .Range(.Cells(1, 1), .Cells(TMPZMAX, TMPSMAX))
End With
Erase VARDAT
End Sub
Danke und Gruß vom Lutz