Supportnet / Forum / Tabellenkalkulation
Problem mit Excel-Makro unter Office 97
Frage
Hallo zusammen,
mit folgendem Code funktioniert es komplette Zeilen von einer Tabelle in einen anderen Karteireiter zu verschieben. (Office XP)
Allerdings funktioniert das unten stehende VB-Makro nicht unter Excel 97. Hat jemand eine Idee, wie ich es auch unter Excel 97 zum laufen bringen kann?
Sobald der Status einer Aufgabe (in der Aufgabenverwaltung) auf "erledigt" gesetzt wird, soll die komplette Zeile in ein anderes Blatt verschoben werden.
Hier der VB-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("J1:J1000"))
If Target Is Nothing Then Exit Sub
If Target = "erledigt" Then
Zeile = Target.Row
Range(Cells(Zeile, 3), Cells(Zeile, 10)).Copy _
Destination:=Sheets("erledigte Projekte").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub