Office: (Office 2010) Zelle Kopieren Wenn Bedienung erfüllt ist

Moin Moin zusammen.

Ich bin bereits seit mehreren Stunden am Suchen und am Testen aber bis jetzt komme ich auf keinen grünen Zweig.

Folgendes habe ich vor.

Ich habe eine Tabellenblatt(Geräte Daten) mit Spalten von B-M. Wenn nun in Spalte M ein "X" steht soll in dieser Zeile die Zelle A ins Tabellenblatt(Geräte Barcodes) in Spalte E ab Zeile 2 kopiert werden.
Dies kann einmal oder auch mehrmals vorkommen.

Sobald dies kopiert wurde soll das "X" gelöscht werden.

Beim nächsten Kopieren sollen die alten Daten in E überschrieben werden.

Leider habe ich mir bei meinen Versuchen mehrmals Excel abgeschossen.




Beispiele: M10 = X dann B10 kopieren
M3, M5 und M25 = je ein X dann B3, B5 und B25 kopieren


Ich hoffe man kann es verstehen was ich gerne machen möchte.


Schönen Abend euch allen und danke schonmal.

Gruß Michael

 

Hier die Lösung

Code:

Sub kopieren()
Dim Q As Worksheet, Z As Worksheet
Dim i As Long
Set Q = Worksheets("Geräte Daten")
Set Z = Worksheets("Geräte Barcodes")

For i = 3 To Q.Cells(Rows.Count, 2).End(xlUp).Row
    If Q.Cells(i, 13) = "X" Then
        Z.Cells(Z.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row, 3) = Q.Cells(i, 2)
        Q.Cells(i, 13).ClearContents
    End If
Next
End Sub

Danke an MisterBurns aus dem anderen Forum HIER DER LINK