18.01.2017, 12:57
Hallo,
ich suche den VBA Code durch den eine Zeile aus dem Tabellenblatt "in progress" in die Tabellenblätter
"on hold" und "History" verschoben wird sobald ich im Tabellenblatt "in progress" in der Spalte "PRIO"
die Zahlen 0, 100 oder 4 eingebe. Hierbei verweisen die Zahlen 0 und 100 auf
"History" und die Zahl 4 für "on hold".
Diesen Code habe ich bislang:
Ich hoffe jemand weiß Rat. Anbei noch die Datei.
Grüße
ich suche den VBA Code durch den eine Zeile aus dem Tabellenblatt "in progress" in die Tabellenblätter
"on hold" und "History" verschoben wird sobald ich im Tabellenblatt "in progress" in der Spalte "PRIO"
die Zahlen 0, 100 oder 4 eingebe. Hierbei verweisen die Zahlen 0 und 100 auf
"History" und die Zahl 4 für "on hold".
Diesen Code habe ich bislang:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim lRow, zRow As Long
lRow = Sheets("in progress").Range("A65536").End(xlUp).Row
zRow = Sheets("on hold").Range("A65536").End(xlUp).Row + 1
Set Bereich = Range("Q11:Q" & lRow)
If Not Intersect(Target, Bereich) Is Nothing Then
If IsDate(4) = True And Target.Value <> "" Then
With Range("A" & Target.Row & ":AF" & Target.Row) .Copy
Sheets("on hold").Paste Destination:=Sheets("on hold").Range("A" & zRow)
Application.EnableEvents = False
.Delete shift:=xlShiftUp
End With
End If
End If
Application.EnableEvents = True
End Sub
Grüße