Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
588to592
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
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textdateinamen aus Zellinhalt erstellen

Textdateinamen aus Zellinhalt erstellen
28.03.2005 15:33:42
werner
Recherche und Suche im Forum führte mich zu CreateTextFile
Mein Problem: Erstellung von ASCII-Dateien mit den Dateinamen aus Spalte A und die Textdateien sollen dann jeweils den Inhalt aus der Zelle B1 haben. Beispiel:
Zelle A1: 1001.txt B1: Allow * http://www.domain01.de/ | Teil */recht/* |
Zelle A2: 1002.txt B2: Allow * http://www.domain02.de/ | Teil */musik/* |
usw.
Ergebnis soll sein:
Textdatei 1001.txt hat den Inhalt:
Allow * http://www.domain01.de/ | Teil */recht/* |
Textdatei 1002.txt hat den Inhalt:
Allow * http://www.domain02.de/ | Teil */musik/* |
usw.
Danke für eure Hilfe.
gruß
werner

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

Betreff
Datum
Anwender
Anzeige
AW: Textdateinamen aus Zellinhalt erstellen
28.03.2005 16:12:27
NE
Hi,
zB sowas:

Sub x()
Dim i&
For i = 1 To 10
Open "D:\" & Cells(i, 1).Value & ".txt" For Output As #1
Print #1, Cells(i, 2).Value
Close #1
Next
End Sub

Gruss Nancy
nur leere .txt in D:
28.03.2005 16:41:53
werner
Hallo Nancy,
Danke.
Ich habe den Code in VBA-Makro kopiert und den Cursor auf Zelle A1 gesetzt. Der Makro erstellt aber nur eine leere Datei mit der Endung .txt auf der Platte D:
Mache ich etwas falsch. Hier Makro-Inhalt:

Sub txt_erstellen()
' txt_erstellen Makro
' erstellt .txt-Dateien aus Zellen ab A1
Dim i&
For i = 1 To 10
Open "D:\" & Cells(i, 1).Value & ".txt" For Output As #1
Print #1, Cells(i, 2).Value
Close #1
Next
End Sub

Anzeige
AW: nur leere .txt in D:
28.03.2005 17:09:01
NE
Hi again,
Werner, was nur EINE? Sollten zumindest 10 sein ;-))
Bei mir stand zB.:
Z / A / B
1 / 1 / eins
2 / 2 / zwei
...
10 / 10 / zehn
Der Code bezieht sich auf das aktive Tabellenblatt, unabhängig von der Cursorposition.
Was steht denn in A und B? Doppelte Werte in A werden auch jedesmal überschrieben.
Sonst grade mal keine Idee weiter;-)
Gruss Nancy
xls-Datei auf herber.de geladen
28.03.2005 18:14:09
werner
Hi Nancy,
ich habe die kleine xls-Datei auf den Server geladen.
https://www.herber.de/bbs/user/20251.xls
Datei enthält den Makro und 2 Zeilen
124712 Disallow * | Allow http://www.domain01.de/ | Teil */recht/* |
69840 Disallow * | Allow http://www.domain02.de/ | Teil */musik/* |
Also A1=124712 B1=Disallow * | Allow http://www.domain01.de/ | Teil */recht/* |
usw.
Liegt es vielleicht an Pipe-Symbol (|)? Dann könnte ich ein anderes Trennzeichen nehmen.
Nochmals Danke vorab.
werner
Anzeige
AW: xls-Datei auf herber.de geladen
28.03.2005 18:46:38
NE
Werner, also bei mir geht das mit deiner Datei [xl2000 unter win2k],
es werden 3 *.txt auf D:\ erstellt, eine .txt welche leer ist da in A3-B10 nix steht,
sowie eine 124712.txt und eine 69840.txt welche halt die jeweilige Zeile aus B enthalten.
Es scheint zwar nicht das Hauptproblem zu sein, aber probier mal noch das:

Sub txt_erstellen()
Dim i&
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) <> "" And Cells(i, 2) <> "" Then
Open "D:\" & Cells(i, 1).Value & ".txt" For Output As #1
Print #1, Cells(i, 2).Value
Close #1
End If
Next
End Sub

Ansonsten keine Ahnung, was da bei Dir schiefläuft, vielleicht liegts auch am XP?
Kann ich mir aber gar nich sooo richtig vorstellen *dream* ;-))
Gruss Nancy
Anzeige
1000 Dank
28.03.2005 19:00:30
werner
Hi Nancy,
funktioniert jetzt alles einwandfrei. Die leere .txt wird auch nicht mehr erzeugt. Der Hammer mit reichlich Asche über mein Haupt kommt aber noch: Wie eben festgestellt: Es geht auch dein anderer Makro, der eben nur zusätzlich eine leere .txt erstellt hatte. Ich hatte anscheinend eine Dateisortierreihenfolge eingestellt, in der Dateinnamen mit Ziffern nicht nach .filename erscheinen. Kurzum: Die dateien wurden auch erzeugt, standen nur nicht in meinem Dateiverwalter wegen der vielen anderen Dateien im selben Verzeichnis, da wo ich sie erwartet hatte.
Wie kann ich mich revanchieren?
1000 Dankeschön aus Hamburg
werner
Anzeige
AW: 1000 Dank
28.03.2005 19:15:29
NE
Bitteschön, und ... makes nix - sh#t happens ;-))
Hab' unlängst auch versucht zu plotten und es kam am Plotter nix an,
nach 2 Stunden Probiererei, Treiberdownload etc hab' ich dann gemerkt,
dass ich das Plotterkabel am falschen Rechner angeschlossen hatte.
Is halt tückisch, wenn mehrere von den Dingern unterm Tisch stehen *peinlich*
Schöne Rest-Ostern noch
Gruss Nancy

304 Forumthreads zu ähnlichen Themen

VBA Ausgabe in neue Datei
MarkusL

Hallo,
ich habe folgendes Problem:
In einer Datei befinden sich nachfolgende Datensätze
Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.
es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die F...
08.08.2008 17:42:00
Thread-ID: 1000377
3 Beiträge
Anzeige
neue Datei erstellen und beschreiben
Toby


Hmm, wahrscheinlich für euch ein kleines Problem
habe aber im archiv nichts gefunden!
ich erstelle ein neues file und möchte dann die neue Datei mit Daten beschreiben.
aber leider schreibt er mir immer ins file in dem ich das makro starte!
ich hatte schon mol so ein Proble...
29.10.2008 13:07:00
Thread-ID: 1020251
9 Beiträge
Makro in neuer Datei erstellen
Kurt

Guten Morgen Allerseits,
ich hoffe mir kann jemand weiterhelfen.
Problem:
Ich erstellt eine TXT Datei per Makro, nun möchte ich das
zusätzlich ein Commandbutton erstellt wird, mit folgendem Inhalt:
Private Sub CommandButton1_Click() Dim z As Long z = Range("a6").End(xlDo...
13.11.2008 10:47:23
Thread-ID: 1024104
7 Beiträge
Anzeige
VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
per VBA prn-Datei erstellen
Ron

hallo,
weiß jemand von euch wenn ich per makro eine Exceltabelle als prn-Datei ausdrucken will wie ich diese automatisch mit einem vorher ermittelten Namen abspeichern kann?
Danke
Gruß Ron
19.11.2008 17:22:00
Thread-ID: 1026126
5 Beiträge
Makro per VBA in Datei erstellen
Marko

Hallo zusammen,
folgendes Problem:
ich habe eine Datei mir mehreren Tabellenblätter die Formeln enthalten.
Per VBA exportiere ich die Datei und enferne dabei die vorhandenen Makros sowie ersetzte die Formeln durch Werte.
Nun würde ich abschließend in den Export ein neues Makro i...
01.07.2009 17:22:37
Thread-ID: 1085801
3 Beiträge
Tabellenblätter autom. erstellen und ausfüllen
Robert

Hallo Leute
ich habe hier eine Mappe in der ich eine Vorlage für die Prüfung von Maschinen hab.
Ich brauch pro Maschine ein Tabellenblatt und daher würde ich diese gerne automatisch erstellen wenn in der Geräteliste ein Gerät eingetragen wird.
Des Weiteren soll in den automatisch er...
07.07.2009 20:30:38
Thread-ID: 1086950
7 Beiträge
Neue Datei erstellen
Stefanglander

Hallo Forum,
ich habe eine Datei in der auf Blatt 1 im Bereich C2:C27 Namen stehen.
Ich möchte nun mit einem Makro ausgelößt durch einen CMB das für Zelle im Bereich C2:C27 die nicht leer ist eine neue Datei mit dem Namen der jeweiligen Zelle angelegt wird.
Als Vorlage soll das Bla...
02.08.2009 19:37:22
Thread-ID: 1093084
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
8
6
3
4
4
2
6
2
3
10
13
2
1
3
6
4
2
5
12
5
4
5
10