Gruppe
Allgemein
Problem
Wie kann ich einer Spalte mit Namen eine zweite Spalte mit von den Anfangsbuchstaben abhängige Nummern hinzufügen?
StandardModule: basMain
Sub BedingtSchreiben()
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Select Case Left(Cells(iRow, 1), 1)
Case "P": Cells(iRow, 2) = 1
Case "S": Cells(iRow, 2) = 2
Case "c": Cells(iRow, 2) = 3
End Select
iRow = iRow + 1
Loop
End Sub