Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Row < 4 Then Exit Sub
If Target.Column < 14 Or Target.Column > 14 Then Exit Sub
Select Case Target.Column
Case 14
If Target.Offset(0, 0) = "" Then Exit Sub
End Select
Dim lgLetzte As Long
lgLetzte = Worksheets("Archiv (ab 2017)").[a65536].End(xlUp).Row + 1
Target.EntireRow.Copy Destination:=Worksheets("Archiv (ab 2017)").Cells(lgLetzte, 1)
Target.EntireRow.Delete shift:=xlUp
End Sub
Dieses habe ich aus einem anderen Forum und habe es entsprechend angepasst. Zur Erläuterung:
Wenn in Spalte 14 etwas eingetragen wird, wird die ganze Zeile in das Tabellenblatt 2 (Archiv (ab2017)) verschoben.
Also sie verschwindet komplett aus dem 1. Tabellenblatt
Soweit so gut. Jetzt habe ich folgende Probleme:
1. Ich möchte Die Zeile wahlweise in Tabellenblatt 2 (Archiv (ab2017)) oder Tabellenblatt 3 (Grundsätze) verschieben.
Das kann ich ja über 2 Spalten regeln, also Spalte 14 für Archiv und Spalte 15 für Grundsätze.
Wenn dann etwas in der jeweiligen Zelle für Spalte 14 oder 15 steht, soll die ganze Zeile in das entsprechende
Tabellenblatt verschoben werden.
2. In Spalte 14 & 15 soll noch eine WENN-Formel rein. Da diese Zeile nur bei bestimmten Werten (z.B. 100%)
verschoben werden soll.
Ich hoffe mir kann dort jemand weiterhelfen. Ich stehe nämlich ganz schön auf dem Schlauch zur Zeit :-)
Grüße