Herbers Excel-Forum - das Archiv

Zelleninhalte in CSV umwandeln?

Bild

Betrifft: Zelleninhalte in CSV umwandeln?
von: MartinS

Geschrieben am: 08.04.2005 09:42:09
Hallo zusammen,
hab da ein kleines Problem mit dem ich einfach nicht zurecht komme, und zwar:
Ich habe eine Tabelle, in welcher in Spalte A untereinander bis zur Zelle 5283 Zahlenwerte eingetragen sind. Um diese Zahlenwerte für ein anderes Programm aufzubereiten, bräuchte ich diese sozusagen in einer Zelle jewels mit einem Strichpunkt getrennt, also klassisch gesehen ein CSV. All meine versuche mit Excel bzw. VBA sind gescheitert.
Bsp.:
A
11001
11003
22125
32541
12354
...
Ergebnis sollte wie folgt aussehen:
11001; 11003; 22125; 32541; 12354 ...
Für eure Hilfe wäre ich sehr dankbar.
MfG
Martin
Bild

Betrifft: AW: Zelleninhalte in CSV umwandeln?
von: Tobias Marx
Geschrieben am: 08.04.2005 09:53:24
Servus!
Mit diesem Makro sollte es gehen:
Sub csv_maker()
Open "C:\Test.txt" For Output As #1
endup = Range("A65536").End(xlUp).Row
For i = 1 To endup
Print #1, Range("A" & i).Value & "; ";
Next i
Close #1
End Sub

Gruss

Tobias
Bild

Betrifft: AW: Zelleninhalte in CSV umwandeln?
von: MartinS
Geschrieben am: 08.04.2005 10:07:06
Hallo Tobias,
vielen Dank für deine Hilfe! Funktioniert PRIMA! ;-)
MfG
Martin
Bild

Betrifft: Gern geschehen :-) o.T.
von: Tobias Marx
Geschrieben am: 08.04.2005 10:18:24
Servus!

Gruss

Tobias
 Bild
Excel-Beispiele zum Thema "Zelleninhalte in CSV umwandeln?"
Abkürzungen umwandeln URLs eines ausgewählten Bereiches in HyperLinks umwandeln
Textstring in berechenbare Formel umwandeln Als Text vorhandene Werte in Zahlen umwandeln
Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen TextBox-Eingaben im Format TTMMJJ in gültiges Datum umwandeln
5-Längen-Zeichenfolgen in Zeit mit Format mss,00 umwandeln Zeichenfolgen über Doppelklick in externen Bezug umwandeln.
Alle "u" bis zum aktuellen Datum in "U" umwandeln Strings, die wie Zahlen aussehen, in Zahlen umwandeln