MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 13.09.2017, 13:29   #1
drsudmg
Neuer Benutzer
Neuer Benutzer
Standard Excel2010 - Autofilter über Hyperlink steuern

Hallo zusammen,

da ich leider keinen passenden Beitrag für mein Problem gefunden habe, wende ich mich an euch.

Ausgangssituation:
Ich habe eine Arbeitsmappe mit zwei Tabellenblättern ("Umsatz" und "Übersicht").
In der Tabelle "Umsatz" lese ich Rechnungsdaten ein, die ich im Tabellenblatt "Übersicht" nach gewissen Kriterien zusammenfasse. In Spalte A der Übersicht finden sich die Mitarbeiterdaten. Weiterhin habe ich zwei Comboboxes zur Aushwal des Monats bzw. des Jahres erstellt, um die Rechnungsdaten den gewählten Kriterien entsprechend den Mitarbeitern zuzuordnen. Bis hierhin funktioniert auch alles soweit.

Ziel:
Im Tabellenblatt "Umsatz" befindet sich in der Kopfzeile ein Filter. Es soll ein Hyperlink auf den Zahlenwerten des Tabellenbalttes "Übersicht" angelegt werden, der einerseits auf das Tabellenblatt "Umsatz" zielt (das bekomme ich gelöst) und darüber hinaus die Werte in der dann folgenden Ansicht im Tabellenblatt "Umsatz" nach den im Tabellenblatt "Übersicht" ausgewählten Kriterien filtert.

Beispielhaft mein Problem:
Ich habe in den Checkboxes den September als Monat und 2017 als Jahr gewählt (läuft jeweils über die Change-Eigenschaft der Combobox). Die Summe der Umsätze beträgt 1.000,00. Wenn ich nun auf den hinterlegten Hyperlink drücke, soll das Tabellenblatt wechseln und der Filter so konfiguriert sein, dass die Einzelwerte zur Summe 1.000,00 angezeigt werden. Über einen Button möchte ich dann zurück zur Übersicht gelangen und die Filterkriterien zurücksetzen.

Vielen Dank im Voraus für eure Hilfe.

drsudmg
drsudmg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 14:16   #2
jack_D
MOF Koryphäe
MOF Koryphäe
Standard

Moin,

und warum "schickst" du die Informationen für das Filtern nicht auch gleich mit dem ChangeEreignis mit raus?

Grüße
jack_D ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 16:01   #3
drsudmg
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo jack_D,

erst einmal ein Dankeschön für deine Hilfe.

Über das Change-Ereignis wird es (glaube ich) nicht funktionieren.

Vielleicht muss ich den Sachverhalt auch noch etwas genauer darlegen:
Wenn ich über die Checkboxes den September 2017 auswähle, zeige ich in der Übersicht neben den Werten für den September 2017 auch die des Septembers 2016 (Vorjahreswerte) sowie die kumulierten Werte von Januar bis zum ausgewählten Monat, auch jeweils für das ausgewählte Jahr und das Vorjahr.

Alle diese Werte sind mit einem Hyperlink versehen. Beim Klicken auf einen dieser Links sollen die entsprechenden Einzelwerte angezeigt werden (Filter).
Bei Auswahl über Checkboxes September 2017 soll das in etwa so aussehen:
Link 1 - Filter Werte September 2017
Link 2 - Filter Werte September 2016
Link 3 - Filter Werte Januar 2017 - September 2017
Link 4 - Filter Werte Januar 2016 - September 2016

Das ganze dann zeilenweise für jeden Mitarbeiter.
Ich hoffe, ich konnte mein Problem zugänglicher machen.

Grüße

Geändert von drsudmg (13.09.2017 um 16:21 Uhr).
drsudmg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2017, 20:41   #4
jack_D
MOF Koryphäe
MOF Koryphäe
Standard

Moin.

Vielleicht hilft es einfach wenn du das was du hast mal kurz hochlädtst.
Aber bitte mit anonymen Daten :-)

Dann schau ich mir mal an, was du machst...und schau ob mir eine Lösung einfällt

Grüße
Jack
jack_D ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 09:00   #5
drsudmg
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

ich hoffe, dass das Anhängen der Datei funktioniert hat.

Viele Grüße
Angehängte Dateien
Dateityp: xlsm beispieldatei.xlsm (99,4 KB, 2x aufgerufen)
drsudmg ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2017, 09:45   #6
jack_D
MOF Koryphäe
MOF Koryphäe
Standard

Moin Moin

hab mir mal Gedanken gemacht.

(Deinen restlichen Code hab ich nur überflogen)

Den Folgenden Code Kopierst du in das Arbeitsblatt "Entwicklung ... "
Code:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim TargetHeute
Dim TargetGestern

    Set TargetHeute = Application.Intersect(Target.Range, Range("D14:D16"))
    Set TargetGestern = Application.Intersect(Target.Range, Range("F14:F16"))
    
    'Wenn nicht innerhalb des Bereiches wird die Prozedur verlassen
    If TargetHeute Is Nothing And TargetGestern Is Nothing Then Exit Sub

    
    
    If Not TargetHeute Is Nothing Then
        Call testmakro1
        Exit Sub
    End If
    
    If Not TargetGestern Is Nothing Then
        Call testmakro2
        Exit Sub
    End If
         
    
End Sub

Sub testmakro1()
MsgBox "1"
End Sub
Sub testmakro2()
MsgBox "2"
End Sub
Hier wird über das FollowHyperlink event das Makro ausgelöst
Kleine spielerei an der Stelle:
Ich hab 2 Bereiche definiert damit du unterscheiden kannst zwischen Aktuellem Jahr und Vorjahr (deswegen 2 verschiedenen MSgBOXen)

Den Rest solltest du dann mit deinen Fähigkeiten umsetzen können =)
Ansonsten .-. Fragen

Viele Grüße
Jack

Ps:
Rückmeldung und Bewertung wär nett
jack_D ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:26 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.