Office: Hilfe beim erstellen einer Importdatei

hallo zusammen,

ich habe folgendes problem und ich hoffe das mir jemand weiterhelfen kann.
ich habe eine exceltabelle mit bestimmten Werten in den jeweiligen zellen.

nun will ich eine importdatei erstellen, damit diese werte von einem externen programm
eingelesen werden können. dieses programm kann die daten aber nur als .txt document lesen und
als trennzeichen muss ein Doppelpunkt gesetzt sein.

soweit sogut, das bekäme ich alles noch gelöst. jetzt habe ich aber erfahren, dass diese trennzeichen
(also der doppelpunkt) an bestimmten positionen FEST stehen muss, damit die daten eingelesen werden
können.
in meine exceltabelle habe ich aber zahlenwerte die unterschiedlich gross sind. demnach kann ich
nicht sagen, dass vom makro wert X gezogen werden soll und danach noch x leerstellen sein müssen, bis
das trennzeichen folgt.
gibt es ein befehl der mir die trennzeichen an bestimmte positionen setzt, unabhängig wie groß der wert
zwischen den trennzeichen ist?

so soll die fertige datei bspw. aussehen

94: : :K :N:123456: :UHJK :C:C:001:K: 148,000: ..... usw.


es gibt auch felder, die nicht befüllt werden, trotzdem aber einen gewissen abstand erfordern.
ich hoffe mein problem ist soweit verständlich.

vielen dank schonmal für eure bemühungen.

 

Hallo!

Dieser Term (als Formel im Tabellenblatt) füllt den Wert aus A1 mit variabler Anzahl Leerzeichen auf und setzt an 11. Stelle einen Doppelpunkt:

=A1&WIEDERHOLEN(" ";10-LÄNGE(A1))&":"

Das müsstest du irgendwie als Schleife mit den entsprechenden Positionen in dein Makro einbauen.
WIEDERHOLEN=Rept
LÄNGE=Len

 

demnach müsste ich eine Kopie meiner Tabelle anfertigen, mit der ich dann weiterarbeite?

Feld A1 könnte ich aber nicht direkt überschreiben?

 

Nein, überschreiben kannst du die Werte mit einer Formel nicht; dann sind sie weg!

 

dann mal vielen vielen dank für die hilfe.
hat alles wunderbar funktioniert.

jetzt habe ich nur noch ein problem. und zwar habe ich in meiner tabelle zwei datumfelder (bspw. 27.08.2008)
diese dürfen aber noch 8-stellig sein. Demnach habe ich folgende Formel hinterlegt

Columns("L:L").Select
Selection.NumberFormat = "yyyymmdd"
Columns("M:M").Select
Selection.NumberFormat = "yyyymmdd"

Wenn ich mit diesem beiden Datumfelder aber weiterarbeite, verändert das Makro diese wieder in das Ursprungsformat. Oder wenn ich das Datumsfeld in der Zelle als Text formatiere, dann bekomme ich irgendeine 35000er Zahl ausgeworfen. Gibt es einen Befehl, damit das Datumsformat wie gewünscht erhalten bleibt?

 

Hmmm...
Vielleicht sowas?

Code:

Sub test()
Dim zelle As Range
For Each zelle In Columns("L:L").Cells
If IsDate(zelle) Then
zelle = Year(zelle) & Format(Month(zelle), "00") & Format(Day(zelle), "00")
zelle.NumberFormat = "@"
End If
Next
End Sub

 

erneut VIELEN Dank ...
die antworten helfen mir echt super weiter!!

Die Importdatei habe ich soweit auch schon fertig gestellt.
Jetzt liegt es nur noch am Dateinamen.

Ich hätte gerne, dass die Datei als TESTyyyymmdd gespeichert wird.

yyyymmdd soll immer das Tagesdatum sein. Ich kann zwar den Befehl erteilen, dass das Datum an TEST hinzugefügt wird, aber
dann wird es als "TEST01-09-2008" gespeichert, soll aber TEST20080901 heissen.

Wenn es hierfür auch noch eine Lösung gibt, wären alle Probleme beseitigt :-))

 

Hallo,

sowas in der Art?

Code:

Sub Speichern()
ThisWorkbook.SaveAs "C:\test\" & "Test" & Format(Date, "ddmmyyyy") & ".xls"
End Sub

Die Datei wird hier im Verzeichnis C:\Test gespeichert.

Nachtrag: Statt "ddmmyyyy" natürlich "yyyymmdd"

 

Hallo!

Müsste nicht dies den gewünschten String ergeben?

"TEST" & Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00")