AW: Daten aus Excel-Tabelle in Text-Datei
15.03.2004 12:05:30
Ingo Siemon
Hallo nochmal
Folgendes Modul habe ich von Andre:
Sub Tierisch()
Dim iFile As Integer
Dim petFile As String
iFile = FreeFile
petFile = InputBox("Dateiname: ", "Tierischer export", "MeineTiere.txt")
Open "C:\" & petFile For Output As iFile
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Print #iFile, "Mein Tier ist ein " & Cells(i, 1).Value & "."
Print #iFile, "Er ist " & Cells(i, 2).Value & "kg schwer und sogar " & Cells(i, 3).Value & " !"
Print #iFile, "Am liebsten frisst er " & Cells(i, 4).Value & "."
Next
Close iFile
End Sub
Aber damit klappt noch nicht so ganz :)
Damit wird immer EINE Text-Datei aus ALLEN Tabellenzeilen "erzeugt".
Ich möchte immer nur die Text-Datei aus genau der einen
Excel-ZEILE generieren, auf der die Maus grade ist.
Also aus den Zelleninhalten der aktiven Zeile.
Kann mir da jemand nochmal behilflich sein ?
Würde mich sehr darüber freuen :)
Gruß
Ingo