Hallo Zusammen,

ich hätte eine eilige Aufgabe wo ich mit dem makro aufzeichner leider nicht mehr vorankomme und bitte um Hilfe, da ich bisher nix mit Vba zu tun hatte.


Ich hab eine Excel Liste mit Aufgaben vorgegeben. In der Spalte E dieser Liste wird gekennzeichnet welche aufgaben erledigt( =x ), unerledigt( =u ) oder in Bearbeitung( =b ) sind.
 Nun möchte ich die offenen Aufgaben (also alles außer x) in die Tabelle2 kopieren, abspeichern und am besten den Tabellenblattnamen mit dem letzten Datum und Uhrzeit des Speichervorgangs benennen.....und das alles mit einem Knopf auf einen Button/Schaltfläche. 

Ich habs mit Makro einigermaßen hin gekriegt. Bloß muss ich immer bevor ich den makro ausführe in die erste Zelle der Liste gehen und in die erste Zelle von Tabelle2, da er mir sonst es dahin kopiert wo ich als letztes hingeklickt habe bzw. nur das kopiert was ich in der Liste auswähle. 

Ich hätte gerne, dass ich vor ausführen des Makro nirgendswo hinklicken muss und dass er mir alles nur in die Spalten A - F aufgelistet kopiert. Gerne hätte ich auch dass mit dem Tabellenblattnamen oder dass der letzter Status( Letzte Uhrzeit und Datum beim Abspeichern) in einer Zelle neben der Liste in Tabelle2 erscheint.     


Hier mein Versuch und Danke im Voraus



Sub Offene_Themen_nach_Tabelle2_kopieren()



 ActiveSheet.Range ("$E$1:$E$900").AutoFilter Field:=1, Criteria1:="=b", _
       Operator:=x1Or, Criteria:="=u"
 ActiveCell.Range ("$A$1:$F$900").Select
 Selection.Copy
 Sheets("Tabelle2").Select
 ActiveCell.Range ("$A$1:$F$900").Select
 ActiveSheet.Paste
 ActiveCell.Select
 Sheets("Tabelle1").Select
 ActiveSheet.Range ("$E$1:$E$900").AutoFilter Field:=1
 Application.CutCopyMode = False
 ActiveWindow.SmallScroll Down:=-3
 ActiveCell.Range ("A1").Select
 ActiveWorkbook.Save
 Sheets("Tabelle1").Select

End Sub


Bin für jede Hilfe dankbar