Supportnet / Forum / Tabellenkalkulation

Ich brauche für den Import einer Datenbank eine bestimmte Anzahl von Zeichen pro Feld. Daher möchte ich die Liste in Excel diesbezüglich aufbearbeiten. Daher brauche ich für jede Spalte eine fixe Anzahl von Zeichen (z.B. 25). Hat der Text weniger als 25 Zeichen, sollte der Rest mit Leerzeichen ausgfüllt werden. Wäre sehr froh wenn mir jemad helfen könnte. LG Christoph

Hi,
das hatte ich gerade.
=LINKS(Tabelle1!A1;25)

Gruß tuerpi111

Hi,
Danke für Deine Antwort.

Leider reduziert dies den Inhalt auf 25 Zeichen.
Bei mir muss der Inhalt genau 25 Zeichen umfassen.
--> Wenn weniger als 25 Zeichen, dann mit Leerzeichen ausfüllen bis 25 Zeichen erreicht.
--> Wenn mehr als 25 Zeichen, dann auf 25 Zeichenh kürzen. (Wie Deine Lösung)

LG Christoph

Hallo,

unter "Daten""Gültigkeit""Einstellungen" und dann "Textlänge" kanst du entsprechende Vorgaben machen

Gruß

Helmut

Hallo Christoph,

nachfolgend ein Beispielmakro. Hier wird der Wert aus Zelle A2 auf die Zeichenanzahl 25 geprüft. Sind es mehr, werden die Zeichen bis zur 25. Stelle gelsöcht. Sind es weniger, werden Leerzeichen bis zur 25. Stelle aufgefüllt.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Sub Beispiel()
Dim i As Integer
If Len(Range("A2")) > 25 Then
    Range("A2") = Mid(Range("A2"), 1, 25)
End If
If Len(Range("A2")) < 25 Then
    For i = 25 - Len(Range("A2")) To 25
        Range("A2") = Range("A2") & " "
    Next
End If

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

hi all :-)

oder diese variante in vb

gruss nighty

Range("A1") = Mid(Range("A1") & "                        ", 1, 25)

hallo,

warum so umständlich



geht auch so

Range("A1") = Left(Range("A1") & " ", 25)

Danke für die Antworten.

Nun hat es funktioniert.

LG Christoph

Hallo,

welche Lösung hast du den genommen?

Gruß

Helmut

• Suche lösung für : Wenn feld A1 = (zeichen+) dann Feld ...
• Excel: Anzahl der Kommentare pro Arbeitsblatt begrenzt?
• Excell Tabelle Gültigkeitsprüfung Liste Zeichen anzahl vergrößern?
• Excel Fußzeile mit Anzahl der Tabellenblätter
• Nur bestimmte Zeichen erlauben / Schriftgrad an Zelle anpassen?