Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
516to520
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
516to520
516to520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige