Mit folgendem Code werden bestimmte Zellen jeweils als Textdatei gespeichert.
Sub AlsTextdateiSpeichern()
Dim iRow As Integer
On Error GoTo ERRORHANDLER
iRow = 2
Close
Do Until IsEmpty(Cells(iRow, 2))
Open ActiveWorkbook.Path & "\Daten\" & _
Cells(iRow, 1) & ".txt" For Output As #1
Print #1, Cells(1, 2).Value & ": " & Cells(iRow, 2).Value & Chr(10) & _
Cells(1, 3).Value & ": " & Cells(iRow, 3).Value & Chr(10) & _
Cells(1, 4).Value & ": " & Cells(iRow, 4).Value & Chr(10) & _
Cells(1, 25).Value & ": " & Cells(iRow, 25).Value
Close
iRow = iRow + 1
Loop
MsgBox "Die Dateien wurden angelegt!"
Exit Sub
ERRORHANDLER:
MsgBox "Die Dateien konnten nicht angelegt werden!"
End Sub
Da die Verknüpfungen begrenzt sind, macht das Makro beim Erreichen dann zu.
Kann man eine Schleife einbauen und wie müsste sie aussehen, um Spalte 2 bis 160 zu erfassen.
Meine Versuche sind leider gescheitert.
Vielen Dank im Voraus
Gruß Volker