ich habe in einem Excel Blatt eine Spalte,
in der von der 13'ten bis 16'ten Reihe, Werte stehen.
Diese Werte werden in einer .txt Datei gespeichern.
Das mache ich bis jetzt so:
DruckStr1 = Cells(13, 17)
DruckStr2 = Cells(14, 17)
DruckStr3 = Cells(15, 17)
DruckStr4 = Cells(16, 17)
If Dir("c:\" & Mnemonic & "-" & CalNo & ".txt") "" Then
weiter = MsgBox("Datei bereits vorhanden. Überschreiben?", vbYesNo)
If weiter = vbNo Then Exit Sub
End If
Open ("c:\" & Mnemonic & "-" & CalNo & ".txt") For Output As 1
Print #1, DruckStr1
Print #1, DruckStr2
Print #1, DruckStr3
Print #1, DruckStr4
Das funktioniert auch, jetzt mein Problem:
das selbe möchte mich einer Spalte von 240 Reihen machen.
Gibt es dafür eine elegantere Lösung ?
Wenn ja, dann wie.
Mit freundlichen Grüßen
Frank