Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren in nächste freie zeile

Kopieren in nächste freie zeile
14.03.2017 10:00:35
Alex
Guten morgen zusammen,
ich hätte ein kurze bitte: Wer kann mir kurz helfen die folgende Funktion so umzuschreiben das _
die Zeile in die nächste freie Zeile kopiert wird?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ZielZeile As Long
ZielZeile = Sheets("Abgeschlossen").Cells(Rows.Count, 1).End(xlUp)
Set Target = Intersect(Target, Range("G2:G1000"))
If Target Is Nothing Then Exit Sub
If Target = "Abgeschlossen" Then
Target.EntireRow.Copy Destination:=Sheets("Abgeschlossen").Cells(ZielZeile + 1, 1)
'Target.EntireRow.Delete
End If
End Sub

Vielen Dank

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren in nächste freie zeile
14.03.2017 10:05:05
Daniel
Hi
ZielZeile = Sheets("Abgeschlossen").Cells(Rows.Count, 1).End(xlUp).Row
gruß Daniel
AW: Kopieren in nächste freie zeile
14.03.2017 11:00:57
Alex
Vielen Dank,
leider kopiert der angepasste Code die Zeile nicht an die richtige Stelle (erste freie Zeile in der Liste auf der Tabelle "Abgeschlossen"? Wo liegt mein Fehler?
Vielen Dank für alle Unterstützung
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ZielZeile As Long
ZielZeile = Sheets("Abgeschlossen").Cells(Rows.Count, 1).End(xlUp).Row
Set Target = Intersect(Target, Range("G2:G1000"))
If Target Is Nothing Then Exit Sub
If Target = "Abgeschlossen" Then
Target.EntireRow.Copy Destination:=Sheets("Abgeschlossen").Cells(ZielZeile + 1, 1)
'Target.EntireRow.Delete
End If
End Sub

Anzeige
AW: Kopieren in nächste freie zeile
14.03.2017 11:07:43
Daniel
Hi
an welcher Stelle wird der Code den eingefügt?
ich würde hier auch nicht mit der Variable arbeiten sodern das Ziel direkt angeben:
...Copy Destination:=Sheets("Abgeschlossen").Cells(Rows.Count, 1).end(xlup).Offset(1, 0)
Voraussetzung ist, dass in Spalte A immer ein Wert steht, wenn die Zeile befüllt ist.
Ansonsten musst du die letzte Befüllte Zeile in einer Spalte ermitteln, die immer einen Wert hat.
Gruß Daniel
AW: Kopieren in nächste freie zeile
14.03.2017 11:58:05
Alex
Vielen Dank für die Super unterstützung (-:
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge