Gruppe
Funktion
Problem
An einem Bandlaufwerk gibt es 26 Bandplätze mit den Bezeichnungen A-Z. Die über das Band laufenden Materialien sind von 1 bis 99 durchnumeriert. Die Position der Materialien soll bestimmt werden.
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