Hallo allerseits.

Ich komme seit einiger Zeit mit meinem Programm nicht weiter, hab erfolglos gegoogelt, hoffe jetzt hiermit weiter zu kommen.

Etwas Kontext:

Ich habe eine Userform, die Inhalte ihrer Textboxen der Reihe nach von Spalte A bis Spalte H einträgt.

In Spalte G, habe ich ein Dropdown-Menü, in dem ich Drei Dringlichkeiten (In Arbeit, Dringend, Erledigt) aufgelistet habe.

In Spalte C wird per Userform ein Text aus der Textbox eingetragen, auf den sich die Dringlichkeit bezieht.

Jetzt habe ich es bereits hinbekommen, sobald per Dropdown einer Zelle der Spalte G der Wert "Erledigt" zugewiesen wird, dessen gesamte Zeile auszuschneiden und in einem anderen Tabellenblatt ("Archiv") aufzulisten.

Was ich allerdings möchte und woran ich scheitere ist folgendes:

Sobald der Zelle in Spalte G der Wert "Dringend" oder " In Arbeit" mittels Dropdown zugewiesen wird, in der selben Zeile nur den Inhalt von Spalte C kopieren, in ein anderes Tabellenblatt ("Dringend") oder ("In Arbeit") in Spalte A eintragen, die Schriftgröße vergrößern, die Spalten A bis H zusammentragen, und darunter eine leere Zeile Platz lassen.

Ab da hab ich dann einen Button, der eine neue Userform aufruft, deren Textfeld dessen Inhalt untereinander in Spalte A auflistet.

Was ich dazu allerdings nicht verstehe ist, wie man der Userform sagen kann, dass sie den Inhalt der Textbox immer unterhalb der letzten ausgefüllten Zeile (+Leerzeile) auflisten soll.

Meine Vermutung währe hier eventuell

Offset (2, 0) = Me."Textboxhalt"

Spätestens jetzt müsste es aufgefallen sein, das ganze soll mal eine Art Aufgabenliste mit Teilaufgaben werden.

Was ich später noch vor habe wird wahrschein sein, auch wieder per VBA, die Inhalte dann auszuschneiden und in ein wiederum anderes Tabellenblatt ("Dringend_Archiv") auszukotzen. Vielleicht hat da wer jetzt schon praktische Tipps, ist aber aktuell nicht sonderlich wichtig.

Mir geht es darum  erstmal überhaupt die Aufgabenliste hin zu bekommen, ich bin da für jede Hilfe dankbar. Anbei mein bisheriger Code dazu.

'Archivsystem wenn "Erledigt" in Spalte G ; Funktioniert" 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 7 Then Exit Sub
If Target.Value = "Erledigt" Then
allja:
lr2 = Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy
Sheets("Archiv").Rows(lr2).PasteSpecial Paste:=xlValues
Rows(Target.Row).Delete
End If
Set Target = Columns(7).Find("Erledigt")
If Not Target Is Nothing Then GoTo allja
End Sub

' Versuch 6, Filtersystem ; Funktioniert nicht  '

Private Sub Worksheet_Sort(ByVal Target As Range)
If Target.Column <> 7 Then Exit Sub
If Target.Value = "Dringend" Then
allesja:
Set Target = Columns(7).Find("Dringend")
Call letzte_Zeile

If Not Target Is Nothing Then GoTo allesja
End Sub


Sub letzte_Zeile()

Dim Ende As Long
With Sheets("Tabelle1")
Ende = .Cells(Rows.Count, 3).End(xlUp).Row
End With

Cells.Copy Destination:=Sheets("Dringend").Range("a65536").End
    .FontSize ("24")
    
        
End Sub

MFG