Excel-Archiv zur Nachverfolung der Historie

Question

Seit einigen Jahren arbeite ich mit einer sehr guten Excel-Belgungsplanung.
Diese Liste ist so aufgebaut, dass in der obersten Zeile immer der grade laufende Artikel steht und darunter, mit voraussichltichem Start- bzw. Endzeitpunkt, die Folgeartikel.
Wenn nun der oberste Artikel fertiggestellt wurde, wird diese Zeile gelöscht/entfernt und alle unteren Positionen rücken um eins nach oben.... Problem dabei - man hat keine Daten über die Vergangenheit man kann also keine nachträglich Betrachtung führen.

... seit einger Zeit stellt sich mir nun die Frage, ob es nicht evtl. möglich ist, die oberste Zeile zu archivieren!
Wäre es wohl machbar, dass man z. B. durch die Eingabe eines "X" in eine vorher definierte Spalte, diese betroffene Zeile komplett in eine andere Mappe (die man z. B. dann "Archiv" nennt) verschoben wird!???

Danke vorab.

Answer 1

Hallo,

ist wohl per Makro möglich. Eine Andere Lösung wäre mit "Daten""Filter"und "Autofilter" und dann alle Zeilen mit x ausblenden

Gruß

Helmut

Answer 2

Die Nummer mit dem Filter hilft nix, weil ja dann mein Formel mit Start- bzw. Endterminen nicht mehr klappt! Immer die oberste Zeit ist die Startzeile damit die Formel klappt!

Answer 3

Hallo,

da wir deine Tabelle nicht kennen, ist hier keine weitere Hilfe möglich

Gruß

Helmut

Answer 4

hi all ^^

ein beispiel

gruss nighty

einzufuegen
alt+f11/projektexplorer/DeineTabelle

anzupassen waere

die 3 fuer die spalte der x eingabe

worksheetnamen
Tabelle1 wie Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 3 And Target.Row = 1 And UCase(Worksheets("Tabelle1").Cells(Target.Row, Target.Column)) = "X" Then
Worksheets("Tabelle1").Rows(1).Copy
Worksheets("Tabelle2").Range("A" & Worksheets("Tabelle2").Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone
Worksheets("Tabelle1").Rows(1).Delete Shift:=xlUp
End If
Application.CutCopyMode = False
Application.EnableEvents = True
End Sub

Answer 5

hi all ^^

ups

End Sub

bei der letzten zeile :-))

gruss nighty