Excelformel gesucht

Question

Hallo zusammen,

ich habe in einer Spalte einer Excel-Datei lange Texte; die Spalte kann aber (Schriftgröße) nicht mehr als 25 Anschläge vertragen. Gibt es eine Möglichkeit Excel zu veranlassen, beim Überschreiten der 25 Anschläge den restlichen Text (ab dem letzten verfügbaren Leerzeichen) in die nächste Spalte zu verfrachten? Das wäre riesig!

Answer 1

Hallo,

direkt geht das nicht. Aber über mehrere Wege wäre eine Eingrenzung möglich:
1. Gültigkritsprüfung, mit Begrenzung auf 25 Zeichen, lässt nicht mehr als 25 Zeichen in der Spalte zu. (geht ohne Makro)

2. Nach Eingabe, automatische Prüfung der Länge und dann Aufteilung des Textes, Geht aber nur per Makro. Hierfür sind deine Angaben etwas mager.

Zusätzlich gäbe es noch die Möglichkeit per Zeilenumbruch den Text in der Zelle auf mehrere Zeilen zu bringen.

Gruß

Helmut

Answer 2

hi all :-)

recht amüsant da ein zirkelbezug genutzt wird :-)

gruss nighty

p.s.
hatte ausversehen falsch gepostet vorhin,dann kann der andere ja gelöscht werden :-))

einzufuegen
alt+f11/projektexplorer/DeineTabelle

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1:F5")) Is Nothing Then
Dim Zeichenlaenge As Integer
Zeichenlaenge = 25
If Len(Cells(Target.Row, Target.Column)) > Zeichenlaenge Then
Cells(Target.Row, Target.Column + 1) = Mid(Cells(Target.Row, Target.Column), Zeichenlaenge + 1, Len(Cells(Target.Row, Target.Column)) - Zeichenlaenge)
Cells(Target.Row, Target.Column) = Mid(Cells(Target.Row, Target.Column), 1, Zeichenlaenge)
End If
End If
End Sub