Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
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
Inhaltsverzeichnis

Aus "B-Spalte" in datei.txt schreiben

Aus "B-Spalte" in datei.txt schreiben
15.11.2016 16:39:21
Prisca
Hallo
in der Tabelle1 habe ich in der Spalte B (ab Zeile3) Werte, die ich in die Datei: "C:\Meine_Dokumente\B_Werte_aus_Excel.txt" schreiben möchte.
Die Werte stehen von B3 bis B.... .
Maximal sind aber höchstens 200 Werte zu schreiben.
(Ab B204 ist definitiv Schluss).
Liebe Excel-Profis darf ich um eine kleine Hilfe bitten?
Gruss aus Schaffhausen
Prisca

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aus "B-Spalte" in datei.txt schreiben
15.11.2016 16:58:59
Michael
Hallo!
Eine relativ simple Möglichkeit:
Sub a()
Const TXT_PFAD As String = "C:\Meine_Dokumente\"
Const TXT_NAME As String = "B_Werte_aus_Excel.txt"
Dim WbQ As Workbook: Set WbQ = ThisWorkbook
Dim WbZ As Workbook
Dim WsQ As Worksheet: Set WsQ = WbQ.Worksheets("Tabelle1")
With WsQ
.Range("B3:B" & .Cells(.Rows.Count, 2).End(xlUp).Row).Copy
End With
Set WbZ = Workbooks.Add
With WbZ
.Worksheets(1).Cells(1, 1).PasteSpecial xlPasteValuesAndNumberFormats
.SaveAs Filename:=TXT_PFAD & TXT_NAME, FileFormat:=xlTextWindows
.Close True
End With
End Sub
Es sei denn, Du willst eine bestehende Text-Datei stets mit neuen Werten aus B3:Bx ergänzen...
lg
Michael
Anzeige
AW: Aus "B-Spalte" in datei.txt schreiben
15.11.2016 17:01:18
Daniel
Hi
am besten so:
- neue Exceldatei anlegen
- Werte dort hineinkopieren
- neue Exceldatei als Textdatei speichern
- neue Exceldatei schließen
sieht als Code so aus:
workbooks.Add
thisworkbook.Sheets("Tabelle1").Range("B3:B204").copy
activesheet.Cells(1, 1).Pastespecial xlPasteValuesAndNumberFormats
activeworkbook.SaveAs "C:\Meine_Dokumente\B_Werte_aus_Excel", fileformat:=xlTextWindows
activeworkbook.close false
welches Fileformat die richtige Textdatei liefert, musst du ggf ausprobieren, indem du die Datei von Hand in den verschiedenen Formaten speichersst und das ganze mit dem Recorder aufzeichnest.
Gruß Daniel
Anzeige
AW: Aus "B-Spalte" in datei.txt schreiben
15.11.2016 17:10:39
UweD
Hallo
Sub exportieren()
    Dim Filename As String, i As Integer, LR As Integer
    Filename = "C:\Meine_Dokumente\B_Werte_aus_Excel.txt"
    
    With Sheets("Tabelle1")
        LR = .Cells(.Rows.Count, "B").End(xlUp).Row
        LR = WorksheetFunction.Min(LR, 204)
        
        Close #1
        Open Filename For Output As 1
        For i = 3 To LR
            Print #1, .Cells(i, 2)
        Next
        Close #1
    End With
End Sub

LG UweD
Anzeige
AW: Aus "B-Spalte" in datei.txt schreiben
15.11.2016 20:13:26
Prisca
Hallo
Leider noch vergessen.
An den Anfang der B_Werte ...txt müssen noch 2 Startzeilen und am Schluss noch eine Endzeile geschrieben werden.
(Anfang1, Anfang2, Ende1)
Tut mir leid.
Bin selber auf mich stolz, das ich das Makro überhaupt zum laufen gebracht habe.
(Bin aber nicht blond)
Liebe Grüsse Prisca
AW: Aus "B-Spalte" in datei.txt schreiben o.T.
15.11.2016 23:15:51
Prisca
Hurra, ich habs geschafft
AW: Aus "B-Spalte" in datei.txt schreiben
16.11.2016 09:35:51
UweD
hi
so...
Sub Exportieren()
    Dim Filename As String, i As Integer, LR As Integer
    Filename = "C:\Meine_Dokumente\B_Werte_aus_Excel.txt"
    
    With Sheets("Tabelle1")
        LR = .Cells(.Rows.Count, "B").End(xlUp).Row
        LR = WorksheetFunction.Min(LR, 204)
        
        Close #1
        Open Filename For Output As 1
        Print #1, "Anfang1"
        Print #1, "Anfang2"
        For i = 3 To LR
            Print #1, .Cells(i, 2)
        Next
        Print #1, "Ende"
        Close #1
    End With
End Sub
LG UweD
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige