LBound dwingen via option base 1 of op een andere manier, kan dat?

[sylvester-ponte]

hallo,
'ik wil graag bijde LBound's op 1 hebben hoe doe ik dat ?

Option Base 1
Sub test()
    Dim R As Range
    Set R = [A1:A3]
    t = R
    Ut = UBound(t)
    Lt = LBound(t)  '  =1
    
    s = Split([a1])
    Us = UBound(s)
    Ls = LBound(s)  '  =0
End Sub

zie voorbeeld:

 

[edmoor]

Option Base 1 heeft alleen effect op arrays die zijn gedeclareerd met een grootte (Dimensie)
Bij je voorbeeld t is dat automatisch het geval omdat je daar een range gebruikt.
Bij je voorbeeld s is dat niet het geval.

 

[E v R]

Split geeft altijd een zero based array terug. (ook bij option base 1)

  s = Split([a1])
 ReDim Preserve s(LBound(s) + 1 To UBound(s) + 1)

of

s = Application.Transpose(Application.Transpose(Split([a1])))

 

[sylvester-ponte]

Eric, de

 ReDim Preserve s(LBound(s) + 1 To UBound(s) + 1)

krijg ik niet aan de praat, misschien kun je de code in het voorbeeld zetten.
deze

s = Application.Transpose(Application.Transpose(Split([a1])))

doet het wel.
bedankt

 

[E v R]

Je moet s wel even dimensioneren

Sub test()
[COLOR="#FF0000"]Dim s as variant[/COLOR]
s = Split([a1])
ReDim Preserve s(LBound(s) + 1 To UBound(s) + 1)
    Us = UBound(s)
    Ls = LBound(s)
End Sub

 

[sylvester-ponte]

iedereen die de moeite heeft genomen er naar te kijken bedankt.

Eric die redim ga ik gebruiken :thumb:

ik ga afsluiten.