VBA - Bereich ändern
11.08.2017 15:11:15
Rei
Leider komm ich nicht weiter, obwohl sehr viel in diesem Code beschrieben ist.
Habe diesen code im I-Net gefunden und find in toll.
dieser erlaubt, den Autofilter automatisch zu aktualisieren.
Aber ich bring es aufgrund zu wenig wissen nicht auf die Reihe, den Code so zu ändern, dass ich sagen kann, dass die einzelen Filterwerte z. Bsp in Zelle A7 zu finden ist.
Falls jemand rat weiss, bin ich natürlich sehr dankbar
Rei78
Option Explicit ' Variablendeklaration erforderlich
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'* 09.02.08,11.03.08,31.03.08 *
'* erstellt von Karin (Beverly), http://Excel-Inn.de*
'* Beverly_Forums@web.de *
Dim raBereich As Range
Dim raZelle As Range ' Variable für die Zelle als Range
' Wirkung des Codes auf Zeile 1 der Tabelle im Filterbereich zulassen
Set raBereich = Intersect(Target, Range(Cells(1, ActiveSheet.AutoFilter.Range(1).(("A6:B6")) _
_
_
_
_
_
_
_
_
_
_
, _
Cells(1, ActiveSheet.AutoFilter.Range(1).Column + ActiveSheet.AutoFilter.Filters.Count - _
_
_
_
_
_
_
_
_
_
_
1)))
' Eingabe erfolgte im festgelegten Bereich
If Not raBereich Is Nothing Then
' Bildschirmaktualisierung aus
Application.ScreenUpdating = False
' Reaktion auf Eingabe abschalten
Application.EnableEvents = False
' Schleife über alle Zellen der Zeile 1 der Tabelle
For Each raZelle In raBereich
' Bezieht sich auf den Filterbereich
With ActiveSheet.AutoFilter.Range
' Eingabe wurde gelöscht
If raZelle = "" Then
' Autofilter für das betreffende Fald zurücksetzen
.AutoFilter Field:=raZelle.Column + 1 - ActiveSheet.AutoFilter.Range(1). _
Column
' in die betreffende Zelle eintragen
raZelle = "Suchbegriff eingeben"
Else
' Suchkriterium ist eine Zahl
If IsNumeric(raZelle) Then
' Autofilter für das betreffende Feld setzen, Filterkriterium "entspricht" _
_
_
_
_
_
_
_
_
_
_
.AutoFilter Field:=raZelle.Column + 1 - ActiveSheet.AutoFilter.Range(1). _
_
_
_
_
_
_
_
_
_
_
Column, _
Criteria1:="=" & raZelle
' Suchkriterium ist ein Datum
ElseIf IsDate(raZelle) Then
' Autofilter für das betreffende Feld setzen
' es werden 2 Kriterien verwendet, weil mit Kriterium "=" das Datum nicht _
_
_
_
_
_
_
_
_
_
_
gefiltert wird
.AutoFilter Field:=raZelle.Column + 1 - ActiveSheet.AutoFilter.Range(1). _
_
_
_
_
_
_
_
_
_
_
Column, _
Criteria1:=">=" & raZelle.Value2, Criteria2:="