Hallo Zusammen
Ich versuche gewisse Werte in einen Array zu laden und dieser Wert dann in eine andere Zeile zu laden.
Mein Code hat zuerst funktioniert. Aber nun funktionierts nicht mehr. Es kommt immer die Meldung Index ausserhalb des gültigkeits Bereich.
Ich habe versucht den Fehler zu analysieren. Habe aber keinen Fehler gefunden, da die Richtige Zeile mit mehreren Werten ausgewählt wird. Danach wird der Wert auch in die neue Zeile eingefügt und dann erst kommt der Fehler.
Hier mein Code:
Vielen Dank für eure Hilfe!
Ich versuche gewisse Werte in einen Array zu laden und dieser Wert dann in eine andere Zeile zu laden.
Mein Code hat zuerst funktioniert. Aber nun funktionierts nicht mehr. Es kommt immer die Meldung Index ausserhalb des gültigkeits Bereich.
Ich habe versucht den Fehler zu analysieren. Habe aber keinen Fehler gefunden, da die Richtige Zeile mit mehreren Werten ausgewählt wird. Danach wird der Wert auch in die neue Zeile eingefügt und dann erst kommt der Fehler.
Hier mein Code:
VB.NET-Quellcode
- Sub Makro2()
- Dim i As Long
- Dim Ende As Integer
- Dim temp As String
- Dim strArr() As String
- Dim temp2 As Variant
- Ende = Sheets("WP-Portfolio").UsedRange.SpecialCells(xlCellTypeLastCell).Row - 1
- For i = 1 To Ende
- temp = Sheets("Portfolio").Range("Q" & i).Value
- If Len(temp) > 6 Then
- strArr() = Split(Range("Q" & i).Value, ",")
- Sheets("Portfolio").Range("C" & i).Value = strArr(1)
- ElseIf Len(temp) > 13 Then
- strArr() = Split(Range("Q" & i).Value, ",")
- Sheets("Portfolio").Range("C" & i + 1).Value = strArr(2)
- End If
- Next i
- End Sub
Vielen Dank für eure Hilfe!