ich erhalte die Meldung, daß meine Prozedur zu groß ist.
Also muß ich die Prozudur in kleinere Prozeduren aufteilen.
Nun möchte ich zuvor definierte Arrays aber nicht in jeder
"Teilprozedur" wieder neu definieren. Wie kann ich das ganze
Befüllte Array (und auch Variable) an Prozeduren weitergeben?
Aktuell sieht mein Code so aus:
Option Explicit
Function test()
Dim a As Long
Dim b As Long
Dim c As Long
Dim i As Long
Dim k As Long
Dim y As Long
Dim z As Long
Dim NFR As Long
Dim gefunden As Boolean
'# Befüllung der Arrays #'
' Variable für Array '
Dim ARR01DAT As Variant
Dim ARR01ZMAX As Long
Dim ARR01SMAX As Long
' maximale Anzahl Spalten '
ARR01SMAX = 9
' Ermittlung Anzahl Zeilen '
tbl02.Activate
Range("A1").End(xlDown).Activate
ARR01ZMAX = ActiveCell.Row
' Array befüllen '
With tbl02
ARR01DAT = .Range(.Cells(1, 1), .Cells(ARR01ZMAX, ARR01SMAX))
End With
End Function
Wie kann ich jetzt ARR01DAT (mit den Daten) und ARR01ZMAX an eine andere Prozedur weitergeben?Danke und Gruß vom Lutz