Klicken auf einen hyperlink in Excel setzen autofilter auf einem anderen Blatt

Ich habe eine Excel-Arbeitsmappe mit zwei Blättern, im Grunde eine one-to-many-setup zwischen den beiden Blättern. Das erste Blatt listet mehrere hundert Unternehmen, und das zweite Blatt listet das board of directors der Unternehmen. Das zweite Blatt hat eine auto-filter, damit die Benutzer sehen können, die board-Mitglieder für ein bestimmtes Unternehmen ausgewählt, aus dem filter.

Was ich bin versucht zu tun haben, ist ein Benutzer klicken Sie auf die Zelle der Gesellschaft auf das erste Blatt, so wird der Benutzer dann auf die nächste Platte mit den auto-filter bereits vorhanden, mit der Unternehmen ausgewählt. Dadurch hat der Anwender direkten Zugriff auf die Board-Mitglieder nur für das Unternehmen ausgewählt.

Ich denke, das würde erfordern, VBA und hatte gehofft, jemand könnte mich in die richtige Richtung für die Erstellung dieser code, diese zu lösen. Vielen Dank.

Yep. VBA ist hier erforderlich. Sehen Worksheet_BeforeDoubleClick Fall, dann sagen die Benutzer, dass bei Doppelklick auf eine Zelle wird die Aktion durchführen. Wenn Sie mehr wollen, bestimmten helfen, müssen Sie nach dem code, den Sie bauen und wo es nicht funktioniert.

InformationsquelleAutor Jason | 2016-02-05

3

Können Sie dies erreichen, indem Sie etwas tun, das im worksheet-Modul:
```
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    'Update Table14 to your table name
    'Update Field to column number of the field you are filtering
    'Update Sheet7 to reference the sheet containing your table
    'Change on to the column number where your click should cause this action
    If ActiveCell.Column = 1 Then
    Sheet7.ListObjects("Table14").Range.AutoFilter Field:=1, Criteria1:=ActiveCell.Value
    'Update Sheet7 to reference the sheet containing your table
    Sheet7.Activate
    End If
End Sub
```
- Danke, Jonathan, ich sehe, wie das funktioniert. Ich änderte die Dinge ein wenig herum, um einen link in der Spalte direkt rechts von der Firma name-Spalte. Ich kann mir vorstellen das Criteria1: Element müsste Verweis auf die aktive Zelle nur auf der linken Seite jetzt.
- Du bist herzlich willkommen. Ja, es müssen Referenz die Zelle, die den Namen, den Sie übergeben möchten. Wenn Sie möchten, wählen Sie die Zelle auf der linken Seite, was man immer klicken, die Sie verwenden können, activecell.offset(0,-1).Wert
- Letzte Frage. Wenn ich beschränken möchten klicken Sie auf Aktionen, um eine bestimmte Spalte der Tabelle in meinem Unternehmen Blatt, wie würde ich gehen?
- Ich habe eine if-Anweisung, um den sub an schauen Sie sich die Spalte Anzahl. Ändern Sie einfach die 1 für die Spalte, die Sie brauchen, und es sollte für Sie arbeiten.
- Genial, danke nochmal!
- Du bist herzlich willkommen.
InformationsquelleAutor Jonathan

Müssen Sie öffnen Sie den visual basic-editor klicken Sie rechts auf die Unternehmens-Arbeitsblatt
anzeigen-code fügen Sie dazu in:

Option Explicit

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim CompanyName As String

        If Selection.Count = 1 Then
            If Not Intersect(Target, Range("C1").EntireColumn) Is Nothing Then
                'This code is triggered when any
                'ONE cell in column C is selected
                'Simply change "C1" to "B1" etc etc


                'This MsgBox returns the selected cell
                MsgBox Target.Address

                'You'll probably need to collect some information
                'in this section. You can then use this to affect
                'the filters on sheet 2.
                'Perhaps like this
                CompanyName = Cells(Target.Row, 1).Value
                MsgBox CompanyName

                'This changes to "Sheet2"
                Sheets("Sheet2").Activate

            End If
        End If
    End Sub

Hoffe, das hilft und man kann etwas daraus machen

InformationsquelleAutor Mark One

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.