Clever-Excel-Forum

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.

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

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.

Lago

Kuwer

Lago