Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Text kürzen
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