auf Select verzichten
06.12.2007 11:32:25
Andre´
mit nachfolgenden Makro wird von der Tabelle2 Spalte2 die Zeile ab 3 bis zur letzt beschriebenen Zelle in eine TXT- Datei kopiert und auf C: gespeichert.
Sub Export()
Dim zeile As Integer
Dim strFileName As String
Sheets("Tabelle2").Select
strFileName = Format(Date, "dd.mm.yyyy_") & Format(Now, "hh_mm_ss_") & Sheets("Tabelle1"). _
Range("D1") & ".txt"
Open "C:\" & strFileName For Append Lock Read Write As #1
For zeile = 3 To Sheets("Tabelle1").Range("C1")
Print #1, Cells(zeile, 2)
Next zeile
Close #1
End Sub
Wie kann ich auf Sheets("Tabelle2").Select verzichten
Danke im voraus
MFG Andre
Anzeige