Daten im nichtsichtbaren Tabellenblatt kopieren
23.08.2004 18:33:46
olaf
ich habe eine Datei Gesamtdaten.xls mit zwei Tabellenblätter
1) Tabellenblatt "Aktuell" ist für den Anwender sichtbar
2) Tabellenblatt "Alt" ist ausgeblendet, also für den Anwender nicht sichtbar.
Im Tabellenblatt "Alt" befinden sich eine immer größer werdende Menge an Daten die ich von Zeit zu Zeit in eine neue Datei "Altdaten.xls" übergeben möchte. Samtliche Zeilen (Spalte A bis K)ab Zeile 2 sollen also in die Datei Altdaten.xls kopiert werden.
Ich habe mittels Makrorekorder nachstehenden Code hinbekommen. Jedoch wenn das Tabellenblatt "Alt" wieder ausgeblendet ist, werden beim Starten des Makros immer die Daten aus dem sichtbaren Tabellenblatt "Aktuell" kopiert.
Was muss geändert werden, um die Daten im Nichtsichtbaren Tabellenblatt "Alt" in die neue Datei zu kopieren und auch nur die Zeilen, in denen in Spalte A etwas steht?
Könnt Ihr mir bitte helfen?
Hier der Code
Option Explicit
Sub test()
' test Makro
' Makro am 23.08.2004 von Olaf Erdmann aufgezeichnet
Range("A2:K65536").Select ' kann das selektiert werden auf nur die Zeilen, in denen in Spalte A etwas steht?
Selection.Copy
Workbooks.Open Filename:="C:\Test\Altdaten.xls"
Range("A2").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub
Vielen Dank im Voraus
Gruß Olaf