Zeilen bei best. Status in anderes TB schieben

Hallo zusammen.
Ich habe bereits im Forum und auch noch darüber hinaus nach einer Lösung gesucht. Zwar finde ich ganz grob ähnliche Probleme, aber da ich so gut wie keine VBA-Kenntnisse habe, ist nie der passende Code für mich dabei - bzw. nie so, dass ich mich ran trauen würde ihn zu bearbeiten.
Mein Problem:
Tabelle1 besteht aus den drei Spalten Lfd. Nr., Name und Status.
Die Zeilenanzahl ist variabel, also je nachdem, wie viele Einträge es gerade gibt.
Wenn nun in der Spalte C (Status) in einer beliebigen Zeile der Wert Erledigt eingetragen wird, so soll diese gesamte Zeile in Tabelle2 verschoben werden. Also in Tabelle1 soll die Zeile komplett verschwinden, sodass die übrigen Zeilen "aufrücken".
In Tabelle2 sollen die Zeilen aus Tabelle1 einfach immer von oben nach unten, also unter die letzte gefüllte Zeile, eingefügt werden.
Gibt es dafür einen Code?
Viele Grüße und Dankeschön im Voraus,
Simon

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And UCase(Target) = "ERLEDIGT" Then Application.EnableEvents = False Dim Loletzte As Long With Worksheets("Tabelle2") Loletzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1 Rows(Target.Row).Copy .Rows(Loletzte) Rows(Target.Row).Delete End With Application.EnableEvents = True End If End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 And UCase(Target) = "ERLEDIGT" Then Application.EnableEvents = False With Worksheets("Tabelle2") .Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Rows(Target.Row).Copy .Rows(2) Rows(Target.Row).Delete End With Application.EnableEvents = True End If End Sub

Hallo nochmal.
Ich bin ein paar Schritte weiter und nun möchte ich noch gerne einbauen, dass sobald eine Zelle ausgefüllt wurde, diese nicht mehr geändert werden kann. Dazu habe ich diesen Code gebastelt:
Me.Unprotect "Passwort"
If Target "A1:B100" Then Target.Locked = True
Me.Protect "Passwort"
Einzeln funktioniert er, nur wie kann ich diesen im letzten Code
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And UCase(Target) = "ERLEDIGT" Then
Application.EnableEvents = False
With Worksheets("Tabelle2")
.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(Target.Row).Copy .Rows(2)
Rows(Target.Row).Delete
End With
Application.EnableEvents = True
End If
End Sub

integrieren?
Viele Grüße, Simon

Beliebteste Forumthreads (12 Monate)

Zeilen bei best. Status in anderes TB schieben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread