Wieso geht das nicht ?
14.11.2012 21:45:40
Dennis
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Worksheets("Eingang")
.Rows(Target.Row).Copy _
Worksheets("Bestand").Rows(Worksheets("Bestand").Cells(Rows.Count, 1).End(xlUp).Row + 1)
.Rows(Target.Row).Delete Shift:=xlUp
End With
End Sub
Hallo,
obiges Makro funktioniert, unteres nicht. Kann mir jemand sagen was ich falsch mache.? Ich möchte kein Ereignis haben sondern auf einen Knopf drücken um die ausgewählte Zeile in das andere Tabellenblatt zu kopieren. Leider Kommt dann immer Fehler 424 Objekt erforderlich
Sub Eingang_buchen()
With Worksheets("Eingang")
.Rows(Target.Row).Copy _
Worksheets("Bestand").Rows(Worksheets("Bestand").Cells(Rows.Count, 1).End(xlUp).Row + 1)
.Rows(Target.Row).Delete Shift:=xlUp
End With
End Sub
Anzeige