Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter an Autofilter übergeben

Autofilter an Autofilter übergeben
18.05.2006 20:12:30
Ingo
Hallo allerseits,
wie kann ich den Wert(Treffer) eines Autofilter "auslesen" ?
Ich habe 10 Tabellen.
In allen Tabellen stehen in der Spalte A identische Nummern, Autofilter ist vorhanden. Wenn ich in Tabelle 1 einen Wert/Nummer der Spalte A mit dem Autofilter auswähle, sollen die restlichen Tabellen dort ebenfalls den Wert per Autofilter auswählen. Ich bastel mir noch einen Wolf ;-)
Danke für Hilfe
Gruß, Ingo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter an Autofilter übergeben
18.05.2006 21:44:01
Josef
Hallo Ingo!
Wenn es sich nur um die erste Spalte dreht, dann kopiere diesen Code in das
Modul "DieseArbeitsmappe".
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim objF As Filter
Dim objSh As Worksheet
Dim i As Integer

On Error Resume Next

If ActiveSheet.AutoFilterMode = False Then Exit Sub

Set objF = ActiveSheet.AutoFilter.Filters(1)

Application.EnableEvents = False

For Each objSh In Me.Worksheets
  If Not objSh Is Me.ActiveSheet Then
    If objSh.AutoFilterMode = False Then objSh.[a1].AutoFilter
    If objF.On Then
      objSh.[a1].AutoFilter Field:=1, Criteria1:=objF.Criteria1
    Else
      objSh.[a1].AutoFilter Field:=1
    End If
  End If
Next

Set objF = Nothing

Application.EnableEvents = True

On Error GoTo 0

End Sub


Damit der Code läüft, muss in irgendeiner Tabelle eine flüchtige Funktion (z.B. =JETZT())
in einer Zelle stehen!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
Danke für die Anregung (o.T.)
21.05.2006 10:16:14
Ingo

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige