Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
284to288
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
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA AutoFilter

VBA AutoFilter von: Alex (adsbygoogle = window.adsbygoogle || []).push({}); Geschrieben am: 23.07.2003 11:21:12 Halli Hallo Ich habe eine Frage zu dem VBA AutoFilter von Excel. Ist es möglich eine Tabelle zu Filtern ohne eine Verknüpfung zu einer Schaltfläche zu erstellen? Ich möchte das der user eine bestimmte Zelle markiert und die Tabelle dann nach dem Zellinhalt der selektierten Zelle filtert. Im Moment probiere ich es mit folgendem code, aber da tut sich leider gar nichts. Function Select(typ) With Worksheets("PL") .Select If .AutoFilterMode = False Then .Range("A2").AutoFilter VisibleDropDown = True End If .Range("A2).AutoFilter field:=1, Criteria1:=typ Application.ScreenUpdating = True End With Herzlichen Dank schon mal im Voraus Al
23.07.2003 11:21:12
Alex
Halli Hallo
Ich habe eine Frage zu dem VBA AutoFilter von Excel.
Ist es möglich eine Tabelle zu Filtern ohne eine Verknüpfung zu einer Schaltfläche zu erstellen? Ich möchte das der user eine bestimmte Zelle markiert und die Tabelle dann nach dem Zellinhalt der selektierten Zelle filtert.
Im Moment probiere ich es mit folgendem code, aber da tut sich leider gar nichts.
Function Select(typ)
With Worksheets("PL")
.Select
If .AutoFilterMode = False Then
.Range("A2").AutoFilter
VisibleDropDown = True
End If
.Range("A2).AutoFilter field:=1, Criteria1:=typ
Application.ScreenUpdating = True
End With
Herzlichen Dank schon mal im Voraus
Al

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA AutoFilter
26.07.2003 09:04:09
Niels
Hi Al,
ob das bei Autofiltern funktioniert weiss ich nicht. Du kannst aber mit folgendem Codegerüst Aktionen ausführen wenn der User eine bestimmte Zelle betritt:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Target.row = 1 and Target.column = 3 Then
:-)
End If
End Sub

Vielleicht hilfts.
Niels

Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige