VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Text kürzen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge