With Workbook..Worksheets ! Brauche mal eure Hilfe
01.01.2014 22:04:45
Thorben
und gleich mal wieder mit einen kleinen Problemchen...:
meine Sub:
Sub Keine()
Dim arr, a
With Tabelle10 'so gehts
arr = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
arr = WorksheetFunction.Transpose(arr)
For a = LBound(arr) To UBound(arr)
arr(a) = CStr(arr(a))
Next
With Tabelle2
If .FilterMode Then .ShowAllData
.Range("A1").AutoFilter Field:=9, Criteria1:=arr, Operator:=xlFilterValues
End With
Range("A1").CurrentRegion.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.AutoFilter
Range("A1").Select
End Sub
With Workbooks(Datentabellen.xlsx).Worksheets("Tabelle5").Activate
Das funzt aber nicht (das sollte doch aber klappen, die Datei Datentabellen ist ja offen!?)
Kann mir jemand sagen wie es geht!?
Vielen Dank schon einmal
MfG
Thorben