Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

leerzeichen export

leerzeichen export
19.05.2003 09:24:08
Andreas
Hallo,
ich möchte eine Excelliste mit Daten exportieren. (möglichst in txt oder csv - anderes Format geht zur Not aber auch).
Die exportierte Datei soll dann im normalen Wineditor folgendes Format haben.
(Der Inhalt der Zellen kann Text, Zahl oder beides sein.)

_Inhalt A1;_Inhalt A2;_Inhalt A3;
_Inhalt B1;_Inhalt B2; etc...

Also immer durch ; getrennt und IMMER 10 Zeichen lang pro Feld.
Ist der Text oder die Zahl im Feld kürzer als 10 Zeichen, so soll
der Rest mit Leerzeichen gefüllt werden.
Also wenn das Feld A1 den Inhalt "2345" und das Feld A2 den Inhalt "HalloKarl" hat soll daraus folgendes werden:
______2345;_HalloKarl; (_ Soll Leerzeichen sein).

Bitte helfen Sie mir.
_____________________________________________________________

hallo,
leider hilft mir das nicht so richtig weiter.
VBA is klar, hab ich auch schon probiert.
Datei schreiben etc. das hab ich alles hinbekommen.
Das problem ist nur ,dass
1) alles immer mit ; getrennt sein soll in der ausgegebenen Datei, also egal welcher Datentyp
2) Ein Feld in der Ausgabedatei dann auch immer 10 Zeichen lang sein soll. Also bei einem Feld mit 8 Zeichen sollen 2 Leerzeichen davor geschrieben werden und bei zb. 5 Zeichen eben 5 Leerzeichen.
Das ist mein eigendliches Problem.

Bitte helfen Sie mir nochmals.

MfG,
Andreas


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: leerzeichen export
19.05.2003 09:48:52
RAnton

hallo,
ich nehme an du hast ein problem mit den Leerzeichen auffüllen.

nimm den Code

Dim strTemp As String * 10

strTemp = Space(10)

strTemp = Replace(strTemp, " ", Sheets("tabelle1").Cells("2,1").Value, 1, 1)

gruß

RAnton


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige