Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

auf Select verzichten

auf Select verzichten
06.12.2007 11:32:25
Andre´
Hallo alle zusammen,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: auf Select verzichten
06.12.2007 11:35:00
Rudi
Hallo,
indem du exakt referenzierst.
Print #1, Sheets("Tabelle2").Cells(zeile, 2)
Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

Danke Rudi funzt :-)))
06.12.2007 11:46:00
Andre´
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige