Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen auf Inhalte mit 35 Zeichen begrenzen

Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 20:47:28
Uli
Hallo,
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
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 21:05:27
Jürgen
Hi Uli,
wie wäre es damit (für Zelle "A1"):
If Len(CStr(Cells(1,1).Value)) &gt 35 Then Cells(1,1) = Left(CStr(Cells(1,1).Value), 35)
Gruß
Jürgen
AW: Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 21:05:35
Jürgen
Hi Uli,
wie wäre es damit (für Zelle "A1"):
If Len(CStr(Cells(1,1).Value)) &gt 35 Then Cells(1,1) = Left(CStr(Cells(1,1).Value), 35)
Gruß
Jürgen
Anzeige
AW: Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 21:05:41
Jürgen
Hi Uli,
wie wäre es damit (für Zelle "A1"):
If Len(CStr(Cells(1,1).Value)) &gt 35 Then Cells(1,1) = Left(CStr(Cells(1,1).Value), 35)
Gruß
Jürgen
AW: Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 21:06:11
Krieju
Hi Uli,
wie wäre es damit (für Zelle "A1"):
If Len(CStr(Cells(1,1).Value)) &gt 35 Then Cells(1,1) = Left(CStr(Cells(1,1).Value), 35)
Gruß
Jürgen
Anzeige
AW: Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 21:06:13
Krieju
Hi Uli,
wie wäre es damit (für Zelle "A1"):
If Len(CStr(Cells(1,1).Value)) &gt 35 Then Cells(1,1) = Left(CStr(Cells(1,1).Value), 35)
Gruß
Jürgen
AW: Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 21:06:14
Krieju
Hi Uli,
wie wäre es damit (für Zelle "A1"):
If Len(CStr(Cells(1,1).Value)) &gt 35 Then Cells(1,1) = Left(CStr(Cells(1,1).Value), 35)
Gruß
Jürgen
Anzeige
AW: Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 21:06:14
Krieju
Hi Uli,
wie wäre es damit (für Zelle "A1"):
If Len(CStr(Cells(1,1).Value)) &gt 35 Then Cells(1,1) = Left(CStr(Cells(1,1).Value), 35)
Gruß
Jürgen
AW: Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 21:06:15
Krieju
Hi Uli,
wie wäre es damit (für Zelle "A1"):
If Len(CStr(Cells(1,1).Value)) &gt 35 Then Cells(1,1) = Left(CStr(Cells(1,1).Value), 35)
Gruß
Jürgen
Anzeige
AW: Zellen auf Inhalte mit 35 Zeichen begrenzen
13.09.2005 21:09:52
PeterW
Hallo Uli,
muss das wirklich per VBA begrenzt werden? Dann mit dem Worksheet-Change die Eingaben prüfen.
Ich würde das in der Tabelle per Gültigkeit machen, Formel ist =Länge(Text(A1;"@"))&lt36
Gruß
Peter
Sorry,aber irgendwie spinnt das System Jürgen (oT)
13.09.2005 21:11:22
Jürgen
OT irgendwie spinnt das System
13.09.2005 22:27:42
PeterW
Hallo Jürgen
ist nicht persönlich gemeint aber die Ursache für den Großteil aller "Systemspinnereien" befindet sich ca. 70 cm vor dem Monitor. :-)
Gruß
Peter
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zellen auf Inhalte mit 35 Zeichen begrenzen


Schritt-für-Schritt-Anleitung

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:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu, indem Du auf Einfügen > Modul klickst.

  3. 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
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

Datenüberprüfung-Methode:

  1. Wähle die Zelle (z.B. A1) aus, in der Du die Zeichenlänge begrenzen möchtest.

  2. Gehe zu Daten > Datenüberprüfung.

  3. Wähle unter Zulassen die Option Benutzerdefiniert.

  4. Gib die folgende Formel ein:

    =LÄNGE(A1)<=35
  5. Klicke auf OK.


Häufige Fehler und Lösungen

  • Fehler: Der VBA-Code funktioniert nicht.

    • Lösung: Stelle sicher, dass Du den Code im richtigen Modul eingefügt hast und dass die Makros aktiviert sind.
  • Fehler: Die Datenüberprüfung reicht nicht aus.

    • Lösung: Überprüfe, ob Du die richtige Zelle ausgewählt hast und die Formel korrekt eingegeben ist.

Alternative Methoden

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.


Praktische Beispiele

  • 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.


Tipps für Profis

  • Nutze die CStr-Funktion, um sicherzustellen, dass der Inhalt der Zelle als Text behandelt wird, bevor Du die Länge überprüfst.
  • Erstelle eine benutzerdefinierte Fehlermeldung in der Datenüberprüfung, um den Anwender zu informieren, dass die maximale Zeichenanzahl überschritten wurde.
  • Du kannst die Zeichenbegrenzung für mehrere Zellen gleichzeitig anwenden, indem Du die gewünschten Zellen vor der Anwendung der Datenüberprüfung auswählst.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige