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
|