Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Wieso geht das nicht ?

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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wieso geht das nicht ?
14.11.2012 22:02:31
Uduuh
Hallo,
Target ist Nothing!
Sub Eingang_buchen()
Dim Target as Range
Set Target=ActiveCell
With Worksheets("Bestand")
Target.EntireRow.Copy _
.Rows(.Cells(Rows.Count, 1).End(xlUp).Row + 1)
Target.EntireRow.Delete Shift:=xlUp
End With
End Sub
Gruß aus’m Pott
Udo

AW: Wieso geht das nicht ?
14.11.2012 22:18:40
Dennis
mhh. Danke für dein antwort, aber das geht ebenso nicht.
Activecell liefert den Zellinhalt. Ich glaube das ich das aber nicht brauche

AW: Wieso geht das nicht ?
14.11.2012 22:30:02
Uduuh
Hallo,
Activecell liefert den Zellinhalt.
Kommt drauf an, wie man es anwendet.
X=Activecell :der Inhalt
Set X =ActiveCell : Die Zelle als Objekt
Gruß aus’m Pott
Udo

Anzeige
AW: Wieso geht das nicht ?
15.11.2012 09:08:20
hary
Hallo Dennis
Sub Eingang_buchen()
With Worksheets("Eingang")
.Rows(ActiveCell.Row).Copy _
Worksheets("Bestand").Rows(Worksheets("Bestand").Cells(Rows.Count, 1).End(xlUp).Row + 1)
.Rows(ActiveCell.Row).Delete Shift:=xlUp
End With
End Sub

gruss hary

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige