Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Zeilenlänge in Anzahl Zeichen

53 views
Skip to first unread message

Manfred

unread,
Oct 2, 2003, 11:46:34 AM10/2/03
to
Wie kann ich in einer Excel-Tabelle die Einträge einer
Spalte automatisch auf eine gewisse Anzahl Zeichen kürzen?

inna schubert

unread,
Oct 2, 2003, 12:30:25 PM10/2/03
to
>Wie kann ich in einer Excel-Tabelle die Einträge einer
>Spalte automatisch auf eine gewisse Anzahl Zeichen kürzen?

Hallo Manfred,

einfach die gewünschte Zelle markieren, Menü Daten, Gültigkeit. Zulassen:
Textlänge, Minimum/Maximum einstellen. Weiterhin kannst du die Warnhinweise
bei falscher Eingabe editieren.

Gruß,
I. Schubert


Michael Schüller

unread,
Oct 2, 2003, 12:36:30 PM10/2/03
to
Hallo Manfred,
^^^^ hast Du auch einen Nachnamen?

> Wie kann ich in einer Excel-Tabelle die Einträge einer
> Spalte automatisch auf eine gewisse Anzahl Zeichen kürzen?

Kommt darauf an, ob Du das
a) einmalig durchführen willst, oder
b) bei jeder Eingabe


Du könntest folgenden VBA-Code verwenden:

a)
Sub sKappen()
Dim vCounter As Single
Const cCol = 1 'Spalte deren Werte gekappt werden
Const cMax = 5 'Zeichenanzahl

With ThisWorkbook.Sheets(1)
For vCounter = 1 To .UsedRange.Rows.Count
.Cells(vCounter, cCol).Value = Left(.Cells(vCounter, cCol).Value, cMax)
Next vCounter
End With

End Sub


b)
Private Sub Worksheet_Change(ByVal Target As Range)
Const cCol = 1 'Spalte deren Werte gekappt werden
Const cMax = 5 'Zeichenanzahl

If Target.Column = cCol Then
Target.Value = Left(Target.Value, cMax)
End If

End Sub


Lösung b) funktioniert nicht, wenn Du _mehrere_ Zellen kopierst und einfügst. Dafür gäbe es aber eine angepasste Lösung. Poste ggf.
nochmal.


Hoffe, ich konnte Dir helfen.

Schönen Gruß
--
Michael
michael....@gmx.de

Michael Schüller

unread,
Oct 2, 2003, 12:49:57 PM10/2/03
to
Hallo inna,

> einfach die gewünschte Zelle markieren, Menü Daten, Gültigkeit.
> Zulassen: Textlänge, Minimum/Maximum einstellen.

Ooops, das ist ja viel einfacher als meine Lösung!

Ist schon blöd, wenn man meint, alles mit VBA machen zu müssen. Stichworte: "Wald", "lauter Bäume", "da nehme ich lieber meinen
vertrauten Schrebergarten"...

Klaus Beach

unread,
Oct 3, 2003, 5:30:43 AM10/3/03
to
Michael Schüller schrieb:

> Ooops, das ist ja viel einfacher als meine Lösung!

Habe beide Vorschläge unter Excel 97 ausprobiert.
Sind bereits Daten in den Zellen eingetragen, so scheint dein Makro der
richtige Weg zu sein.
Will man die /Dateneingabe/ beschränken, so gefällt mir Innas Weg besser.

Klaus

Manfred Müller

unread,
Oct 3, 2003, 6:00:04 AM10/3/03
to

>-----Originalnachricht-----

>Wie kann ich in einer Excel-Tabelle die Einträge einer
>Spalte automatisch auf eine gewisse Anzahl Zeichen
kürzen?
>.
>

Hallo Inna, Hallo Michael

Besten Dank für den prompten Service.
Ich habe beide Lösungsvorschläge ausprobiert.
Für das aktuelle Problem (in den Zellen befinden sich
bereits überlange Daten) war das Makro von Michael meine
Lösung.

Danke und Gruss
Manfred

0 new messages