Office: Wenn bestimmter Wert in Zelle dann kopiere Bereich

Hallo,

ich habe folgendes Problem.

Ich suche ein Makro, welches Bereiche kopiert, wenn dort in einer von zwei bestimmten Zellen ein Wert enthalten ist.
1. Bereich:B2:H49
2. Bereich:B51:H98
3. Bereich:B100:H147
4. Bereich:B149:H196
5. Bereich:B198:H245
6. Bereich:B247:H294
7. Bereich:B296:H343
8. Bereich:B345:H392
9. Bereich:B394:H441

Die Bereiche sind alle gleich groß. Haben eine Leerzeile dazwischen und beginnen in Spalte B2

Die zu prüfenden Werte für die Bereiche sind:
1. Bereich:Zelle B8 bzw. Zelle G8
2. Bereich:Zelle B57 bzw. Zelle G57
3. Bereich:Zelle B106 bzw. Zelle G106
4. Bereich:Zelle B155 bzw. Zelle G155
5. Bereich:Zelle B204 bzw. Zelle G204
6. Bereich:Zelle B253 bzw. Zelle G253
7. Bereich:Zelle B302 bzw. Zelle G302
8. Bereich:Zelle B351 bzw. Zelle G351
9. Bereich:Zelle B400 bzw. Zelle G400

Abstand sozusagen ab Zelle B8 immer 49 Zellen der selben Spalte.

Nun soll er folgendes prüfen.

Prüfe ob Zelle B2 oder G8 den Wert X enthalten,
wenn ja kopiere den Bereich B2:H49 in die Datei Test2.xlsx Tabellenblatt Tabelle 1 und füge die Werte in die Zelle B3 ein.
-->Wenn gefunden schleife beenden.
Wenn nicht gehe zu Zelle B57 bzw G57 und prüfe ob dort der Wert X enthalten ist.
Wenn ja kopiere den Bereich B51:H98
-->Wenn gefunden Schleife beenden.
usw..

Leider besitze ich nur die absoluten Grundlagen für Makros, so dass dies meinen Horizont übersteigt.

Vielleicht kann mir ja jemand dabei helfen, ob das mit einem Makro möglich ist und wenn ja wie.

:)

 

Ungetestet
Code:

 

Klappt super!

Vielen Dank!!!!!!