Probleme mit If ...and
13.07.2016 13:01:00
DirkR
Ich stehe total auf dem Schlauch und brauche Hilfe! :-(
Hier mal ein Teil meines Codes, der funktioniert:
arrName = Split(.Cells(J, I).Value, Chr(10))
For arrIndex = 0 To UBound(arrName) Step 2
strName = arrName(arrIndex)
If strName = "NDRb" Then
If Len(arrName(arrIndex + 1)) <= 5 And Left(arrName(arrIndex + 1), 1) = "0" Then GoTo NextArrIndex
.Cells(J, lngCol + 1 + ((arrIndex + 2) / 2)).Value = strName
Else
.Cells(J, lngCol + 1 + ((arrIndex + 2) / 2)).Value = strName
End If
NextArrIndex:
Next arrIndex
Bastele ich aber den Code um in folgenden:
arrName = Split(.Cells(J, I).Value, Chr(10))
For arrIndex = 0 To UBound(arrName) Step 2
strName = arrName(arrIndex)
If strName = "NDRb" And Len(arrName(arrIndex + 1)) <= 5 And Left(arrName(arrIndex + 1), 1) = "0" Then GoTo NextArrIndex
.Cells(J, lngCol + 1 + ((arrIndex + 2) / 2)).Value = strName
NextArrIndex:
Next arrIndex
Dann bekommer ich die Fehlermeldung: Laufzeitfehler '9': Index außerhalb des gültigen Bereichs
Aber ist das nicht das gleiche? Ich sehe den Wald vor lauter Bäumen nicht!! Bitte um Hilfe!
Gruß DirkR