Hi,
sorry das ich Dir nicht gleich die VBA-Lösung liefern kann, da meine Kenntnisse auch nicht so gut sind, aber selbst mit einem Makrorekorder sollte das auswählen der Zeilen mit einem X kein Problem sein.
Setze einen Autofilter auf Deine Spalten und lasse in Spalte A nach dem X filtern.
Alle automatisch markierten Zeilen kopieren und in die zweite Tabelle einfügen.
Ich hoffe dieser Ansatz kann Dir solange keine andere Info kommt schon mal weiterhelfen.
In diesem Sinne.... have a nice Day... Gruß Helmut

Hallo Lefty,

nachfolgendes Makro kopiert Dir alle Zeilen von Tabellenblatt "Tabelle1" nach Tabellenblatt "Tabelle2", die in Spalte A den Buchstaben "x" haben.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

[b]Option Explicit

Sub Kopieren_mit_Bedingung()
Dim iRow As Long
Application.ScreenUpdating = False
For iRow = 1 To Sheets("Tabelle1").Range("A65536").End(xlUp).Row
    If UCase(Sheets("Tabelle1").Cells(iRow, 1)) = UCase("x") Then
        Sheets("Tabelle1").Rows(iRow).Copy
        Sheets("Tabelle2").Cells(Sheets("Tabelle2"). _
        Range("A65536").End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
    End If
Next
End Sub
[/b]

Ich hoffe, Du kommst klar.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

moin moin,

erstmal danke für die Antworten!

@Helmut: ja daran hatte ich auch schon gedacht, aber das hat nicht so gefunzt wie ich das wollte....

@Oliver: deine HP kenn ich, hat mir schon öfter mal weitergeholfen, super Ding!
Den Code einbinden ist kein Problem für mich, nur das erstellen ist schwierig weil ich die Befehle nicht alle kenne, besser gesagt die "meisten" nicht kenne.

Nächste Frage:

Kann man den Code so umschreiben, das er mir aus einer mit X markierten Zeile nur bestimmte Zellen kopiert?

Zum Beispiel die Zellen aus Spalte B, D, H, J-AA
dann in der neuen Tabelle ab A fortlaufend ohne Lücken

Klar soweit?

Gruß Lefty

Hallo Lefty,

dann sieht das Makro wie folgt aus:

[b]Option Explicit

Sub Kopieren_mit_Bedingung()
Dim iRow As Long
Application.ScreenUpdating = False
For iRow = 1 To Sheets("Tabelle1").Range("A65536").End(xlUp).Row
    If UCase(Sheets("Tabelle1").Cells(iRow, 1)) = UCase("x") Then
        Sheets("Tabelle1").Range("B" & iRow & ",D" & iRow _
        & ",H" & iRow & ",J" & iRow & ":AA" & iRow).Copy
        Sheets("Tabelle2").Cells(Sheets("Tabelle2"). _
        Range("A65536").End(xlUp).Offset(1, 0).Row, 1).PasteSpecial
    End If
Next
End Sub

[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Das ging ja mal fix.

Werde es testen und mich bei Problemen nochmal melden.

Besten Dank, Gruß Lefty

Ach nochwas,

hast du schon meinen neuen Beitrag "Zahlenreihe aufgliedern" gesehen? Ist glaub ich auch ne aufgabe für jemanden wie dich ;)

http://www.supportnet.de/threads/1688002