Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon berderonal vom 13.11.2020, 12:25 Options

Wíe kann ich in Excel eine bestimmte Anzahl von Zeichen pro Feld einstellen

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

Antwort schreiben

Antwort 1 von tuerpi111 vom 13.11.2020, 14:21 Options

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

Gruß tuerpi111

Antwort 2 von berderonal vom 13.11.2020, 14:38 Options

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

Antwort 3 von Saarbauer vom 13.11.2020, 14:39 Options

Hallo,

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

Gruß

Helmut

Antwort 4 von coros vom 14.11.2020, 11:46 Options

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.}

Antwort 5 von nighty vom 14.11.2020, 12:21 Options

hi all :-)

oder diese variante in vb

gruss nighty

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

Antwort 6 von Saarbauer vom 14.11.2020, 12:27 Options

hallo,

warum so umständlich

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

geht auch so

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

Antwort 7 von berderonal vom 17.11.2020, 09:40 Options

Danke für die Antworten.

Nun hat es funktioniert.

LG Christoph

Antwort 8 von Saarbauer vom 17.11.2020, 10:55 Options

Hallo,

welche Lösung hast du den genommen?

Gruß

Helmut

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..