VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Position an Bandlaufwerk bestimmen

Gruppe

Funktion

Bereich

SVERWEIS

Thema

Position an Bandlaufwerk bestimmen

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.

Lösung

Darstellung nur anhand einer Beispielarbeitsmappe möglich.




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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und SVERWEIS