Nach Kriterium in allen blättern suchenn
27.12.2020 11:47:30
Christian
Ich hoffe Ihr könnt mir bei meinem Problem helfen.
Das Makro soll mir aus Tabelle2 die Zellen in Tabelle1 kopieren wenn in Tabelle2 die Spalte W ein x aufweist.
Bis hier hin habe ich das geschaft mit diesem Makro:
Option Explicit
Option Compare Text
Sub BedingteKopieZeilen1()
Dim Zeile As Long
Dim ZeileOut As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
With Sheets("Tabelle2")
ZeileOut = 1
For Zeile = 2 To .Cells(Rows.Count, "W").End(xlUp).Row
If .Cells(Zeile, "W").Value Like "x" Then
.Rows(Zeile).Copy Destination:=Sheets("Tabelle1").Rows(ZeileOut)
ZeileOut = ZeileOut + 1
End If
Next Zeile
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
Das Makro soll aber aus allen Tabellenblätter diesen Wert x suchen und in Tabelle1 kopieren.
Wäre euch sehr dankbar wenn ihr mir da helfen könntet.