Zeile in eine andere Mappe kopieren wenn in eine Zelle ein X gesetzt wird

Question

Hallo,

also folgendes Problem: Ich habe eine Datei in Excel. bei der wenn ich in der letzen Spalte der Zeile ein X setze die komplette Zeile in eine andere Mappe kopiert werden soll.

Kann mir da jemand helfen?

mfg alex

Answer 1

Hallo Alex,

habe Dir in den beiden Arbeitsblättern die Makros eingefügt, welche die X-Zeilen in der Verkaufs Liste unten anhängen.

Leider hat die Verkaufsliste nicht die gleiche Struktur (eine Spalte mehr) wie die Quellblätter.
Teste mal selbst.

Download

Gruß
Rainer

Answer 2

Hallo Rainer,

kann leider die Datei nicht öffnen da. Liegt wahrscheinlich an unserem admin hier, der blockt alles und jeden.

Zuhause habe ich leider kein excel.

könntest du das hier reinschreiben und ich kopier das dann in meine datei????

danke
alex

Answer 3

Ging jetz doch

benutzer fehler :)))

Answer 4

Hallo Alex,

in den Codebereich der relevanten des relevanten Arbeitsblattes einfügen.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 16 And Target.Row > Cells(Rows.Count, 1).End(xlUp).Row Then Exit Sub
If Target.Value = "x" Or Target.Value = "X" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 15)).Copy _
Worksheets("Liste Verkauf").Range("A" & Worksheets("Liste Verkauf").Cells(Rows.Count, 1).End(xlUp).Row + 1)
End If
End Sub

Gruß
Rainer