VBA dynamischer Array
26.08.2008 17:01:58
Gho-Reg
Ich weiss da fehlt noch was und ich weiss auch genau was das Problem ist aber mir faellt nicht die Loesung dazu ein.. Danke im Voraus an alle hilfreichen Fragen:
Dim rowinteger As Integer
Dim hidden As Integer
Const start = 2
Const finish = 10000
hidden = 1
For rowinteger = start To finish
rightborder = UBound(HiddenRows, 2)
If (hidden > rightborder) Then
ReDim Preserve HiddenRows(Worksheets.Count, hidden) As Integer
End If
HiddenRows(activesheet.Index, hidden) = rowinteger
'...eine If Anweisung bricht das ganze mit Exit For irgendwann ab
Next rowinteger
Dieser Befehl wird oft ausgefuehrt. Dabei darf aber nie etwas an dem Array HiddenRows abgeschnitten werden auch wenn vll einmal der rowinteger. Der Debugger meckert zu recht beim ersten Durchlauf der For Schleife das ja HiddenRows noch nicht definiert wurde... jemand irgendeine Idee wie man das umgehen kann das ich diese abfrage durchfuehren kann. denn die Abfrage muss rein damit spàter wenn mans beim 2. Mal den kompletten Befehl ausfuehrt mit ReDim nicht alles abgeschnitten wird vom 1. Mal....
Danke
Gho