ich suche nach einer Lösung für folgendes VBA-Problem:
Ich möchte den Zelleninhalt auf 35 Zeichen begrenzen. Gibt es hierfür eine Lösung?
Vielen Dank im Voraus!
Uli
Um die Anzahl der Zeichen in einer Zelle auf 35 zu begrenzen, kannst Du entweder VBA verwenden oder die Datenüberprüfung in Excel. Hier sind die Anleitungen für beide Methoden:
VBA-Methode:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem Du auf Einfügen
> Modul
klickst.
Kopiere den folgenden Code in das Modul:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
If Len(CStr(Target.Value)) > 35 Then
Target.Value = Left(CStr(Target.Value), 35)
End If
End If
End Sub
Schließe den VBA-Editor und kehre zu Excel zurück.
Datenüberprüfung-Methode:
Wähle die Zelle (z.B. A1) aus, in der Du die Zeichenlänge begrenzen möchtest.
Gehe zu Daten
> Datenüberprüfung
.
Wähle unter Zulassen
die Option Benutzerdefiniert
.
Gib die folgende Formel ein:
=LÄNGE(A1)<=35
Klicke auf OK
.
Fehler: Der VBA-Code funktioniert nicht.
Fehler: Die Datenüberprüfung reicht nicht aus.
Neben VBA und der Datenüberprüfung kannst Du auch folgende Methoden verwenden:
Bedingte Formatierung: Du kannst Zellen visuell hervorheben, die mehr als 35 Zeichen enthalten, indem Du eine bedingte Formatierung hinzufügst, die auf die Länge des Textes prüft.
Formel in einer Hilfsspalte: Verwende die Formel =LINKS(A1;35)
in einer anderen Zelle, um den Text auf 35 Zeichen zu begrenzen, ohne die ursprüngliche Zelle zu verändern.
Beispiel 1: Wenn Du in Zelle A1 "Dies ist ein Testtext, der länger als 35 Zeichen ist." eingibst, wird der Text automatisch auf "Dies ist ein Testtext, der länger als 35" gekürzt, wenn Du die VBA-Methode verwendest.
Beispiel 2: Bei Verwendung der Datenüberprüfung wird eine Fehlermeldung angezeigt, wenn Du versuchst, mehr als 35 Zeichen einzugeben.
CStr
-Funktion, um sicherzustellen, dass der Inhalt der Zelle als Text behandelt wird, bevor Du die Länge überprüfst.1. Kann ich die Zeichenbegrenzung auf mehrere Zellen gleichzeitig anwenden?
Ja, Du kannst die Datenüberprüfung auf ein ganzes Zellbereich anwenden, indem Du die gewünschten Zellen auswählst, bevor Du die Datenüberprüfung einrichtest.
2. Funktioniert diese Methode in allen Excel-Versionen?
Ja, die beschriebenen Methoden sind in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010 bis Excel 2021 und Excel für Microsoft 365.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen