Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
144to148
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
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel-Text-Datei Macro

Excel-Text-Datei Macro
13.08.2002 11:46:45
Mike R.
Hallo,

ich habe ein Makro entworfen das mir eine Textverkettung in eine Txt-Datei speichert. Jetzt wollte ich dieser Textdatei gerne unten immer eine Uhrzeit mit einfügen. Leider wirft er mir immer den Wert nicht die uhrzeit. Also in der Textdatei steht dann 0,7666656565 anstatt 11:00 oder so... Dann möchte ich noch wissen wie ich dieses Makro alle 1Min. automatisch laufen lasse..

Danke für jede Hilfe

Ps.: Kann ich auch automatisieren das jeden Tag eine neue Txt-Datei verwendet wird?

Gruß und vielen Dank
Mike R.

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Excel-Text-Datei Macro
13.08.2002 13:04:27
Charlie
Hallo, Mike!

Du kannst Deine 3 Probleme wie folgt lösen:

Viel Erfolg,
Charlie

Re: Excel-Text-Datei Macro
13.08.2002 13:24:27
HarryB
Hallo Charlie,

warum steht denn nach dem

Application.OnTime NextTime, "Export"

noch

Call Export

Kannst Du mir das kurz erklären?

Vielen Dank

Re: Excel-Text-Datei Macro
13.08.2002 14:00:08
Charlie
Hallo, Harry!

Sorry, da gibt es nichts zu erklären. Das "Call Export" ist ein Rest aus einem anderen Beispiel, den ich hier leider zu löschen vergessen habe.

Sinn macht das natürlich keinen, weil ja das Makro "Export" durch die OnTime-Funktion gesteuert aufgerufen werden soll.

Gruß,
Charlie

Re: Excel-Text-Datei Macro
13.08.2002 14:36:18
Mike R.
Danke,nur habe ich es auf dem 2.Tabellenblatt und er speichert nun das erste. Beim eintragen der Zeit formatiert er vorher die textdatei, es müsste aber fordlaufend sein... Und es klappt nicht alle 1min., ich muss es selber starten...

Was mache ich falsch?

Danke im Vorraus
Mike R.

Anzeige
Re: Excel-Text-Datei Macro
13.08.2002 14:57:35
Charlie
Hallo, Mike!

In meinem Beispiel ist mir noch ein kleiner Fehler unterlaufen, denn es müsste heißen:
NextTime = Now + TimeValue("00:01:00")
damit die Prozedur tatsächlich im Minutenabstand ausgeführt wird.

Meine Beispielprozedur "Export" sollte Dir auch nur zeigen, wie Du a) jeden Tag eine andere Textdatei erstellen bzw. ansprechen kannst und b) wie Du die Uhrzeit formatieren musst, damit sie in der Textdatei auch tatsächlich als Uhrzeit ausgegeben wird. Die betreffenden Befehlszeilen musst Du in Dein schon bestehendes Makro für den Datenexport einbauen.

Mit der Formulierung "nur habe ich es auf dem 2.Tabellenblatt und er speichert nun das erste" kann ich leider nichts anfangen.

Viel Erfolg,
Charlie

Anzeige
Re: Excel-Text-Datei Macro
13.08.2002 15:09:11
Mike R.
Option Explicit
Sub Export()
Dim spalte As Integer, zeile As Integer
Sheets("Log").Select
Open "C:\Iggy\Iggy.txt" For Append Lock Read Write As #1
For spalte = 1 To 1
For zeile = 1 To 200
Print #1, Cells(zeile, spalte)
Next zeile
Next spalte
Close #1
Dim strFileName As String
strFileName = "Iggy_" & Format(Date, "dd.mm.yyyy") & ".txt"
Open "C:\Iggy\" & strFileName For Output As #1
Print #1, Format(Now, "hh:mm")
Close #1
End Sub
Sub Uhrzeit()
Dim NextTime As Date
NextTime = Now + TimeValue("00:01:00")
Application.OnTime NextTime, "Export"
Call Export
End Sub

Das ist der Code... Er speichert 2 Files jetzt ab, und der loop jede minuten klappt nicht...

Kannst nochmal helfen büdde (c:

Danke vielmals
Gruß
Mike

Anzeige
Re: Excel-Text-Datei Macro
13.08.2002 15:48:00
Mike R.
Option Explicit
Sub Export()
Dim spalte As Integer, zeile As Integer
Dim FileName As String
FileName = "Iggy_" & Format(Date, "dd.mm.yyyy") & ".txt"
Open "C:\Iggy\" & FileName For Append Lock Read Write As #1
For spalte = 27 To 27
For zeile = 1 To 315
Print #1, Cells(zeile, spalte)
Next zeile
Next spalte
Close #1
Dim strFileName As String
strFileName = "Iggy_" & Format(Date, "dd.mm.yyyy") & ".txt"
Open "C:\Iggy\" & strFileName For Append Lock Read Write As #1
Print #1, Format(Now, "hh:mm")
Close #1
End Sub
Sub Uhrzeit()
Dim NextTime As Date
NextTime = Now + TimeValue("00:01:00")
Application.OnTime NextTime, "Export"
Call Export
End Sub


Hier ist mein Code... Alle klappt super, nur das er nicht automatisch jede Minute Speichert, sonder nur wenn ich es manuell starte.. Was ist denn falsch?

Danke im Vorraus
Mike R.

Anzeige
Re: Excel-Text-Datei Macro
13.08.2002 15:48:02
Charlie
Hallo, Mike!

Harry hat mich mit seiner Frage etwas verwirrt, denn der Aufruf "Call Export" hatte schon seine Berechtigung.

Je nachdem, ob nur eine Datei "Iggy.txt" oder täglich eine andere Datei ("Iggy_"+Dateiname) verwendet werden soll, musst Du die erste oder zweite Version der Prozedur Export verwenden. Die Codes musst Du wie ich es beschrieben habe, in dei verschiedenen Module einfügen:

Die 1. For-Next-Schleife habe ich entfernt, weil die unnötig ist. Diese Schleife beschränkte die Ausführung der Prozedur doch nur auf die Spalte 1. Daher ist es sinnvoller, wenn Du in der Cells-Eigenschaft direkt den Spaltenbezug verwendest. Es sei denn, dass Du die Prozedur über mehrere Spalten laufen lassen möchstest.

Viel Erfolg,
Charlie

Anzeige
Re: Excel-Text-Datei Macro
13.08.2002 15:52:33
Charlie
Hallo, Mike!

Ich habe beim Testen das Speicherintervall auf 10 Sekunden gesetzt und im geposteten Code nicht korrigiert. Die Zeile
NextTime = Now + TimeValue("00:00:10") muss richtig
NextTime = Now + TimeValue("00:01:00") lauten.

Gruß,
Charlie

42 Forumthreads zu ähnlichen Themen

Textdatei erstellen über Makro
cooler_kern

Hallo,
ich müsste mit einem Makro einfach die Spalte "A" in eine Textdatei speichern.
Kann mir jemand helfen?
Ich kenne mich leider mit Makros nicht so gut aus.
Danke......
24.03.2011 21:22:53
Thread-ID: 1207514
11 Beiträge
Anzeige
TXT Datei erstellen
chris58

Hallo !
Ich habe eine Frage bezüglich der Erstellung von Txt.Dateien. Der u.a Code, erzeugt mir für alle Spalten eines Excel Dokumentes eine Txt.Datei. Wie kann ich es erreichen, das in dieser Txt.Datei als Inhalt die Spalten B,C und D aufscheinen und als Dateiname das was in der Spalte A s...
05.08.2011 16:35:23
Thread-ID: 1225058
15 Beiträge
Einfache Textdatei erstellen
Tim

Hallo,
ich habe eine Tabelle, bei der sich auf Blatt5 immer nur ein Wert ändert, dieser jedoch sehr oft (Eingabe erfolgt in Zelle G7.
Könnt Ihr mir sagen, wie ich hierzu eine Textdatei erstelle, in der alle Eingaben in G7 auf diesem Blatt protokoliert (könnte z.B. bei Workbook_Close g...
09.04.2012 15:18:07
Thread-ID: 1258474
19 Beiträge
Anzeige
formatierte Textdatei aus Exel erstellen...
Rainer

Hallo zusammen,ich brauche eine unter Exel vorhandenen Datenbank als Textfile.
Soweit noch okay..., aber wie bekomme ich Exel dazu die unterschiedlich langen Zellinhalte auch im Textformat so darzustellen? Leider verwende Exel immer nur eine feste Spatenbreite dann im Textformat, sodas die S...
08.07.2002 15:11:31
Thread-ID: 134739
6 Beiträge
Aus Excel 2010 per Makro neue TXT-Datei erstellen
Florian

Hallo zusammen,
ich habe grad ein kleines Problem. Ich möchte gerne eine Excel-Dateie erstellen. Mit dieser Excel-Dateie möchte ich für ein Forum eine Liste erstellen. Hier können die Teilnehmer verschiedene Daten eintragen.
Mit einem Butten soll die Liste sortiert werden und anschließe...
10.03.2014 11:39:19
Thread-ID: 1352859
3 Beiträge
TXT-Datei erstellen
Pepi

Hallo zusammen
Ich will (muss) wieder mal eine txt Datei erstellen. Vor einiger Zeit bekam ich über dieses Forum den Code in der Beispielmappe. (Durch "Datei speichern unter" als *.txt hat es immer wieder Gänsefüsschen im Text - deshalb diese Art von Code.)
https://www.herber.de/bbs/use...
17.04.2014 12:09:49
Thread-ID: 1357700
5 Beiträge
txt.Datei erstellen
Dirk

Hallo User,ich habe mal eine Frage?
ist es möglich per VBA eine Textdatei zu erstellen,
wobei der Name für die Textdatei aus einer Zelle
kommen soll.
z.B A1 = Test.txt
jetzt soll auf knopfdruck eine Textdatei erstellt werden
die Test.txt heißt.mfg Dirk
23.07.2002 15:00:07
Thread-ID: 139524
3 Beiträge
Aus XLSM pro Gruppe neue txt-Dateien erstellen
Peter

Hallo,
ich habe eine Datei mit verschiedenen K-Gruppe (Spalte A) und möchte nun pro K-Gruppe eine neue txt-Datei erstellen und auch speichern. In die neuen txt-Dateien sollen dann die Spalten A bis C übernommen werden. Also für K 001 die Daten aus A2 bis C58 usw.. Habe die Gruppen bisher ei...
07.12.2015 15:16:06
Thread-ID: 1462797
4 Beiträge

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
10
2
14
18
9
5
2
4
2
3
1
8
2
12
2
4
1
2
1
2
4
5
7
2
1