AW: Inhalt Array Zeichenweise ausgeben
Tobias
Hallo Andreas
Vielleicht bringt Dich das hier weiter...
Dim strArray() As String
Sub ArrayFuellen()
Dim lngCounter As Long
For lngCounter = 0 To 10
ReDim Preserve strArray(lngCounter)
strArray(lngCounter) = "bla blub " & lngCounter & "XXtra"
Next lngCounter
End Sub
Sub ZeichenChecken()
Dim lngIndexCounter As Long
Dim lngSignCounter As Long
Dim strCheckSign As String
Call ArrayFuellen
For lngIndexCounter = 0 To UBound(strArray)
For lngSignCounter = 1 To Len(strArray(lngIndexCounter))
strCheckSign = Mid(strArray(lngIndexCounter), lngSignCounter, 1)
'Hier kannst Du nun dein strCheckSign prüfen...
Next lngSignCounter
Next lngIndexCounter
End Sub
Gruss
Tobias