Zeile in andere Tabelle auto. übertragen
16.05.2020 08:49:00
Benne
ich habe folgende Herausforderung. In meiner Tabelle wird bei Auswahl in der zweiten Spalte durch den Buchstaben e die gesamte Zeile in Tabelle 2 übertragen (also auch aus der ersten Tabelle gelöscht). Das funktioniert super. Hier der Code dazu:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target = "e" Then
Rows(Target.Row).Copy
Sheets("Tabelle2").Rows("2:2").Insert Shift:=xlDown
Application.EnableEvents = False
Rows(Target.Row).Delete
Application.EnableEvents = True
End If
End Sub
Allerdings bekomme ich eine weitere Aufgabe nicht gelöst. Es soll auch möglich sein, dass in der Tabelle 2 die Spalte über diesen Weg wieder in die erste Tabelle zurück übertragen wird. Das soll in Tabelle 2 durch Auswahl in der zweiten Spalte mit dem Buchstaben i geschehen.
Meine Idee war, dass ich den Code aus Tabelle 1 einfach in Tabelle zwei Kopiere und dementsprechend umschreibe. Aber dann kommt eine Laufzeitfehler 9 Meldung. Also funktioniert nicht.
Hier der Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target = "i" Then
Rows(Target.Row).Copy
Sheets("Tabelle1").Rows("2:2").Insert Shift:=xlDown
Application.EnableEvents = False
Rows(Target.Row).Delete
Application.EnableEvents = True
End If
End Sub
Ich würde mich sehr freuen, wenn mir jemand von euch da helfen könnte.
Vielen Dank schon mal
Gruß Bene