Gruppe
Allgemein
Problem
Von den Werten in Spalte A sollen die letzten beiden Stellen entfernt werden.
StandardModule: Modul1
Sub FirstThree()
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Cells(iRow, 1).Value = Left(Cells(iRow, 1).Value, 3)
iRow = iRow + 1
Loop
End Sub