Ich habe mir eine Vorlage so zurechtgebogen, dass Sie dass macht, was sie soll :-)
Aber in dem fertigen VBA Script muss etwas angepasst werden, wo ich nicht weiß wie.
Ich habe 2 Sheets. In beiden ist einfach nur eine Tabelle.
Wenn ich im Sheet 1 in der Tabelle (besteht aus 2 Spalten) eine Zelle in einer Zeile doppelklicke, springe ich in das sheet 2. Dort übernimmt er dann den Eintrag aus der Zelle von sheet 1 und filtert das Ganze gleich nach dem Eintrag.
So weit so gut, aber ich möchte, dass der Doppelklick nur für die Zellen gilt, die in Spalte 2 sind. Spalte 1 soll unberücksichtigt bleiben.
Der Code sieht derzeit wie folgt aus:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strCellVal As String
Dim i As Long
On Error Resume Next
If Intersect(Target.EntireRow, [Menü[Typ]]) Is Nothing Then Exit Sub
If Target.Cells.Count 1 Then Exit Sub
strCellVal = ActiveCell.Value
With Sheet2
.ListObjects(1).Range.AutoFilter 3, Criteria1:=Intersect(Target.EntireRow, [Menü[Typ]])
.Activate
i = .ListObjects(1).Range.Columns(1).SpecialCells(xlCellTypeVisible).Count
If i = 1 Then
.ListObjects(1).Range.End(xlDown).Offset(1, 2).Value = strCellVal
End If
.[A1].Select
End With
Cancel = True
End Sub
Ich kapier es einfach nicht. Würdet ihr mir bitte helfen.
Danke!