Hallo,

Habe hier folgendes Problem und bitte um schnellst mögliche Hilfe.

Per Doppelklick auf Spalte 4 gelange ich in ein untergeordnetes worksheet, in das auch Daten mit übertragen werden.

Wenn dann in dem untergeordneten worksheet ein filter eingeschaltet ist werden gegebenenfalls bereits bestehende, aber ausgeblendete Zeilen überschrieben.

Mein anliegen ist also den Filter abzuschalten sobald der worksheet wechsel per Doppelklick erfolgt.

Vielen Dank im voraus.

'******
      
      
   If Target.Column = 4 Then

Const strDATEI2PFAD As String = "\Ordnerpfad "
Const strDATEI2NAME As String = "Ordnername"
Dim xlWB As Excel.Workbook
Dim bolVorhanden As Boolean
Dim lngFreieZeile As Long
Dim lngANSW As Long

      lngANSW = MsgBox("Möchten Sie eine kommissionsbedingte Arbeit anlegen?", vbQuestion + vbYesNo, "Kommissionsbedingte Arbeit anlegen")
        If lngANSW = 7 Then Exit Sub
        bolVorhanden = False

     For Each xlWB In Application.Workbooks
        If UCase(xlWB.Name) = UCase(strDATEI2NAME) Then
        bolVorhanden = True
     Exit For
        End If

     Next
        If bolVorhanden = False Then
        Set xlWB = Workbooks.Open(strDATEI2PFAD)
        Else
        Set xlWB = Workbooks(strDATEI2NAME)
        End If
       
       
  With xlWB.Sheets(1)

      lngFreieZeile = .Cells(.Cells.Rows.Count, 12).End(xlUp).Row + 1
     
      .Cells(lngFreieZeile, 12) = Target
      .Cells(lngFreieZeile, 20) = Target.Offset(0, 5)
      .Cells(lngFreieZeile, 13) = Target.Offset(0, 9)
      .Cells(lngFreieZeile, 19) = Date
     
  End With
 
Cancel = True
Else
Exit Sub
End If
Set xlWB = Nothing

weiter1:
End Sub