Office: Zellen in anderes Blatt verschieben

Hallo zusammen,
ich weiß, dass dieses Thema schon mehrfach hier bearbeitet wurde, aber leider haben bisher keine Tipps geholfen oder ich bin zu dusselig.
Ich habe eine Tabelle gemacht mit 4 Tabellenblätter. Das erst heißt "Kündigungen offen", das zweite "Abmahnungen offen", das dritte "Abmahnungen erledigt" und das vierte "Kündigungen erledigt". Wir tragen nun in die Tabellenblätter mit dem Titel "offen" diejenigen Fälle ein, die noch in Bearbeitung sind. Dabei werden pro Fall oftmals mehrere Zeilen benutzt (jeweils umrandet von Rahmenlinien). Wenn ein Fall nun erledigt ist würde ich gerne in Spalte "E", die ich "erledigt" genannt habe, ein "ja" eintragen und dann hätte ich gerne, dass dieser Fall (komplett) in das Tabellenblatt "erledigt" kopiert wird. Jeweils an die nächste freie Stelle.
Ich habe schon ein paar Codes, die für andere geschrieben wurden, ausprobiert und die Bezeichnungen teilweise angepasst. Aber es passiert leider nichts. Kann mir jemand helfen? Das muss doch leichter gehen als ausschneiden und übertragen und dann die ausgeschnittenen Zeilen löschen!
Vielen Dank für die Hilfe.
Gruß Meike

 

Hallo Meike,

eine Hilfe ist ohne Code und Beispiel relativ schwierig...
Woher weiß das Makro, welche Zeilen zum jeweiligen Fall gehören?

Gruß,
Lutz

 

Ok, also ich habe folgenden Code eingegeben:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngErste As Long
If Target.Column = 4 Then
If Target.Count = 1 Then
If UCase(Target) = "JA" Then
With Worksheets("Kündigung erledigt")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Rows(Target.Row).Copy
.Cells(lngErste, 1).PasteSpecial Paste:=xlValues
Rows(Target.Row).Delete shift:=xlUp
End With
End If
End If
End If
End Sub.

Das klappt aber nicht. Er gibt mir dann immer an, dass irgendwelche Makros fehlen. Das verstehe ich aber - ehrlich gesagt - nicht. Würde es helfen, wenn man die Zellen verbindet, damit Excel weiß, was zusammengehört? ich könnte auch in jede Zeile "ja" tippen, das wäre nicht das Problem. Ginge immer noch schneller als immer ausschneiden und dann Zeilen löschen zu müssen.

 

Ach so, noch vergessen: wir vergeben pro Fall eine laufende Nummer. Vielleicht hilft das weiter um Excel zu "sagen" welcher Fall gemeint ist!
Also in der ersten Spalte in der ersten Zeile steht "1". Der nächste Fall, beginnend in Zeile "5" geht weiter mit "2", dann in Zeile 10 vielleicht die "3". Ich hoffe, das ist verständlich.

 

Hallo Meike,

probier mal so:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngErste As Long
Dim Zeile As Integer

If Target.Column = 4 Then
If Target.Count = 1 Then
If UCase(Target) = "JA" Then

Application.EnableEvents = False

Zeile = 0
Do
Zeile = Zeile + 1
Loop Until Cells(Target.Row + Zeile, 1) <> "" Or Target.Row + Zeile > ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

With Worksheets("Kündigung erledigt")
lngErste = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Rows(Target.Row).Resize(Zeile).Copy
.Cells(lngErste, 1).PasteSpecial Paste:=xlValues
Rows(Target.Row).Resize(Zeile).Delete shift:=xlUp
End With

Application.EnableEvents = True

End If
End If
End If
End Sub

Das Makro schaltet zuerst die Events aus, damit es nicht mehrfach durchläuft (auch das Ausschneiden ist eine Änderung, die dieses Makro startet...).
Dann sucht es in Spalte 1 die nächste gefüllte Zelle oder das Tabellenende, kopiert den Bereich ans Ende des Blattes "Kündigung erledigt" und löscht den Bereich.
Am Ende werden die Events wieder eingeschaltet.

Sollte so funktionieren.

Gruß,
Lutz

 

Klappt leider nicht :-(! Muss ich das in dem Tabellenblatt eingeben, aus dem herauskopiert werden soll/muss oder in das, wo eingefügt werden soll? Muss ich irgendwas noch aktivieren?

 

Hallo Meike,
muss in das Modul für das Tabellenblatt AUS dem kopiert werden soll.

Gruß,
Lutz