Sub test()
k = 2
For i = 2 To 100 Step 1
If tbl90.Cells(i, 9) "x" Then
tb91.Cells(k, 1).Value = tbl90.Cells(i, 1).Value
k = k + 1
End If
Next i
End Sub
Wer weiß Rat?Danke und Gruß vom Lutz
Sub test()
k = 2
For i = 2 To 100 Step 1
If tbl90.Cells(i, 9) "x" Then
tb91.Cells(k, 1).Value = tbl90.Cells(i, 1).Value
k = k + 1
End If
Next i
End Sub
Wer weiß Rat?Sub test2()
With tbl90.Cells(1, 1).Resize(100, 9)
.AutoFilter field:=9, Criteria1:="x", Operator:=xlAnd
.Columns(1).Offset(1).Copy
tbl91.Cells(2, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
.AutoFilter
End With
End Sub