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

Zellen in ..txt Datei kopieren

Forumthread: Zellen in ..txt Datei kopieren

Zellen in ..txt Datei kopieren
31.05.2005 11:10:52
Daniel
Guten Tag,
ich will z.B. die Zellen C1 bis E7 einer Excel-Datei kopieren und
in eine .txt Datei einfügen. Die Datei heißt RTD.txt. Sie soll jedesmal komplett überschrieben werden. Da ich das ganze Prozedere für etliche Zellenblöcke machen muss, möchte ich das gerne per Makro machen.
Mit dem Rekorder habe ich es selbst schon versucht. Da komme ich aber mit der Textdatei überhaupt nicht klar.
Grüße,
Daniel
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen in ..txt Datei kopieren
31.05.2005 11:23:47
Sylvio
Probier mal das es schreibt denn wert der Zelle A1 aus dem Workbook("Dein Name der Datei") mit dem Sheet ("Tabelle1")

Sub write ()
Dim ort as string
Dim stext as string
ort="C:\Ordner\RTD.txt
stext=Workbook("Name").Sheets("Tabelle1").Cells(1,1)
Set fs = CreateObject("Scripting.FileSystemObject")
Set tf = fs.openTextFile(ort, 8, -2)
tf.write (stext)
tf.Close
End If
End Sub

Anzeige
AW: Zellen in ..txt Datei kopieren
31.05.2005 11:38:52
Daniel
Hi,
da kommt bei Workbook "Sub oder Function nicht definiert."
Grüße,
Daniel
AW: Zellen in ..txt Datei kopieren
31.05.2005 11:40:31
Sylvio
UPS einfach noch ein s an Workbook anhängen Syl
AW: Zellen in ..txt Datei kopieren
31.05.2005 11:51:15
Daniel
Okay.
Jetzt wird ja nur die ZelleA1 kopiert.
Kannst Du mir kurz erklären, wie ich das nun individuelle anpasse.
Zudem soll die Datei komplett überschrieben werden, also zunächst gelöscht werden.
Im Moment wird der Wert einfach dazugeschrieben.
Danke,
Daniel
Anzeige
AW: Zellen in ..txt Datei kopieren
31.05.2005 12:24:05
Sylvio
für das anpassen der Zellen lass doch einfach eine schleife durchlaufen
for i= 1 to 100 und alles was sich um einen Wert erhöht wird i gesetzt
z.B. Cells(i,1) wäre die Spalte A bis zur Zelle 100
und nicht vergessen Dim i as integer so kannst du es Dir induviduell anpassen.
gruß syl
Anzeige
AW: Zellen in ..txt Datei kopieren
31.05.2005 12:54:42
Daniel
Hallo Sylvio,
leider komme ich damit nicht so klar.
Ich möchte, dass es letztlich so aussieht, als würde ich einfach nur copy and paste in das textfile machen. Das Format soll also auch erhalten bleiben.
Ich komme da irgendwie nicht zurecht.
Grüße,
Daniel
AW: Zellen in ..txt Datei kopieren
31.05.2005 13:09:30
Sylvio
Das ist dann nicht so einfach.
grundsätzlich ist das format string was in die textdateigeschrieben wird
wenn du mehrere Zellen reinschreiben willst muss du die strings zeilenweise logisch aufbauen.
z.B.
string(1) = Wert Zelle1 + Tabzeichen als Trennzeichen + Wert Zelle2 etc.
string(2)
und in die Textdatei schreibst du dann
Set ...
for i=1 to 100
writeln string(i)
next i
Gruß Sylvio
Anzeige
Alleine kriege ich das nicht hin
31.05.2005 17:26:27
Daniel
Hallo,
hmmm. Leider kann ich mir da selbst nicht weiterhelfen.
Könnte mir da jemand zur Hilfe kommen?
Grüße,
Daniel
AW: Alleine kriege ich das nicht hin
31.05.2005 21:17:09
MichaV
Hi,
bist Du DER Daniel?
Warum speicherst Du die Datei nicht als Tab- getrennte TXT- Datei? Das kannst Du auch als Makro aufzeichen. Das "Format", wenn Du dabei die Anordnung der Werte untereinander meinst, bleibt dabei erhalten.
Anzeige
AW: Alleine kriege ich das nicht hin
01.06.2005 08:33:28
Daniel
Hallo Micha!
Ja, das bin ich.
Der Grund ist, dass ich in der Datei mehrere DatenBLÖCKE habe, die ich in die RTD.txt speichern möchte; das Ganze aber nicht gleichzeitig sondern nur nach Aufruf des Makros.
Da das wieder zig Datenblöcke sind, möchte ich das gerne per Makro machen.
Beispielhaft habe ich hier nur die Zellen C1 bis E7 genannt. Den Rest sollte ich ja dann auch alleine hinkriegen.
Grüße,
Daniel
Anzeige
AW: Alleine kriege ich das nicht hin
01.06.2005 14:37:12
Hajo_Zi
Hallo Daniel,
da Du einen neuen Beitrag aufgemacht hast nehme ich mal diesen aus offen raus.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
AW: Zellen in ..txt Datei kopieren
31.05.2005 12:27:41
Sylvio
für das überschreiben einer datei einfach
das für set nehmen
Set tf = fs.createTextFile(ort, True)
Gruß Syl

Forumthreads zu verwandten Themen

Word-Text auf xls-Zellen verteilen
Florian

Guten Morgen zusammen,
eine Frage: wie kann ich Word-Zeilen auf Excel-Zeilen (einzelne Zellen verteilen)?
Im Word-File habe ich z.B. den Text
Zeile1
Zeile2
Zeile3
untereinanderstehen, jetzt soll "Zeile1" in Zelle A1, "Zeile2" in Zelle B1 usw. stehen. Bsp hängt an.
Da...
18.08.2008 07:29:00
Thread-ID: 1002498
3 Beiträge
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Textbox auf UF dann Zellen füllen
Walter

Hall Fachfrauen und Männer,
habe ein kleines Problem bzw. Frage:
Ich habe auf einer UF eine Textbox1 wenn ich einen Wert eingebe z.b. 15,00
dann wird der Wert in meine Tabelle C10 eingesetzt.
Nun möchte ich das der Wert von C10 die Zellen mit dem gleichen Wert bis
C20 ausfül...
30.09.2008 10:27:04
Thread-ID: 1013282
11 Beiträge
mehrere Makros in ein Makro kopieren
jenny

Hey, wie kann ich mehrere Makros in ein Makro kopieren?
Angenommen ich hab Makro 01 und 02 und will die in ein Makro kopieren, dass Update heisst. Funktioniert das:
Sub Update Sub01 End Sub
Sub02
..
End Sub
End Sub
Also kann ich einfach bei editieren das ganze...
01.10.2008 19:00:57
Thread-ID: 1013736
2 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Zellen von einer in die andere Tabelle kopieren
einer

Guten Morgen!
Ich habe 2 Tabellen. Eine Quelltabelle und eine ZielTabelle. Ich möchte nun die Daten aus der Quelldatei in die Zieldatei einfügen (aber Werte ohn Formatierung einfügen d.h. PasteSpecial). Irgendwie will das nicht gehen. :(
Dim wks As Excel.Worksheet
Dim Quell As Excel...
16.10.2008 10:53:15
Thread-ID: 1016793
5 Beiträge
Zelleninhalt auf Textteil überprüfen...
Jessi

Hallo zusammen,
ich bin gerade dabei meine Liste mit SVerweisen zu füllen und hänge an einem Problem:
Eine Ausgabe (über SVerweis) liefert einen Wert "String" XY_Text, ALTERN_Text oder MUSTER_Text in einer Zelle
jetzt möchte ich in einer anderen Zelle sagen:
Wenn Zelleninhalt mi...
07.11.2008 12:55:13
Thread-ID: 1022638
2 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Zellen auswählen und in andere Blatt kopieren
Maja

Hallo,
ich suche Hilfe für folgendes Problem:
Ich habe in einem Tabellenblatt über 5 Spalten Inhalte stehen. Nun sollen die in Spalte E stehenden Zahlen von oben nach unten laufend nach Werten größer "0" durchsucht werden.
Werden solche Werte gefunden, sollen die zu jeweils dieser...
10.12.2008 18:05:00
Thread-ID: 1031768
5 Beiträge
Zelleninhalt in Bereich kopieren
Ludger

Hallo zusammen,
im Seet 1 habe ichin Zelle A1 einen Wert stehen. Diesen möchte ich nach Sheet 2 Zelle C3 bringen.
Problem: Im Sheet 2 ist die Zelle C3 in einem vordef. Bereich C3:D10
Wie bekomme ich das in VBA gelöst ?
Danke
Ludger
23.02.2009 17:25:39
Thread-ID: 1053201
4 Beiträge
Anzeige
mehrere Blätter in andere Mappe kopieren
Jakob

Hallo,
mit den unten angehängten Code kopiere ich das aktuelle Blatt in eine seperate Mappe. Den Code würde ich jetzt gerne so erweitern, daß mehrere Blätter auf einmal in die gleiche Mappe kopiert werden.
Wie müßte der Code aussehen der das bewerkstellig?
Ich Danke Euch schon mal.<...
27.02.2009 14:29:50
Thread-ID: 1054785
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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