Daten mit Makro übertragen
27.06.2007 00:04:53
Hans-Joachim
Ich habe mir ein Makro erstellt, mit dem ich Daten aus einer aktuellen Tabelle in eine Archivtabelle übertrage.
So werden z.B. Daten aus der Tabelle "Eingabe18.xls" in die Tabelle "Archiv.xls" übertragen. Funktioniert gut.
Dabei habe ich das Problem, dass ich jedoch für die nächste Tabelle im Makro z.B. "Eingabe18.xls" von Hand in "Eingabe19.xls" ändern muss.
Problem ist der Rücksprung auf die jeweils aktive Tabelle.
Sub Daten_uebertragen()
Application.ScreenUpdating = False
Range("B3:J11").Select
Selection.Copy
Windows("Archiv.xls").Activate
Sheets("Archiv (7)").Select
Range("D4").Select
For Each Cell In Range("D4:D2081")
If ActiveCell [F1] Then
ActiveCell(Selection.Rows.Count + 1, 1).Select
End If
Next
For Each Cell In Range("D4:D2081")
If ActiveCell "" Then
ActiveCell(Selection.Count, 1 + 1).Select
End If
Next
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.FormatConditions.Delete
Windows("Eingabe18.xls").Activate '-Dies ändere ich immer von Hand in diesem Makro
Next
Application.ScreenUpdating = True
End Sub
Geht das nicht einfacher, ohne dass ich im Makro von Hand ("Eingabe18.xls") in ("Eingabe19.xls") ändern muss?
Wäre toll, wenn jemand einen Lösungsvorschlag hätte. Vielen Dank.
Viele Grüße
Hans
Anzeige