VBA Code
25.03.2020 09:27:18
Helmuth
Ausgangslage:
Ich habe eine Excel Datei mit 3 Tabellen.
Tabelle 1 mit Name a
Tabelle 2 mit Name b
Tabelle 3 mit Name c
Nun möchte ich mit den unten aufgeführten VBA Code Zeilen zwischen den Tabellen verschieben können.
Also wenn in Tabelle a in Spalte 3 der Wert B erfasst wird, soll die Zeile in Tabelle b verschoben werden.
Wenn der Wert C erfasst wird, in die Tabelle C.
Leider funktioniert der Code nicht ganz. Zeilen werden zwar verschoben aber es gibt immer den Laufzeitfehler 424 Objekt erforderlich zurück.
Was mach ich falsch.
Wäre froh dass mir jemand weiterhelfen kann und bedanke mich schon zum Voraus.
PS: Ist mein erster Eintrag und ich bin ein Excel Anfänger darum drückt ein Auge zu.
Danke und Gruss
Helmuth
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer
If Target.Column 3 Then Exit Sub 'Anpassung für Spalte
If IsEmpty(Target) Then Exit Sub
If UCase(Target.Value) = "B" Then
With Worksheets("b") 'Anpassung Tabellenblattname
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(iRow)
Rows(Target.Row).Delete
End With
End If
If Target.Column 3 Then Exit Sub 'Anpassung für Spalte
If IsEmpty(Target) Then Exit Sub
If UCase(Target.Value) = "C" Then
With Worksheets("c") 'Anpassung Tabellenblattname
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(iRow)
Rows(Target.Row).Delete
End With
End If
Application.CutCopyMode = False
End Sub
Anzeige