Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1296to1300
1296to1300
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro zum setzen eines Filters

Forumthread: Makro zum setzen eines Filters

Makro zum setzen eines Filters
05.02.2013 17:09:58
Nils
Moin Moin,
ich brauche mal wieder Hilfe!
Ich habe eine Arbeitsmappe mit diversen Blättern. Ich habe ein Makro gebastelt, das in dem Tabellenblatt "PRICELIST" bei einem Doppelklick in eine Zelle in Spalte A die darin enthaltenen Daten in den Zwischenspeicher schreibt, in die Tabelle "AKTIV J N" springt und dort den Autofilter der SPalte E auf den Wert aus dem Zwischenspeicher setzt. Das funktioniert auch, aber eben nicht dauerhaft! Ich bekomme relativ häufig eine Laufzeit-Fehlermeldung.
Fehlermeldung und Debugg-Mode habe ich als Dateien angehängt!
Ich hoffe jemand kann mir sagen woran das liegt!
Vielen Dank!
Fehlermeldung: Userbild
Debuggmode und Code: Userbild

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum setzen eines Filters
06.02.2013 05:25:02
fcs
Hallo Nils,
warum der Umweg über die Zwischenablage/Clipboard?
Weise der Variablen "Such" doch direkt den Inhalte der aktiven Zelle zu. 
  Such = CStr("=" & ActiveCell.Text)
Gruß
Franz

AW: Makro zum setzen eines Filters
06.02.2013 08:43:32
Nils
Moin Moin,
vielen Dank!
Hättest Du eventuell den ganzen Code für mich?
Wäre Klasse!
Danke
Nils

Anzeige
AW: Makro zum setzen eines Filters
06.02.2013 12:55:23
fcs
Halo Nils,
ich hab jetzt keine Lust den Code in deiner Grafik abzutippen.
Lösche alle Zeilen in denen "MyData" vorkommt.
Füge die Zeile
Such = CStr("=" & ActiveCell.Text)
nach der Zeile
Cancel = True
ein.
Gruß
Franz

AW: Makro zum setzen eines Filters
06.02.2013 13:25:22
Nils
Moin Franz,
ein Traum! Es funktioniert perfekt!
Danke!

Anzeige
AW: Makro zum setzen eines Filters
06.02.2013 06:13:11
Rolf
Hallo Nils,
bei mir funktioniert folgender Code
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const SpNr As Integer = 5
Dim Such As String
Dim Bereich As Range
Dim i
Sheets("Aktiv J N").AutoFilterMode = False
Such = ActiveCell.Value
Set Bereich = Sheets("Aktiv J N").Columns(SpNr) _
.Find(what:=Such, lookat:=xlWhole, searchorder:=xlByColumns)
If Bereich Is Nothing Then
MsgBox "Das Filterkriterium (" & Such & ") konnte nicht gefunden werden."
Selection.AutoFilter
Sheets("Pricelist").Activate
Else
Sheets("Aktiv J N").Activate
Sheets("Aktiv J N").Range("A1").AutoFilter _
field:=SpNr, Criteria1:=Such, Operator:=xlAnd
End If
End Sub
Gruß, Rolf

Anzeige
AW: Makro zum setzen eines Filters
06.02.2013 08:50:36
Nils
Moin Rolf,
vielen Dank! Habe den Code mal ausprobiert. Wenn ich jetzt in dem Tabellenblatt "PRICELIST" den Doppelklick auf einen Wert in SPalte A mache, bekomme ich immer nur die Fehlermeldung, dass das Filterkriterium (hier das Kriterium was ich doppelt angeklickt habe) nicht gefunden werden konnte. Wenn ich aber in das Tabellenblatt "AKTIV J N" gehe und dort in Spalte E den Filter manuell setze, sind die Werte vorhanden.
Wäre klasse wenn Du mir nochmal hlefen könntest!
Danke
Nils

Anzeige
AW: Makro zum setzen eines Filters
06.02.2013 09:51:15
Rolf
Hallo Nils,
ich vermute mal, dass die erste Zelle deiner Überschrifts-Zeile im Sheet "Aktiv J N" nicht "A1" ist. Das musst du im Makro natürlich anpassen. Anbei meine Beispieldatei.
https://www.herber.de/bbs/user/83788.xlsm
Gruß, Rolf

Anzeige
AW: Makro zum setzen eines Filters
06.02.2013 10:28:31
Nils
Moin Rolf,
vielen Dank! Sehr verwunderlich.... Denn in meiner Liste funktioniert das nicht und das obwohl die Überschrift in A1 ist...
Ich würde Dir gerne mal meine Datei zur Verfügung stellen, aber die ist zu groß um sie hier hoch zu laden, auch wenn ich alle irrelevanten Datens chon gelöscht habe. Kann ich Dir die irgendwie anders zur Verfügung stellen?
Ich danke Dir!
Nils

Anzeige
AW: Makro zum setzen eines Filters
06.02.2013 11:01:36
Rolf
Hallo Nils,
versuch's noch mal, nachdem du in beiden Arbeitsblättern bis auf z.B. 10 oder 20 Zeilen alles gelöscht hast. Zur Not tut's auch 'ne zip-Datei.
Gruß, Rolf

AW: Makro zum setzen eines Filters
06.02.2013 13:07:04
Nils
Moin Rolf,
ich bekomme das nicht kleiner als 400 KB auch gezippt nicht. Hast Du eventuall eine Mail-Adresse für mich?
Gruß
Nils

Anzeige
AW: Makro zum setzen eines Filters
06.02.2013 13:26:40
Nils
Moin Rolf,
ich habe verzweifelt versucht die Datei kleiner zu bekommen, aber keine Chance!
Da die Antwort von Franz scheinbar geholfen hat Danke ich Dir trotzdem sehr herzlich!
Deine Meldung mit "XYZ" nicht vorhanden fand ich nämlich sehr charmant!
Danke!
Nils

Beliebteste Forumthreads (12 Monate)

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