Hilfe bei Formel anpassen
06.05.2019 07:37:02
Ben
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
Hoffe, dass mir dabei jemand helfen kann.
MfG,
Ben
Anzeige