Nur Zeilen mit Datum des Vortages kopieren ...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo RAS,
ja, im Prinzip dreht sich alles um Strom. Deshalb die 96 1/4h-Werte von Strom eines Tages.
Die Datei, worum es sich dreht sind aber die entsprechenden Außentemperatur-Werte zur Gegenüberstellung.
In der Temperatur-Textdatei werden automatisch jeden Tag 0.00 Uhr die 96 Werte des vergangenen Tages angehangen. Und nur diese letzten 96 Werte des vergangenen Tages muß ich in meine Excel-Arbeitsmappe kopieren. Die Werte der davorliegenden Tage und Wochen interessieren mich dabei nicht. Das Makro zum Importieren und Weiterverarbeiten ist im Prinzip komlett fertig. Früher hatte ich aber in der Datei nur die 96 Werte des vergangenen Tages, jetzt werden aber die Daten in der Textdatei einfach nur drangehangen. Ich muß also nur die 96 Werte des vergangenen Tages zum Kopieren auswählen.
Hier die für den Import verantwortliche Stelle des Makros:
Application.DisplayAlerts = False

ChDir "C:\Programme\Wetterstation"
Workbooks.OpenText Filename:="C:\Programme\Wetterstation\Täglich.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), _
Array(10, 1), Array(11, 1), Array(12, 1))

Range("L3:L98").Select
Selection.Copy
Windows("Netzlastdaten.xls").Activate
Sheets("Aussentemperatur").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Täglich.txt").Activate
Range("K3:K98").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Netzlastdaten.xls").Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Täglich.txt").Activate
Range("D3:D98").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Netzlastdaten.xls").Activate
Range("C2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Täglich.txt").Activate
Range("E3:E98").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Netzlastdaten.xls").Activate
Range("D2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Täglich.txt").Activate
Range("J3:J98").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Netzlastdaten.xls").Activate
Range("E2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Windows("Täglich.txt").Activate
ActiveWindow.Close

Hier sieht man, daß ich verschiedene Spalten des vergangenen Tages rauskopiere und die Texdatei am Schluß schließe.
Vielen Dank schon mal im voraus für die Hilfe !!!
Torsten

Beliebteste Forumthreads (12 Monate)

Nur Zeilen mit Datum des Vortages kopieren ...

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nur Zeilen mit Datum des Vortages kopieren ...

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread