Ich versuche einen Macro zu machen der mir aus einer Datei alle Spalten mit bestimmten Eintrag in eine andere Datei kopiert. Leider wird nichts in die andere Datei kopiert. Hat jemand eine Idee warum?
Sub xx2()
Dim I&, X&, LZ1&, LS1&, LZ2&, LS2&
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Set Ws1 = Workbooks("Top 5 all Sections - Oktober 06.xls").Sheets("5 Surface")
LZ1 = Ws1.Range("A15000").End(xlUp).Row
LS1 = Ws1.Cells(1, Columns.Count).End(xlToLeft).Column
I = 2
'Zieldatei aufmachen
Workbooks.Open "C:\Test\Master.xls"
Sheets("Test").Select
Set Ws2 = Workbooks("Master.xls").Sheets("Test")
LZ2 = Ws2.Range("A15000").End(xlUp).Row
LS2 = Ws2.Cells(1, Columns.Count).End(xlToLeft).Column
X = LZ2 + 1
Do While I < LZ1
If Ws1.Cells(I, 10) = "STB" Then
Rows(I).Select
Application.CutCopyMode = False
Selection.Cut
Ws2.Activate
Rows(X).Select
ActiveSheet.Paste
End If
I = I + 1
Loop
Set Ws1 = Nothing
Set Ws2 = Nothing
End Sub