Feldänderung wird von Makro nicht erkannt
05.06.2016 17:45:40
Makro
ich habe bei einer Spalte eine Formel. Je nach dem, welcher Wert in einem anderen Tabellenblatt vorliegt, wird das Feld mit dem Status "offen" oder "erledigt" angezeigt.
Nun ist die Idee, dass, sobald der Status auf erledigt switcht, die Zeile in ein anderes Tabellenblatt verschoben wird (also tatsächlich vom ursprünglichen Tabellenblatt gelöscht wird).
Ich habe hier bereits mal was geöffnet; kann ich aber nicht mehr wieder eröffnen.
Der Code, der mir genannt wurde, funktioniert nur wenn der Status manuell eingegeben wird und nicht durch die Formel sich ändert. Was kann ich tun?
Der folgende Code wurde mir genannt:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loLetzte As Long
Cancel = True
If Cells(Target.Row, 15).Value = "erledigt" Then
loLetzte = Sheets("erledigt wä").Cells(Rows.Count, 1).End(xlUp).Row + 1
Target.EntireRow.Copy Sheets("erledigt wä").Cells(loLetzte, 1)
Target.EntireRow.Delete
End If
End Sub
Michael
Anzeige