Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Entfernen der letzten beiden Zeichen in Listenelementen

Gruppe

Bearbeiten

Problem

Von den Werten in Spalte A sollen die letzten beiden Stellen entfernt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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