Office: Spezialfilter. Ja, mal wieder

Guten Morgen,

mich nervt 2003 jetzt schon wieder...privat hab ich 2010. Als ich es neu hatte wollte ich sofort 2000 wieder zurück haben und jetzt will ich 2003 und co. am liebsten nie mehr sehen...naja.

Also, ich hab das Makro mal aufgezeichnet, ich hoffe richtig.

Den Anhang Bsp. Selektion.xls betrachten

 

Hi Mario,

ich kann kein Sortier-Makro finden.

Bis später,
Karin

 

Also ich hab nur das Makro eingebaut und umgebastelt, dass du vorher hier gepostet hast.
Meine originalversion sieht so aus:


Meine Erklärung: B5, C32, C34 sind meine Kriterien
Spalte 37 ist die Spalte, in die eingefügt werden soll
S2:AI ist der Ergebnisbereich, wo die Filterung hinkopiert werden soll
A2:Q68 Wertebereich
A75:C76 Kriterienbereich
AH2:AH die zu sortierende Spalte

 

und wo ist das Problem? In deiner hochgeladenen Mappe kann ich keins feststellen.

Bis später,
Karin

 

So, dann hier mal anbei zwei Screenshots zu den Fehlermeldungen.

 

wo tritt der Fehler bei dir auf - in Excl2010 oder in Excel2003?
Wie ich schon geschrieben habe - ich kann das Problem nicht nachvollziehen, denn bei mir (Excel2010) tritt er nicht auf.
Wenn der Fehler in Excel2003 auftritt, kann ich dir leider nicht weiterhelfen, da du deinen dort aufgezeichneten Code nicht posten möchtest.

Bis später,
Karin

 

Ich arbeite nur mit Excel2003.
Die zwei Bilder sind die Fehlermeldungen bei meiner Version.
Da ich VBA-Anfänger bin, weis ich grade nicht genau, was du zur genauen Fehlerkorrektur benötigst

 

Hi Mario,

noch einmal ganz genau zum Mitschreiben: wie ich schon geschrieben hatte, hat Excel2003 andere Sortierbefehle als Excel2010. Deshalb musst du das Sortieren mit Excel2003 aufzeichnen und hier den aufgezeichneten Code posten, damit ich alles dann an den bestehenden Code anpassen kann. Excel2010 kann auch mit den Befehlen von Excel2003 sortieren, nur nicht umgekehrt.

Bis später,
Karin

 

So. Guten Morgen und nochmals vielen Dank für all deine bisherigen Mühen!

Es hat ein wenig gedauert, ich musste erst googln, wie man ein Sortier-Makro aufzeichnet^^

Um Missverständnisse zu vermeiden, ich arbeite nur mit Excel2003.
In der angehängten Mappe ist jetzt (hoffentlich) das Sortier-Makro. Und das muss jetzt irgendwie in mein Filter-Makro eingebaut werden, oder?

 

Hi Mario,

kann es sein, dass du vergessen hast die Mappe mit dem aufgezeichneten Marko anzuhängen?

Das aufgezeichnete Makro muss anstelle des Codeteils With.Sort.... End With eingebaut werden - also dort wo bei dir der Fehler ausgegeben wird.

Bis später,
Karin

 

Ja stimmt, das war sehr intelligent, aber wir stehen kurz vor der Lösung!
Es funktioniert alles, nur eine Fehlermeldung taucht noch auf.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngLetzte As Long
Select Case Target.Address
Case "$B$4", "$B$5", "$B$6"
With Worksheets("Auswahl")
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
.Cells(Rows.Count, 7).End(xlUp).Row, .Rows.Count)
.Range("G1:J" & lngLetzte).ClearContents
.Range("A1:D9").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
"A20:C21"), CopyToRange:=.Range("G1"), Unique:=False
lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
.Cells(Rows.Count, 7).End(xlUp).Row, .Rows.Count)
End Select
End Sub
Sub test1()
'
' test1 Makro
' Makro am 14.12.2012 aufgezeichnet
'

'
ActiveCell.FormulaR1C1 = "40"
Range("B5").Select
Sheets("Auswahl").Select
Range("G1:J4").Select
Selection.Sort Key1:=Range("I2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
End With

'Fehler beim Kompilieren:
End Select ohne Select Case'

Das hier fett gedruckte ist gelb unterlegt

 

du hast da zu viel aus dem Code gelöscht. So sollte es funktionieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim lngLetzte As Long
   Select Case Target.Address
      Case "$B$4", "$B$5", "$B$6"
         With Worksheets("Auswahl")
            lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
               .Cells(Rows.Count, 7).End(xlUp).Row, .Rows.Count)
            .Range("G1:J" & lngLetzte).ClearContents
            .Range("A1:D11").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
              "A18:C19"), CopyToRange:=.Range("G1"), Unique:=False
            lngLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 7)), _
               .Cells(Rows.Count, 7).End(xlUp).Row, .Rows.Count)
            If lngLetzte > 1 Then
               Worksheets("Auswahl").Range("G1:J" & lngLetzte).Sort Key1:=.Range("I2"), _
                  Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
                  Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
            End If
         End With
   End Select
End Sub

Beachte: den Kriteriumsbereich musst du wieder anpassen und auch den Zielbereicht für das Filtern.

Bis später,
Karin

 

Perfekt!
Deine Beispieldatei funktioniert jetzt genau so, wie es sein soll.
Jetzt scheitert es nur noch an der transformation auf meine Datei.
Moment, Halt, Stop!

 

Range("G1:J" & lngLetzte).ClearContents --> der Bereich, in den das (vorhergehende) Filterergebnis kopiert wurde, leeren

Range("A1: D11") --> A1:Q68 - Überschrift muss enthalten sein. Wenn diese in Zeile 1 steht, dann muss auch Filter-Bereich mit Zeile 1 beginnen

CopyToRange --> S1 da die Überschrift immer mit kopiert wird

Bis später,
Karin

 

Wir sind ganz kurz vor dem Ziel, Karin, dann hast du es geschafft!

Die Sortierung steht, nur wird nun nur noch nach dem ersten Kriterium gefiltert