aus Textdatei zurücklesen/importieren ?
03.12.2005 16:50:46
Rebecca
ich konnte dieses Makro von Reinhard (besten Dank auch von mir)soweit an meine bedürfnisse anpassen, das ich damit in txt... speichern kann.
Habe mal in der Recherche gesucht, kann aber mit den Beispielen dort nichts
anfangen.
Wie lese ich also diese in die txt Datei gespeicherten Werte wieder zurück?
(Quell-Zellen enthalten jeweils nur 1 Buchstaben, oder sind Leer)
Private Sub CommandButton8_Click()
Dim Fso As Object
Dim MeinPfad As String
Dim z, s As Long, weiter, Planwerte
MeinPfad = ThisWorkbook.Path
Set Fso = CreateObject("Scripting.FileSystemObject")
If Fso.FileExists(MeinPfad & "\" & "Planwerte" & ".txt") Then
weiter = MsgBox("Datei bereits vorhanden. Überschreiben?", vbYesNo)
If weiter = vbNo Then Exit Sub
End If
Close
Open (MeinPfad & "\" & "Planwerte" & ".txt") For Output As 1
'ende = Cells(65536, 1).End(xlUp).Row
For z = 16 To 381 'von Zeile 16 bis 381
For s = 5 To 18 'von Spalte 5 bis 18
Print #1, Cells(z, s)
Next s
Next z
Close
End Sub
Vielen Dank und liebe Grüsse
Rebecca