Zeilen verschieben und löschen
05.03.2015 09:47:15
Michael
ich suche eine Lösung für folgende Aufgabe:
Es sollen jene Zeilen des Tabellenblatts "Festangestellte" ins Blatt "Austritte" verschoben werden, die in Spalte H (Austrittsdatum) einen Eintrag haben, der älter als Heute ist (die meisten Zellen in H sind leer, da ohne Austrittsdatum). Die Zeile in "Festangestellte" soll anschliessend komplett gelöscht werden und die untenstehenden Zeilen entsprechend aufschliessen.
Folgenden Code habe ich bereits für die Namenseinträge erstellt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6:AF85")) Is Nothing Then
Range("A6:AF85").Sort Key1:=Range("C7"), _
Order1:=xlAscending, _
Header:=xlYes
End If
End Sub
'analog dem obenstehenden Suche nach Austritten ab Zeile 7'
Ideal fände ich einen Button zur Ausführung im Blatt "Festangestellte", damit ich bei Bedarf entsprechende Austritte ins Blatt "Austritte" verschieben kann.
Vielen Dank für eurer Mitdenken