ich bin seit heute neu im Feld der VBA Programmeirung und benötige Hilfe bei meinem Problem.
Ich habe eine Tabelle erstellt, in welcher über ein Liste verschiedene Makros ausgelöst werden sollen ("Ja" und "Nein"). Die Makros nehmen jeweils die Aktive Zeile und schieben sie in eine neue Tabelle.
Das eigentliche Problem ist jetzt, dass ich eine Fehlermeldung bekomme (Laufzeitfehler '424' Objekt erforderlich)
Vielen Dank im Vorraus.
'Hier der Code der ersten Seite:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:D")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Value = "Ja" Then: Makro3
If Target.Value = "Nein" Then: Makro2
End If
End Sub
'Hier die Makros:
Sub Makro2()
'Bereich kopieren
Sheets("Tabelle1").Rows(ActiveCell.Row).Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
Sheets("Tabelle1").Select
ActiveCell.EntireRow.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub
Sub Makro3()
'Bereich kopieren
Sheets("Tabelle1").Rows(ActiveCell.Row).Copy
'einfügen in erste freie Zeile in ausgabe
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
'Kopiermodus beenden
Application.CutCopyMode = False
Sheets("Tabelle1").Select
ActiveCell.EntireRow.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
End Sub