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

Aus "B-Spalte" in datei.txt schreiben

Forumthread: 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
Anzeige

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

Forumthreads zu verwandten Themen

Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Registerkarte als csv separat speichern
Herbert

Hallo,
ich möchte eine Registerkarte per Knopfdruck auf einen Button (Steuerelement) in eine neue Datei im Ordner C:\Temp speichern. Anbei der Code zum Speichern im txt-Format. Kann man diese auf das Ausgabeformat csv modifizieren? Bin für jede Hilfe dankbar.
Gruß Herbert
Dim strSep...
16.10.2008 10:01:00
Thread-ID: 1016757
2 Beiträge
Anzeige
Als csv automatisiert speichern
Herbert

Hallo,
noch eine Frage zur Speicherung eines Excel-Sheets in eine neue Datei.
Die Ausgangsdatei hat eine Registerkarte. Der Inhalt dieser Registerkarte soll im Pfad C:\temp\sicherung als .csv-Datei abgelegt werden. Der Dateiname soll "Saldierung_aktuelles Datum.csv" sein.
Leider wir...
20.11.2008 12:02:00
Thread-ID: 1026369
2 Beiträge
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
TextBox Komma in Punkt umwandeln
Heinz

Hallo Leute
Wie kann ich bitte,wenn in Textbox6 ein Komma eingegeben wird, das es automatisch auf Punkt wechselt ?
Gruß
Heinz
28.01.2009 17:42:00
Thread-ID: 1044650
3 Beiträge
TEXT in Tabelle umwandeln
Martin

Liebe Forumteilnehmer,
möchste aus einem TEXT in WORD der bestimmte wiederholte, standardisierte Abschnitte - in diesem fall Name, Vorname, Geb-Datum, eine Tabelle generieren. Geht das mit einem Makro aus Excel heraus?
Danke
Martin
02.02.2009 17:26:48
Thread-ID: 1046338
4 Beiträge
Text in Tabelle umwandeln
Martin

Hallo Formusteilnahmer,
hate vor eingen Tagen schon mal eine Anfrage diesbezüglich gestellt und versuche sie nun präziser zu formulieren.
Ich muss aus mehreren 10 Seiten Volltext Daten herausziehen und in eine Tabelle packen. Es geht dabei um Name, Vorname Geburtsdatum. Habe einen Beisp...
08.02.2009 16:55:14
Thread-ID: 1048374
3 Beiträge
Excel-Daten in TXT umwandeln
dani

Hallo zusammen
ich bins nochmal.
Ich muss aus einer Excel-Tabelle mit Daten in verschiedenen Spalten ein txt-file generieren können.
Das klappt auch bestens, aber die Daten in einer Zeile sollten ohne Abstände dargestellt werden.
Jetzt sieht das im txt-file so aus:
Satz_ID...
20.02.2009 13:29:00
Thread-ID: 1052429
7 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Anzeige
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Danke,
Born
03.03.2009 13:16:27
Thread-ID: 1055953
4 Beiträge
Text-String in Datumszahl umwandeln
MBorn

Hallo,
weiß jemand, wie ich einen Textstring ("27.02.1999") in die
passende Datumszahl (36218) umwandeln kann?
Interessanterweise funktioniert das in Excel mit Ganzzahl(Datumsstring),
aber in VBA klappt int(Datumsstring) nicht.
Danke,
Born
03.03.2009 13:18:24
Thread-ID: 1055955
2 Beiträge
Möchte .xls in .csv umwandeln
Leo

Moin Moin zusammen,
ich raff` es einfach nicht wie ich meine .xls-Daten in eine .csv-Datei umwandeln lassen kann !!!
Wahrscheinlich ist es einfach zu spät am Abend bzw. zu früh am morgen !? ?! !?
Eine kurze Erklräung ist in der Datei vorhanden : https://www.herber.de/bbs/user/60320....
15.03.2009 04:29:27
Thread-ID: 1060323
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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