Filterzellen kopieren
28.03.2008 14:07:00
LotharP
ich habe ein Makro geschrieben welches mir einen gefilterten Bereich unter eine bestehende Liste kopieren soll.
Er kopiert es auch allerdings sind die meisten Felder "leer" !
Die Variablen sind global definiert!
Sub FORMEL()
lang = (ureihe - oreihe) + 1
Sheets("Sheet2").Select
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Range("H2").Select
ActiveCell.FormulaR1C1 = "=IF(ISERROR(VLOOKUP(RC1,Tabelle1!C1:C7,COLUMN(R1C[-7]),FALSE)),0, _
VLOOKUP(RC1,Tabelle1!C1:C7,COLUMN(R1C[-7]),FALSE))"
Selection.AutoFill Destination:=Range("h2:h" & lang & ""), Type:=xlFillDefault
Range("a2:h2").Select
Selection.EntireRow.Insert
Range("a2:h" & lang & "").Select
Selection.Copy
Range("a2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Sheets("sheet2").Range("a2:h" & lang & "")
.AutoFilter Field:=8, Criteria1:="0"
.CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Tabelle1").Range("a65536").End(xlUp).Offset(1, 0)
End With Sheets("Tabelle1").Select
Range("A1:G10000").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Ich hoffe es kann mir jemand sagen wo der Fehler liegt!?
Vielen DAnk im Vorraus und schönes Wochenende!!
Gruß
Lothar