Gruppe
Allgemein
Problem
Wie kann ich die Position einzelner Zeichen in einem fast 10.000 Zeichen enthaltender Zeichenfolgen auslesen lassen?
StandardModule: basMain
Sub Lesen()
Dim arr()
Dim iCounter As Integer, iA As Integer, iB As Integer
Dim iC As Integer, id As Integer
Dim sTxt As String
Columns("B:E").ClearContents
Application.ScreenUpdating = False
sTxt = Range("A1").Value
iA = 1: iB = 1: iC = 1: id = 1
For iCounter = 1 To Len(sTxt)
Select Case Mid(sTxt, iCounter, 1)
Case "A"
iA = iA + 1
Cells(iA, 2) = iCounter
Case "B"
iB = iB + 1
Cells(iB, 3) = iCounter
Case "C"
iC = iC + 1
Cells(iC, 4) = iCounter
Case "d"
id = id + 1
Cells(id, 5) = iCounter
End Select
Next iCounter
Range("B1") = "A"
Range("C1") = "B"
Range("D1") = "C"
Range("E1") = "d"
End Sub