Optimale / Andere Bestimmung der Feldlänge

[Lago]

Hallo VBA Experten,

suche für folgenden Code eine Optimierung:

Code:

Sub Feldlänge_Optimieren()
Dim vbLänge As Integer, Grenze As Integer
ReDim vbArr(1 To 10)
Grenze = 4
vbArr = Application.Transpose(Range("A1:A10"))

'Feldlänge bis Grenze
For i = 1 To Grenze
vbLänge = vbLänge + Len(vbArr(i))
Next i

Debug.Print "Länge bis Grenze: " & vbLänge
End Sub

Ich frage mich jetzt, ob es vielleicht noch einen besseren / anderen  Weg gibt, als vbLänge durch eine Schleife zu ermitteln.

[Kuwer]

Hallo,

Code:

Sub Feldlaenge_Optimieren()
 Dim vbLaenge As Integer, Grenze As Integer, vbArr As Variant
 Grenze = 4
 vbArr = Application.Transpose(Range("A1:A10"))
 ReDim Preserve vbArr(1 To Grenze)
 vbLaenge = Len(Join(vbArr, ""))
 Debug.Print "Länge bis Grenze: " & vbLaenge
End Sub

Gruß Uwe

[Lago]

Hallo Uwe,

danke. Lösung ist einfach, wenn man es weiß. Aber man muss eben erstmal drauf kommen!
So kann man auch Standardprogrammiertechniken wie Schleifen um interessante Varianten
erweitern.