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

Erzeugte Textdatei ansprechen

Forumthread: Erzeugte Textdatei ansprechen

Erzeugte Textdatei ansprechen
03.04.2017 10:47:38
Franzi
Hallo ihr Lieben,
ich habe einen Code, der für jede Zeile eine neue Datei erstellt (Textdatei oder neue Excelmappe).
Wenn eine Bedingung zutrifft, möchte ich nun die zuletzt erzeugte Textdatei aufrufen können, um eine neue Zeile hinzuzufügen.
If ActiveCell = ActiveCell.Offset(1) Then
m = ActiveCell.Offset(1)
m = Cells(ActiveCell.Offset.Row, ActiveCell.Offset.Column)
Open Pfad For Input As #1
Print #1, m
Close #1
End If

So habe ich das versucht, aber das funktioniert leider nicht -.-
Kann mir bitte jemand helfen ?
Lg :)
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erzeugte Textdatei ansprechen
03.04.2017 10:55:19
ChrisL
Hi Franzi
Hinzufügen geht mit "Append"
Open Pfad For Append As #1
Den Inhalt deiner Zellen kann ich nicht überprüfen.
Offset braucht es nur, wenn auch wirklich ein Offset ("verschieben") vorliegt. Variable m überschreibst du.
m = Cells(ActiveCell.Offset.Row, ActiveCell.Offset.Column)
entspricht
m = ActiveCell
cu
Chris
Anzeige
AW: Erzeugte Textdatei ansprechen
03.04.2017 13:53:40
Franzi 

Sub imaSchnittstelle()
'letzte befüllte Zeile des Tabellenblattes wird ermittelt
lz = Sheets("KFL_allePrgr_23032017").Cells(Rows.Count, "A").End(xlUp).Row
'In diesem Verzeichnis werden die Textdateien gespeichert --> kann verändert werden
Pfad = "C:\Users\Desktop\Textdateien für IMA Schnittstelle\"
For i = 8 To 15
x = Cells(i, 1)
'Öffnet bei jedem Schleifendurchlauf eine neue Textdatei
Open Pfad & x & ".txt" For Output As #1
'Diese Spalten werden in die Textdatei reingeschrieben --> kann verändert werden
Print #1, Cells(i, 1) & "                                        ;" & "0000;"
Print #1, "0010" & "                              ;" & Cells(i, 10) & "                ;" &  _
Cells(i, 10) & _
"                ;" & Cells(i, 18) & ";" & _
Cells(i, 17) & ";" & Cells(i, 5) & ";" & Cells(i, 9) & ";" & Cells(i, 16) & ";" & Cells(i, 11) & _
_
"                      ;" & Cells(i, 20) & ";" & Cells(i, 21)
'Schließt und speichert die geöffnete Datei
Close #1
'Springt in die nächste Zeile, sofern die Bedinung noch erfüllt ist
Next i
'Wenn die untere Zeile gleich ist, dann:
If ActiveCell = ActiveCell.Offset(1) Then
m = ActiveCell.Offset(1)
Open Pfad For Append As #1
Print #1, m
Close #1
End If
'Benachrichtigung, dass Textdateien gespeichert wurden
MsgBox " Die Textdateien wurden im Verzeichnis: C:\Users\Desktop\Textdateien für IMA  _
Schnittstelle gespeichert"
End Sub

so sieht mein Code momentan aus, aber wie gesagt, tut nicht das, was er tun soll -.-
Anzeige
AW: Erzeugte Textdatei ansprechen
03.04.2017 10:55:39
Rudi
Hallo,
du solltest mal die Hilfe lesen.
Was soll das?: m = Cells(ActiveCell.Offset.Row, ActiveCell.Offset.Column)
OffSet(Zeilen, Spalten)!!!
Wenn du anfügen willst: Open Pfad For Append As #1
Gruß
Rudi
AW: Erzeugte Textdatei ansprechen
03.04.2017 13:30:20
Franzi
Danke, aber das funktioniert nicht so ganz wie ich möchte :/
Es öffnet mir die zuletzt gespeicherte Datei, aber das soll es nicht, da habe ich mich wohl falsch ausgedrückt ..
Es soll nur die erste Spalte verglichen werden :
Wenn in der ersten Spalte zwei oder mehrere Werte untereinander gleich sind, so sollen diese zusammen in eine Textdatei gespeichert werden.
Momentan erzeugt mein Code für jede Zeile eine neue Datei, soll es auch, aber für die Werte, die in der ersten Spalte untereinander mehrfach vorkommen, soll eben nur eine Datei erzeugt werden :/
Was kann ich da machen ?
Liebe Grüße
Anzeige
AW: Erzeugte Textdatei ansprechen
03.04.2017 13:47:11
ChrisL
Hi Franzi
Bitte Beispieldatei und den vollständigen Code.
cu
Chris
AW: Erzeugte Textdatei ansprechen
03.04.2017 13:56:15
Franzi 

Sub imaSchnittstelle()
'letzte befüllte Zeile des Tabellenblattes wird ermittelt
lz = Sheets("KFL_allePrgr_23032017").Cells(Rows.Count, "A").End(xlUp).Row
'In diesem Verzeichnis werden die Textdateien gespeichert --> kann verändert werden
Pfad = "C:\Users\Desktop\Textdateien für IMA Schnittstelle\"
For i = 8 To 15
x = Cells(i, 1)
'Öffnet bei jedem Schleifendurchlauf eine neue Textdatei
Open Pfad & x & ".txt" For Output As #1
'Diese Spalten werden in die Textdatei reingeschrieben --> kann verändert werden
Print #1, Cells(i, 1) & "                                        ;" & "0000;"
Print #1, "0010" & "                              ;" & Cells(i, 10) & "                ;" &  _
Cells(i, 10) & _
"                ;" & Cells(i, 18) & ";" & _
Cells(i, 17) & ";" & Cells(i, 5) & ";" & Cells(i, 9) & ";" & Cells(i, 16) & ";" & Cells(i, 11) & _
_
"                      ;" & Cells(i, 20) & ";" & Cells(i, 21)
'Schließt und speichert die geöffnete Datei
Close #1
'Springt in die nächste Zeile, sofern die Bedinung noch erfüllt ist
Next i
'Wenn die untere Zeile gleich ist, dann:
If ActiveCell = ActiveCell.Offset(1) Then
m = ActiveCell.Offset(1)
Open Pfad For Append As #1
Print #1, m
Close #1
End If
'Benachrichtigung, dass Textdateien gespeichert wurden
MsgBox " Die Textdateien wurden im Verzeichnis: C:\Users\Desktop\Textdateien für IMA  _
Schnittstelle gespeichert"
End Sub
So sieht mein Code momentan aus, aber wie gesagt tut er nicht das was er eigentlich soll :/
Anzeige
FRanzi oder Stefanie oder wer? owT
03.04.2017 16:49:52
Rudi
;

Forumthreads zu verwandten Themen

Textdatei auslesen
Henner

Hallo,
ich suche jetzt schon seit einiger Zeit das gesamt Forum und Netz durch und bin entweder blind oder es gibt tatsächlich keinen Hinweis zu meinem Fall. Ich möchte einfach nur den Inhalt einer bestimmten Textdatei (zB.: C:\test\test.txt) auslesen und in Tabelle1 in Zelle A1 anzeigen -...
06.09.2008 14:41:00
Thread-ID: 1007844
5 Beiträge
Textdatei auslesen
Urs

Hallo an alle,
ich möchte eine txt-Datei, in der die Daten zeilenweise aufgeführt sind, in Spaltenform nach Excel auslesen lassen (d.h. jede Zeile der txt-Datei soll eine Spalte in der XLS-Datei füllen).
Parallel dazu interessiert mich, ob es möglich ist, z. B. die ersten 25 Zeilen der...
10.09.2008 17:13:25
Thread-ID: 1008860
13 Beiträge
Textdatei per VBA einlesen
Werner

Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
Excel kann auf die Datei in '' nicht zugreifen.
Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
11.09.2008 09:57:26
Thread-ID: 1008986
4 Beiträge
Textdatei in Excel importieren und umgestalten.
Pascal

Hallo allerseits
Dank Diesem tollen Code hier unten, welchen ich übrigens hier im Forum erhalten hatte versuche ich eine komplizierte Textdatei im Excel umzugestalten.
Die Textdatei ist sehr gross und hat folgende Inhalte:
Aufteiler 0000265614 ,Position 00010
Bestellposition für...
18.09.2008 13:18:02
Thread-ID: 1010721
4 Beiträge
Anzeige
Textdatei erzeugen bringt Fehler
SteffenS

Hallo Zusammen,
ich verwende folgenden Code um eine Textdatei neu erzeugen und diese mit Werten zu füllen:
Open sZielDatei For Output As #55
sPrintString = "LIQUID;FILIALE;DATENART;JAHR;MONATE;WERT"
Print #55, sPrintString
Close #55
Bis Excel 2003 funktiioniert dies auch...
22.09.2008 20:29:00
Thread-ID: 1011567
5 Beiträge
Zeile fortlaufend nach Textdatei
Daniel

Hallo,
in einer Tabelle wird laufend ein Wert berechnet. Nun möche ich mit Worksheet_Calculate
ein Makro aufrufen, das diesen Wert, untereinander (zeilenweise) in eine Textdatei schreibt.
Das habe ich bisher, ich dachte \n bewirkt einen Zeilenumbruch...tut es aber nicht. Stattdess...
02.10.2008 10:12:00
Thread-ID: 1013799
4 Beiträge
Textdatei mit Tabs in Excel einlesen
TomTom

Hi,
wie kann ich eine Textdatei mit Tabs Trennzeichen per Makro in eine Excel Datei einlesen ? Ich brauche die Möglichkeit, dass das Makro den Öffnen-Dialog nuzt und ich die Textdatei vorher auswählen kann.
Hat vielleicht jemand ein Beispiel dazu, Wäre nett, danke
Tom
05.11.2008 11:54:00
Thread-ID: 1021827
7 Beiträge
Textdatei importieren in Excel
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden, dabei werden Suchwörter aus einer
Textdatei eingelesen. Es funktioniert auch, wenn das Suchwort am
Anfang der Zeile steht. Als Beispiel: Grafikchip;10.10.2008;1;2 wird die
ganze Zeile eingelesen, wenn aber das Suchwort G...
16.11.2008 15:18:27
Thread-ID: 1024910
8 Beiträge
Textdatei importieren in ComboBox mit Zeilenumbruc
Edie

Hallo zusammen,
in eine ComboBox wird eine Textdatei eingelesen. Die Textdatei hat nur eine Spalte.
Leider wird der Inhalt der Textdatei in der ComboBox in eine Zeile dargestellt.
Wie erzwinge ich einen Zeilenumbruch in der ComboBox? Was sollte in den
Eigenschaften der ComboBox...
16.11.2008 17:38:26
Thread-ID: 1024954
5 Beiträge
Anzeige
Daten per Makro in Textdatei schreiben
Etzed

Servus,
ich habe folgendes Problem. In einer Excel Tabelle verwalte ich die Mitglieder eines Vereins mit Kontodaten für die Buchungen. Ich brauche jetzt für meine Bank eine Datei in der die Kontodaten der Mitglieder die per Bankeinzug bezahlen enthalten sind.
Diese Daten stehen bei mir...
17.11.2008 13:57:09
Thread-ID: 1025212
4 Beiträge
Anzeige
Excel --> Textdatei --> Linux konform
Thorsten

Hallo,
mein Problem ist, dass ich eine TExt datei mit Excel erzeuge und unter linux einbinden muss.
Wenn ich die Datei per mail versende, kommt es , je nach mailanbieter, zu Zeilenumbrüchen, die unter linux nicht gelesen werden können.
(ich maile die Datei an einen Person, die von...
12.12.2008 15:53:45
Thread-ID: 1032450
5 Beiträge
Sehr schwierig: Textdatei auf Webserver erweitern
Martin

Hallo,
ich habe eine Textdatei auf einem Webserver, die durch ein Formular durch andere Personen erweitert wird. Schreibt jemand Daten in das Webformular, so wird der Textdatei (eine CSV-Datei) um eine Zeile erweitert. Manchmal müssen aber sehr viele Datensätze angelegt werden, was ein stän...
27.01.2009 11:46:00
Thread-ID: 1044147
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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