Bereich von Tab1 nach Tab2

[omron2003]

Hallo Forum,

ich suche eine Möglichkeit(VBA) einen Bereich
aus Tabelle1 A4:H900 nach Tabelle2 A4:H900 zu kopieren wenn
in Tabelle1 A2:H2 ein x steht. Bei jedem Satrt des Macros soll Tabelle2 erst
geleert werden (Tabelle2.Range("A4:H900").ClearContent.

Besten Dank im Voraus
Omron2003

[EbyAS]

Hallo so:

Code:

Sub Kopiere
With Worksheets("Tabelle2)
      .ClearContent
      Worksheets("Tabelle1).Range("A4:H900").Copy Destination:=.Range("A4")
end With
end Sub