habe grade ein kleines Problem, bei welchem ich Eure Hilfe brauche.
In einem früherern Beitrag von mir (~23.04.19) suchte ich nach einer Formel, welche, wenn sich in 2 untereinander befindenen Zellen 100% eingetragen wird, sollen die entsprechenden ganzen 2 Zeilen ausgeschnitten und auf einen anderes Tabellenblatt verschoben werden soll.
Dabei erhielt ich von cysu11 folgende Lösung:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngAuftrag As Range
Set rngAuftrag = Range("H:H")
If Target.Column = rngAuftrag.Column Then
If Target.Value = 100 And Target.Offset(0, -1).Text = "Abt. 1" And Target.Offset(1, 0). _
Value = 100 Then
With Worksheets("Fertigung_abgeschl.")
Rows(Target.Row & ":" & Target.Offset(1, 0).Row).EntireRow.Copy .Cells(.Rows.Count, 1). _
End(xlUp).Offset(1).EntireRow
Rows(Target.Row & ":" & Target.Offset(1, 0).Row).Delete
End With
ElseIf Target.Value = 100 And Target.Offset(0, -1).Value = "Abt. 2" And Target.Offset(- _
1, 0).Value = 100 Then
With Worksheets("Fertigung_abgeschl.")
Rows(Target.Offset(-1, 0).Row & ":" & Target.Row).EntireRow.Copy .Cells(.Rows.Count, _
1).End(xlUp).Offset(1).EntireRow
Rows(Target.Offset(-1, 0).Row & ":" & Target.Row).EntireRow.Delete
End With
End If
End If
End Sub
Soweit funktioniert diese Lösung auch genauso, wie ich sie haben wollte, allerdings soll es jetzt so sein, dass nur noch die Spalten A bis G auf das neue Tabellenblatt übertragen werden sollen. Dennoch soll am Ende beide Zeilen aus der Tabelle1 entfernt sein.Hoffe, dass mir dabei jemand helfen kann.
MfG,
Ben