Array
Frank
ich habe eine Schleife in der ich einen String zerlege und Teilergebnisse in zwei Spalten schreibe.
Dies funktioniert auch benötigt aber sehr lange.
Jetzt hatte ich mir überlegt dies vielleicht in ein Array zu schreiben und dann erst zu übergeben.
und nun zu meinen Fragen.
1. würde es mit einem Array schneller gehen?
wenn ja
2. wie stelle ich das an?(habe keinerlei Array Erfahrung)
Vielen Dank
Frank
Hier noch der Code aus der Schleife
For k = 2 To CellCount
strText = EX.Cells(k, 10).Value
IntString = InStrRev(strText, "/")
strText = VBA.Right(strText, Len(strText) - IntString)
If strText "" Then
strText = VBA.Right(strText, Len(strText) - 1)
strText1 = strText
If IntString = 20 Then
strText1 = VBA.Left(strText, Len(strText) - 13)
strText = VBA.Right(strText, Len(strText) - 4)
End If
If IntString > 20 Then
intString1 = Len(strText)
If Len(strText) = 14 Then
strText1 = VBA.Left(strText, Len(strText) - (IntString - 9))
Else
strText1 = VBA.Left(strText, Len(strText) - (IntString - 11))
End If
End If
If IntString