Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Text kürzen

Gruppe

Zeichenfolge

Problem

Wie kann ich den Text in einer Zelle per VBA-Makro auf 15 Zeichen kürzen?

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

StandardModule: basMain

Sub Cutten()
   Dim rng As Range
   For Each rng In Range("A1:A20").Cells
      If WorksheetFunction.IsText(rng) Then
         rng.Value = Left(rng.Value, 15)
      End If
   Next rng
End Sub