SpezialFilter automatisieren...

[Jockel]

Hallo Mitleser und Mitstreiter, ich versuche gerade einen SpezialFilter zu automatisieren... ... ff. code habe ich dazu aufgezeichnet und vorher BereichsNamen vergeben... ... leider "zerballert" mir irgendetwas meinen Bereich Suchkriterien (Formel für den BereichsNamen..: =$A$1:INDEX($A$1:$A$10;VERGLEICH("";$A$1:$A$10;-1)) sobald ich in dem Bereich etwas lösche... ... kann mir jemand sagen a) warum und b) wie ich das ändern kann...?

Sub sfm()
'
' sfm Makro
'
' Tastenkombination: Strg+q
'
Range("Listenbereich").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Suchkriterien"), CopyToRange:=Range("F1:G1"), Unique:=False
End Sub

[schauan]

Hallo Jörg,

Du schreibst nicht, was "zerballern" ist - Excel kennt diese Funktion nicht
Ich nehme an, dass das Problem nicht im VBA -Code liegt, sondern wie Du auf dem Excel-Blatt löschst. Wenn Du z.B eine Zeile oder Zelle löschst, dann werden die Formeln angepasst. Aus dem Dilemma kommst Du wohl nur unter Verwendung der Funktion INDIREKT heraus. Ansonsten macht Dich Excel in diesem Fall nicht glücklich :s

[Jockel]

Hallo André, auch INDIREKT() wird nach Löschen eines Kriteriums hart umgeschrieben... ... gibt's da ne Lösung..?

[schauan]

Hallo Jorg,

wenn Du statt $A$10 INDIREKT("A10") schreibst, dann ändert sich daran doch nichts...

[Jockel]

Hallo André, nix zu machen... grrrrrrrrrrrrrrrrrrrrrrrrrrr...

[schauan]

Hallo Jörg,

wieso nicht? Ich hab hier mal eine Zeile gelöscht und dann die Einträge korrigiert, damit das A wieder in zeile 10 steht. Die Formel in C1 bringt immer noch das ergebnis wie zuvor, nur die Formel aus der Fragestellung in B1 hat sich angepasst.

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1	1	#NV	1
2	2
3	3
4	4
5	5
6	6
7	7
8	8
9	9
10	A

Zelle	Formel
B1	=$A$1:INDEX($A$1:$A$9;VERGLEICH("";$A$1:$A$9;-1))
C1	=$A$1:INDEX(INDIREKT("$A$1:$A$10");VERGLEICH("";INDIREKT("$A$1:$A$10");-1))

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

[Jockel]

Hallo André ich lösche keine Zeilen sondern mit Entf den Inhalt... und im BereichsNamen Suchkriterien wird der vormals definierte Bereich =$A$1:INDEX($A$1:$A$10;VERGLEICH("";$A$1:$A$10;-1)) oder auch mit INDIREKT() hart überschrieben...?!?!?!

[Jockel]

Hallo @all, andere Frage: Wie kann ich denn per VBA den befüllten Bereich zwischen A1 und A10 ermitteln und in meinen (stümperhaften) Code einbasteln..? Wie schon beschrieben wird der per Formel hart überschrieben...?

[Jockel]

Hallo, ich habe probiert und gekämpft (jeder weiß, dass VBA für mich kein Zuckerschlecken ist..) Ergebnis..:

Sub test()
'
' test Makro
Dim Loletzte As Long
Loletzte = IIf(IsEmpty(Range("A10")), Range("A10"). _
End(xlUp).Row, 10)
Cells(Loletzte, 1).Select

Range("A64").Select
Range("Listenbereich").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A1:A" & Loletzte), CopyToRange:=Range("F1:G1"), Unique:=False
End Sub


funzt... geht aber bestimmt eleganter... ... ich frage mich aber immernoch, warum ich dort kein BereichsNamen mit Formel verwenden kann...

[schauan]

Hallo Jörg,

wenn Du nur mit ENTF löschst, dann passiert doch gar nichts mit der Formel ...