Office: (Office Version unbekannt) ganze Zeile kopieren wenn bestimmter Wert gefunden

Hallo liebe Forenmitglieder,

da ich bei einer Excel-Aufgabe nicht weiterkomme, hoffe ich auf Rat von eurer Seite.

Das Problem ist folgendes: Ich habe in einer Arbeitsmappe eine Tabelle mit mehreren Zeilen und drei Spalten. Diese sehen in etwas wie folgt aus:
A B C
100 602,101 201,413,203
101 103,104,610 206,100,103
102 105,106,208,304 305,306,104
209 308,313,205,209 101
211 103,104,610 206,100,103
302 105,106,208,304 305,306,104

Nun möchte ich, dass nach den Zahlen gesucht werden kann und die entsprechende Zeile komplett in eine zweite Arbeitsmappe kopiert wird, sofern die Zahl in einer der drei Spalten gefunden wird. (Achtung, es können mehrere Zahlen in einer Zelle sein!)
Bsp: Wenn ich nach 206 suche, sollten die Zeilen 2 und 5 in der neuen Arbeitsmappe ersichtlich sein.
Hat da jemand eine Idee?

Besten Dank für jegliche Hilfe,
Stefan

 

Hallo,
hab dir ein Makro dafür geschrieben, du müsstest die Einträge halt an dein Dokument anpassen.
G7 (also Zelle 7,7) ist die Zelle in die du momentant den Wert schreibst nachdem gesucht wird.
Mit einer Counter-Variable kannst du dann auch dafür sorgen dass im Blatt "Tabelle2" die Werte nicht ersetzt sondern gelistet werden.
Sub Beispiel()

For i = 1 To 6
For j = 1 To 6
If Cells(i, j) = Cells(7, 7) Then
Worksheets("Tabelle1").Range(Cells(i, 1), Cells(i, 6)).Copy
Worksheets("Tabelle2").Paste
End If
Next j
Next i

End Sub

 

Hallo zusammen

Hätte da ein ähnliches Problem, dass ich trotz Lösungen online leider immer noch nicht lösen kann.....

Ich hätte eine Arbeitsmappe Master, aus welcher ich jeweils die ganze Zeile in eine Arbeitsmappe "Basel" kopieren müsste, falls in Kolonne A z.Bsp. eine 1 steht.
Falls diese 1 in Kolonne B steht, müsste die ganze Zeile in eine andere Arbeitsmappe "Boncourt" kopiert werden.

Entweder ich stehe auf dem Schlauch oder ...ja eben.

Ich danke bereits für Eure Hilfe und entschuldigt mich. Merci.

 

Wenn es sich bei Master, Basel, Boncourt um Tabellenblätter in der selben Datei handeln:
Sub Beispiel()

For i = 1 To 6
For j = 1 To 6
If Cells(i, 1) = "1" Then
Worksheets("Master").Range(Cells(i, 1), Cells(i, 6)).Copy
Worksheets("Basel").Paste
End If
If Cells(i, 2) = "1" Then
Worksheets("Master").Range(Cells(i, 1), Cells(i, 6)).Copy
Worksheets("Boncourt").Paste
End If
Next j
Next i

End Sub
Bei unterschiedlichen Dateien muss man zusätzlich "Application.Workbooks.Open" verwenden.

 

Besten Dank für das Makro, werde es so rasch wie möglich testen.

Danke bereits jetzt...