Ich versuche eine ToDo-Liste zu erstellen. Im ersten Arbeitsblatt "Übersicht" sind alle nicht begonnenen ToDo's aufgelistet. Durch doppelklick auf den Bearbeiter eines ToDo's soll die gesamte Zeile in das Bearbeiter-Arbeitsblatt verschoben werden. Dies geschieht mit folgender Funktion einwandfrei:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngTarget As Range, wksTarget As Worksheet
If Target.Column = 10 Then
Select Case Target.Value
Case "B", "C", "D"
Set wksTarget = Worksheets(Target.Value)
End Select
If Not wksTarget Is Nothing Then
Cancel = True
With wksTarget
Set rngTarget = .Cells(.Rows.Count, 2).End(xlUp).Offset(1, -1)
Target.EntireRow.Copy rngTarget
End With
Target.EntireRow.Delete
End If
End If
End Sub
Leider wird die Tabelle in dem Zielarbeitsblatt nicht um die Zeile erweitert. Anbei ist ein Bild vom aktuellen Stand und vom gewünschten Ergebnis nach dem Doppelklickmakro.
Kann mir da jemand helfen?
aktueller Stand:
gewünschtes Ergebnis:
Beispieldatei:
https://www.herber.de/bbs/user/162371.xlsm