|
Hallo,
Ich habe breits eine Funktionierende Tabelle, welche ich jetzt aber gerne erweitern würde: (Excel2013)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile As Long
Set Target = Intersect(Target, Range("E1:E10000"))
If Target Is Nothing Then Exit Sub
If Target = "Theorie bestanden" Then
Zeile = Target.Row
Range(Cells(Zeile, 1), Cells(Zeile, 10000)).Copy _
Destination:=Sheets("Warteliste").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub
Das Funktioniert soweit auch alles gut.
Nur würde ich gerne die Range nicht nur auf die Spalte "E" beschränken sonder gerne auf die ganze Zeile, sodass man den "If Target" entsprechend erweitern kann mit "auf die Warteliste" oder sogar mit einer anderen Vorraussetzung. Stand jetzt funktioniert das nur mit einem "Kommando =Theorie bestanden"
Gibt es das irgendwie andere möglichkeiten das ganze zu erweitern?
Dafür kenne ich mich leider zu wenig mit Excel aus.
Vielen Dank!
|