title image


Smiley Re: Tabelle in Liste umwandeln (für CSV)
Hi,



hier ist ein Ansatz, mit dem Du die Daten ohne Umweg in die csv schreiben kannst:



Dim intSpalte As Integer, lngZeile As Long

Dim strText As String

'In der ersten Zeile stehen die Breiten, in der ersten Spalte die Höhen.

strText = ""

'Von Spalte 2 bis 4

For intSpalte = 2 To 4

'von Zeile 2 bis 4

For lngZeile = 2 To 4

strText = strText & Cells(1, intSpalte) & ";" & Cells(lngZeile, 1) & ";" & Cells(lngZeile, intSpalte) & ";" & vbNewLine

Next

Next

'Jetzt kann strText in eine csv geschrieben werden.

MsgBox strText



Viele Grüße



Jörg


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: