Excel Frage zu Zeilenverschiebung

Question

Hallo,

ich nutze das unten stehende Script um Zeilen von Seite A auf Seite B zu schieben sobald diese auf Seite A erledigt sind.

Das klappt auch alles super aber ich würde gerne dass auch die exakte Zeilennummer von Seite A auf der Seite B zufinden ist.

kann mir jemand sagen, wie ich dass mache dass wenn ich in Zeile 11 den Eintrag Erledigt seitze dieser auch auf Seite B in Zeile 11 ist und nicht wie aktuell in Zeile 1 auftaucht??


Vielen Dank im Vorraus

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

Answer 1

Hi Hendrik ^^

Vielleicht so ? :-)

Gruss Nighty

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 10 And Cells(Target.Row, Target.Column) = "erledigt" Then
Worksheets(2).Rows("" & Target.Row).Insert Shift:=xlDown 'Ohne einfuegen,diese Zeile löschen
Worksheets(1).Rows("" & Target.Row).Cut Destination:=Worksheets(2).Range("A" & Target.Row)
End If
Application.EnableEvents = True
End Sub

Answer 2

Huhu

vielen dank :)

leider geschieht jetzt gar nixhts mehr wenn ich "erledigt" eintrage

Grüße

Hendrik

Answer 3

Hi Hendrik ^^

Wenn der WorksheetsIndex nicht stimmt,setze die Namen ein!
bei Worksheets(1). statt der 1 "DeinName"
bei Worksheets(2). statt der 2 "DeinName"


oder du hast dich totgelegt, dann starte in einem seperaten Makro,einmalig

Sub EreignisOn()
Application.EnableEvents = True
End Sub

Gruss Nighty

Answer 4

leider auch nicht

kann ich dir mal die Mappeper mail senden währe das möglich

hendrik@strotmann.de.com währe meine mail

währ total klasse

Answer 5

Hi Hendrik ^^

Oberley@t-online.de

Bitte im xls Format,unter SaveAs erreichbar

Gruss Nighty