Stellenanzahl in einer Zelle begrenzen
Uwe
Kann ich in Excel die Anzahl der Zeichen pro Zelle oder Spalte auf einen
maximal Wert begrenzen?
Hajo_Zi
Daten, Gültigkeit, Textlänge
Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate und Excel Version2007
http://Hajo-Excel.de/
Uwe
danke für die erste Hilfe.
Das funktioniert relativ gut. Allerdings wenn ich über copy/paste Zeichen
einfüge welche die Grenzen überschreiten, dann funktioniert der Trick nicht
.-(.
Auch wenn ich bereits beschriebene Zellen mit der Gültigkeit vershen will
habe ich auch kein Erfolg.
Hast Du noch ein Tip?
Gruß Uwe
"Hajo_Zi" schrieb:
Eberhard Funke
Hallo Uwe,
Du könntest es nachträglich mit einer zweiten Spalte bewerkstelligen:
Text in A1.
B1: =LINKS(A1;10)
Oder, wenn die Begrenzung in der Originalspalte vorgenommen werden soll,
mit einem Makro:
Sub Textlänge()
Dim rngZelle As Range
Const L = 10
For Each rngZelle In Selection
rngZelle.Value = Left(rngZelle.Value, L)
Next
End Sub
Dazu musst Du zunächst den zu ändernden Bereich markieren. Mit
Const L = 10 stellst Du die Textlänge ein.
Soll die Textbegrenzung gleich bei der Eingabe erfolgen, dann klick mit der
rechten Maus unten links auf den Reiter derjenigen Tabelle, in der Du die
Begrenzung haben willst.
Kopiere das folgende Makro in das sich öffnende Fenster und kehre mit
Alt+F11 in die Tabelle zurück.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Columns("A"), Target) Is Nothing Then
Const L = 10
Target.Value = Left(Target.Value, L)
End If
End Sub
Das Makro wirkt nur auf die Spalte A. Wenn Du eine andere willst, ändere
entsprechend im Code
Columns("A")
auf die gewünschte Spalte ab.
Mit L stellst du wieder die Textlänge ein.
--
Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de
Uwe
danke dür die Erklärung.
Jetzt stehe ich vor einem weiteren Problem.
Wenn ich in einer Zelle 25 Zeichen stehen habe und diese Zeichen jetzt in
zwei neue Zellen "kopieren" will (sagen wir in die erste neue Zelle 10 und in
die zweite neu Zelle die anderen 15 Zeichen). Geht das mit einer erweiterung
dieses Makros, oder muss ein neues geschrieben werdn?
MfG
Uwe
"Eberhard Funke" schrieb:
Claus Busch
Am Tue, 3 Jun 2008 03:22:01 -0700 schrieb Uwe:
> danke dür die Erklärung.
> Jetzt stehe ich vor einem weiteren Problem.
> Wenn ich in einer Zelle 25 Zeichen stehen habe und diese Zeichen jetzt in
> zwei neue Zellen "kopieren" will (sagen wir in die erste neue Zelle 10 und in
> die zweite neu Zelle die anderen 15 Zeichen). Geht das mit einer erweiterung
> dieses Makros, oder muss ein neues geschrieben werdn?
das kannst du auch mit Formeln bewerkstelligen. Dein Text ist in A1,
dann in B1 für die ersten 10 Zeichen:
=LINKS(A1;10) und in C1 für die restlichen Zeichen (egal wie viele
Zeichen in A1 stehen):
=WECHSELN(A1;B1;"")
Mit freundlichen Grüssen
Claus Busch
--
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate