Makro luft nicht
10.07.2008 13:38:00
lisa
Hallo zusammen
Ich habe hier ein Makro welches nicht laufen will.
Den Code habe ich beigefügt.
Die Daten werden kopiert und die Inhalte in die Tabelle 1 eingefügt.
Jetzt sollen die Daten nach Kriterien sortiert und anschliessend alle doppelten ausgefiltert werdn.
Jetzt das Problem
1. es wird nicht sortiert und
2. auch nicht gefiltert!
Weiß jemand was da falsch ist?
Ich bitte um Eure Hilfe
Private Sub CommandButton1_Click()
Sheets("Tabelle1").Select
Selection.ClearContents
Sheets("Zugang PF").Select
Columns("AV:AY").Select
Selection.Copy
Sheets("Tabelle1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False ' hier füge ich Inhalte der aus Tabelle "PF" ein
'ab hier sortiere ich die Daten nach c2;d2 und b2 es (wird aber nicht ausgeführt)
Columns("A:D").Sort Key1:=Range("C2"), Order1:=xlAscending, Key2:=Range("D2") _
, Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers, DataOption2:=xlSortNormal, DataOption3 _
:=xlSortNormal
' ab hier soll ein Spezialfilter alle doppelten Daten ausfiltern und nach E:D kopieren ( _
auch das wird nicht gemacht, da gibt es einen Debuggenfehler)
Columns("A:D").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"E1:H1"), Unique:=True
Sheets("Pivot AUswertung alle").Select
End Sub
Liebe Grüße Lisa