Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Filter anpassung Zeile

VBA Filter anpassung Zeile
25.11.2007 20:00:00
Karel
Hallo Forum,
Setze nächste makro ein, möchte aber das der Filter ab Zeile 10 lauft, eingabe bereich bleibt gleich.
habe schon probiert mit irow ohne erfolg

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells(1).Address = "$B$5" Then
Range("B5").CurrentRegion.AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=Range("B4:B5"), _
Unique:=False
End If
End Sub


Gruss
Karel

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Spezialfilter - Listenbereich im Code fehlt
25.11.2007 20:33:36
Beate
Hallo Karel,
dies wäre deine Tabelle, wichtig ist, dass es eine Leereile zwischen Kriterienbereich und Listenbereich gibt:
 AB
1  
2  
3  
4Wert1Wert2
5 5
6  
7  
8  
9  
10Wert1Wert2
1122
1222
1322
1425
1516
1624
1775
1810

In deinem Code sehe ich gar keinen Listenbereich, also dieser Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$5" Then
        Range("A10:B65536").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
            Range("A4:B5"), Unique:=False
    End If
End Sub

Das Ergebnis dann:
 AB
1  
2  
3  
4Wert1Wert2
5 5
6  
7  
8  
9  
10Wert1Wert2
1425
1775

Gruß,
Beate
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige