Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mappe speichern

Forumthread: mappe speichern

mappe speichern
19.11.2004 00:00:42
Lara
Hallo,
bitte,kann mir jemand helfen, da ich mich mit vba nicht auskenne?
Wie kann ich daten aus einer mape Spalten A:C, Spalte F und Spalten H und I per vba in eine txt mape speicher, aber nur wenn A24 befüllt ist.
Danke
Lara
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: mappe speichern
19.11.2004 00:37:54
Josef
Hallo Lara!
Versuch's mal damit.

Sub Export_Text()
Dim lEnd As Long
Dim lRow As Long
Dim del As String
If [A24] = "" Then Exit Sub
lEnd = Range("A65536").End(xlUp).Row  'letzte gefüllte Zeile ermitteln
del = ";"  'Trennzeichen
Open "D:\Temp\TestText.txt" For Output As #1 'Pfad und Name der Textdatei angeben
For lRow = 1 To lEnd
Print #1, Cells(lRow, 1) & del & Cells(lRow, 2) & del & Cells(lRow, 3) _
& del & Cells(lRow, 6) & del & Cells(lRow, 8) & del & Cells(lRow, 9)
Next
Close #1
End Sub

Der Code gehört in ein allgemeines Modul.
(Alt+F11 &gt Einfügen &gt Modul &gt in das rechte Fenster kopieren)
Er gilt immer für das aktive Tabellenblatt!
Die Textdatei wird automatisch erstellt!
Gruß Sepp
Anzeige
AW: mappe speichern
Lara
Hallo Josef,
super von dir. es funktioniert.
Wie kann man mit Tabulatoren Zellen speichern statt ; und nur ersten 22 Zeilen.
Wenn es nicht viel verlangt, kannst du mir bei der meldung helfen ob datei gescheichrt ist oder nicht nach dem drücken auf dem button.
Noch einmal vielen Dank
Lara
Anzeige
AW: mappe speichern
Josef
Hallo Lara!
Das müsste es tun!

Sub Export_Text()
Dim lRow As Long
Dim del As String
del = vbTab 'Trennzeichen
If [A24] <> "" Then
Open "D:\Temp\TestText.txt" For Output As #1 'Pfad und Name der Textdatei angeben
For lRow = 1 To 22
Print #1, Cells(lRow, 1) & del & Cells(lRow, 2) & del & Cells(lRow, 3) _
& del & Cells(lRow, 6) & del & Cells(lRow, 8) & del & Cells(lRow, 9)
Next
Close #1
Msgbox "Die Daten wurden erfolgreich als Textdatei gespeichert!"
Else
Msgbox "Daten wurden nicht gespeichert!"
End If
End Sub

Gruß Sepp
Anzeige
AW: mappe speichern
19.11.2004 09:29:20
Lara
Danke Josef,
wird ausprobiert!
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige