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

Beiträge aus den Excel-Beispielen zum Thema "Zelleninhalte in CSV umwandeln?"