Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
704to708
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
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte in txt Datei speichern

Werte in txt Datei speichern
03.12.2005 15:09:53
F
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in txt Datei speichern
03.12.2005 15:16:35
Matthias
Hallo Frank,
Warum in einer Variablen zwischenspeichern?
Mit einer Schleife und direkt geht es so:

Dim i As Integer
Open ("c:\" & Mnemonic & "-" & CalNo & ".txt") For Output As #1
For i = 13 To 252
Print #1, Cells(i, 17)
Next Spalte
Close #1

Gruß Matthias
AW: Werte in txt Datei speichern
03.12.2005 15:23:03
F
Hallo Matthias,
auf deine Frage: Warum in einer Variablen zwischenspeichern?
kann ich nur antworten, weil ich noch wenig Ahnung über VBA habe.
Vielen Dank für deine schnelle Hilfe, das erspart mir die viele schreibarbeit
von DruckStr1 bis DruckStr240.
Gruss
Frank
Anzeige
AW: Werte in txt Datei speichern
03.12.2005 15:19:38
Reinhard
Hi Frank,
Option Explicit
Sub tt()
Dim n As Long, letzte As Long, weiter, Mnemonic, CalNo
If Dir("c:\" & Mnemonic & "-" & CalNo & ".txt") <> "" Then
weiter = MsgBox("Datei bereits vorhanden. Überschreiben?", vbYesNo)
If weiter = vbNo Then Exit Sub
End If
Close
Open ("c:\" & Mnemonic & "-" & CalNo & ".txt") For Output As 1
letzte = Cells(65536, 17).End(xlUp).Row
For n = 1 To letzte
Print #1, Cells(n, 17)
Next n
Close
End Sub
Gruß
Reinhard
AW: Werte in txt Datei speichern
03.12.2005 15:24:42
F
Hallo Reinhard
vielen Dank für Deine Hilfe.
Gruss Frank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige