Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1436to1440
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per Makro Autofilter steuern

Per Makro Autofilter steuern
28.07.2015 17:29:43
Martin
Hallo Forum,
ich habe eine Frage zu einem Code, den ich im Internet gefunden habe. In einem Arbeitsblatt funktioniert er reibungslos ("Tabelle 2", eine Kopie vom Sheet "Auftragsbuch") und filtert die Liste nach dem Inhalt in der markierten Zelle, aber in einem anderen Sheet ("Auftragsbuch") springt er 3 Spalten weiter, und ich komm nicht drauf warum. Anmerkung: Ich bin ein quasi VBA-Anfänger und kopiere mir die Codes zusammen (was meistens auch funktioniert, nur hier leider nicht). 
Sub RB_aktive_Zelle_filtern()
Dim SpNr As Integer
Dim Such As String
AutoFilterMode = False
SpNr = ActiveCell.Column
Such = ActiveCell.Value
Selection.AutoFilter Field:=SpNr, Criteria1:=Such, Operator:=xlAnd
End Sub
Ich wär sehr verbunden wenn mir jemanden eine Lösung dafür liefern kann.
Hier ist der Link zur Datei: https://www.herber.de/bbs/user/99128.xls
Ciao Martin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro Autofilter steuern
28.07.2015 17:48:33
Sepp
Hallo Martin,
dein Filterbereich beginnt erst in Spalte C darum der Versatz, außerdem hast du Leerzeilen im Filterbereich. Leerzeilen haben in einer Liste nichts zu suchen! Du setzt den Filter auch nicht auf die Überschriftenzeile, sondern auf die erste Datenzeile, viel mehr kann man bei einer Tabelle nicht falsch machen. Und dann wundern sich die Leute, wenn die einfachsten Dinge nicht laufen.
Gruß Sepp

AW: Per Makro Autofilter steuern
29.07.2015 06:39:47
Martin
Danke Sepp das war das Problem, jetzt funktinoerts! Wir können leider nicht alle Experten sein. ;-)
Was da am Code am Code falsch ist, rein interessenshalber kannst du mir auch noch verraten?
Ciao Martin

Anzeige
AW: Per Makro Autofilter steuern
29.07.2015 09:56:33
Sepp
Hallo Martin,
am Code an sich war nichts falsch, nur wurde davon ausgegangen, dass die Liste in Spalte A beginnt.
Ich würde das ganze per Doppelklick steuern.
' **********************************************************************
' Modul: Tabelle3  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C6").CurrentRegion) Is Nothing Then
  Cancel = True
  If Me.AutoFilter.Filters(Target(1, 1).Column).On Then
    Target.CurrentRegion.AutoFilter Field:=Target(1, 1).Column
  Else
    Target.CurrentRegion.AutoFilter Field:=Target(1, 1).Column, Criteria1:=Target, Operator:=xlAnd
  End If
End If
End Sub


Der Code kommt in das Modul der Tabelle. Mit einem Doppelklick auf einen Eintrag, wird der Filter in der entsprechenden Spalte gesetzt oder aufgehoben.
Gruß Sepp

Anzeige
AW: Per Makro Autofilter steuern
29.07.2015 18:19:06
Martin
Hallo Sepp,
Besten Dank für deinen konstruktiven Input, das ist eine wirklich elegante Lösung!
Ciao Martin

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige