Array
27.03.2019 14:00:34
Christian
ich bekomme beim Versuch ein Array zu verwenden, die Meldung das die Range Funktion nicht unterstützt wird. Woran könnte das liegen?
Beste Grüße und vielen Dank
Christian
Sub Monitor()
Dim WsMSPT_M As Worksheet
Dim WsQuelle As Worksheet
Dim lngLZeile As Long
Dim VariableA As Variant
Set WsQuelle = tabComp
Set wsMSPT = TabMSPT_Monitor
lngLZeile = WsQuelle.Cells.Find("*", WsQuelle.Range("A1"), xlFormulas, xlWhole, xlByRows, _
xlPrevious).Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
wsMSPT.Range("A3:P" & lngLZeile).Clear
WsQuelle.Range("A1").AutoFilter Field:=14, Criteria1:="MSPT"
VariableA = WsQuelle.Range("A2:C" & IngLZeile).Value