Clever-Excel-Forum

Normale Version: Zeichen in einem Feld zählen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo zusammen,

besteht die Möglichkeit zu sehen, wieviele Zeiche in einem Feld eingegeben wurden?
Ich möchte in Spalte A eines Tabellenblattes mehrere Artikelbezeichnungen eingeben, jede Bezeichnung darf jedoch nur maximal 50 Zeichen haben.

Daher wäre es hilfreich wenn ich sehen könnte wieviele Zeichen ich bereits geschrieben habe.

Danke
Markus
Hi Markus,

Formel in B1 =Länge(A1)

Gruß
Max
Hi Max,

vielen Dank für die schnelle Hilfe!
Eine direkte Einstellung in Excel ist dafür nicht möglich?
Wenn ja würde ich mir das eingeben der Formel in jedem Tabellenblatt sparen.

Gruß
Markus
Hi Markus,

Du kannst auch über die Gültigkeitsprüfung die Eingabe in die gesamte Spalte A auf 50 Zeichen begrenzen.
Über wieviel Tabellenblätter sprichst Du denn?

Du musst die Formel nur einmal pro Blatt eingeben und kannst sie dann nach unten kopieren.

Gruß
Max
Es geht um täglich 200 Dateien :20:
Aber OK, wenn es keinen anderen Weg gibt werde ich die Formel eben händisch eintragen.
Hi Markus,

Du verwirrst mich ein wenig Huh!
Oben sprichst Du von Tabellenblättern, jetzt von Dateien, also Mappen.
Was denn nun :32:?

Gruß
Max

EDIT: Für den Fall, dass es Mappen sind, liegen diese alle in einem Verzeichnis?
Hallo Markus,

mit einer Formel kommst Du erst auf ein Ergebnis, wenn Du die Eingabe abschließt.

Wenn Du ein kleines Makro verwenden kannst, dann geht es ohne Formel. Allerdings auch wieder nur nach Ende der Eingabe. Zur Verwendung in mehreren Dateien kann man so was auch in der persönlichen Mappe verarbeiten. Siehst Du bei 50x200=10.000 Eingaben eventuell Möglichkeiten, dass das automatisch geht ? (Ich hab jetzt mal die Anzahl Zeichen und die Anzahl Eingaben pro Datei gleich gesetzt Wink

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Wenn eine Zelle in Spalte A gewählt und etwas drin steht, dann Laenge ausgeben
If Target.Column = 1 And Target.Cells.Count = 1 And Len(Target) Then MsgBox Len(Target)
End Sub