Optimale / Andere Bestimmung der Feldlänge
#1
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.
Antwortento top
#2
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
Antwortento top
#3
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.
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste