Hallo liebes VBA Forum,
ich habe folgendes Anliegen und wäre echt dankbar, wenn man mir dabei helfen würde!
Es geht darum, dass ich eine Projektliste habe. In der Spalte E wird der Status des Projektes reingeschrieben. (Spalten A-D sind reserviert für Datum, Name, usw.)
Ich möchte nun, dass die gesamte Zeile mit allen Daten eines Projektes in ein anderes Arbeitsblatt verschoben wird, wenn man etwas in die Spalte E schreibt. Z.B. Status "in Arbeit" -> Verschieben des Projektes in die Arbeitsmappe "In Arbeit".
Ich habe bereits einen funktionierenden Code gefunden, allerdings klappt das zur Zeit nur für ein einziges Wort ("won").
___________________________________________________________________
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Dim lRow, zRow As Long
lRow = Sheets("Tabelle1").Range("A65536").End(xlUp).Row
zRow = Sheets("won").Range("A65536").End(xlUp).Row + 1
Set Bereich = Range("E5:E" & lRow) '*** hier eintragen Schlagwort steht
If Not Intersect(Target, Bereich) Is Nothing Then
'Bedingung für won
If Target.Value = "won" Then
With Range("A" & Target.Row & ":E" & Target.Row) '*** hier eintragen was kopiert werden soll
.Copy
Sheets("won").Paste Destination:=Sheets("won").Range("A" & zRow)
Application.EnableEvents = False
.Delete shift:=xlShiftUp
End With
End If
End If
Application.EnableEvents = True
End Sub
________________________________
Kann mir hier jemand weiterhelfen?
Freundlichste Grüße
Michael P.
|