Refer to changing workbook names (which include a date range)

If the file is already open use a FOR EACH loop and the LIKE operator to compare all filenames if they match.

Sub Test()

Dim Wb As Workbook



For Each Wb In Workbooks

If Wb.Name Like "*20190426*" Then

'Reference found

Exit For

End If

Next

End Sub

Otherwise you have to search for all files in the specific directory and compare that names. If all files are in a single directory you can use DIR to find the files.

Sub Test()

Dim Wb As Workbook

Dim Path As String, FName As String



Path = "Z:\"

FName = Dir(Path & "*.xlsx")

Do While FName <> ""

If FName Like "*20190426*" Then

'Reference found, open the file

Set Wb = Workbooks.Open(Path & FName)

Exit Do

End If

FName = Dir

Loop

End Sub

Otherwise I suggest that you download my FileSearch class to search for the file.

https://www.dropbox.com/sh/tuqw83m802x6jn7/AAALmSmkkRszpreiM8AUjx7va?dl=1

Andreas.

Hallo Muharrem,



dann probiere es so:



With Workbooks("Arbeitsplan2013").Sheets("Arbeitsplan")

.Range("$A$24:$Q$65178").AutoFilter Field:=17, _

Criteria1:=">=" & Start, Operator:=xlAnd, _

Criteria2:="<" & Ende

.Range("$A$24:$Q$65178").AutoFilter Field:=7, _

Criteria1:="A"

LRow = .Cells(.Rows.Count, "A").End(xlUp).Row

.Range("A25:Q" & LRow).SpecialCells(xlCellTypeVisible).Copy

Workbooks("Daten Holen").Worksheets("Daten").Range("D1") _

.PasteSpecial xlPasteValuesAndNumberFormats

.AutoFilterMode = False

End With



Mit freundlichen Grüßen

Claus

Hallo,



ändere den Bereich mit den Filteranweisungen ab:



With Workbooks("Arbeitsplan2013").Sheets("Arbeitsplan")

.Range("$A$24:$Q$65178").AutoFilter Field:=17, _

Criteria1:=">=" & Start, Operator:=xlAnd, _

Criteria2:="<" & Ende

.Range("$A$24:$Q$65178").AutoFilter Field:=7, _

Criteria1:="A"

.Range("A25:Q65178").SpecialCells(xlCellTypeVisible).Copy _

Workbooks("Daten Holen").Worksheets("Daten").Range("D1")

.AutoFilterMode = False

End With



Mit .AutoFilterMode=false wird der Filter wieder entfernt.



Mit freundlichen Grüßen

Claus

Hello Ms. M, thanks for coming into forums. I'm also a user like you and I'll be more than happy to help you to the best of my knowledge.

Yes, you can check which policy was applied to a user in Microsoft Defender for Cloud Apps by reviewing the audit logs.

To access the audit logs, follow these steps:

-Go to the Microsoft 365 security center.
-Click on the "Threat management" section, and then click on "Audit log search".
-In the "Audit log search" page, you can select "Cloud App Security" as the source and then specify the date range and user account to search for events related to Defender for Cloud Apps.
-Once the events are displayed, you can look for events related to "File upload blocked" or "Policy applied". These events will include information on which policy was triggered and applied.

You can also filter the events by policy name to quickly find the specific policy that was triggered.

Hope this info helps. Feel free to let us know.

Warm Regards,
Myk

Hallo nochmals,



das Filtern geht wesentlich schneller als die Tabelle Zelle für Zelle zu durchlaufen. Trage den vollständigen Namen der Mappe "Arbeitsplan" im Code ein und passe folgenden Code für dich an:



Private Sub Daten_Click()

On Error Resume Next

If Workbooks("Arbeitsplan2013") Is Nothing Then

MsgBox "Die Mappe Arbeitsplan ist nicht geöffnet.", _

vbExclamation, "Programmabbruch"

Exit Sub

End If

With Workbooks("Arbeitsplan2013").Sheets("Arbeitsplan")

.Range("$Q$24:$Q$65178").AutoFilter Field:=1, Criteria1:= _

">=" & .Range("R21").Value2, Operator:=xlAnd, _

Criteria2:="<" & .Range("R22").Value2

.Range("A25:A65178,Q25:Q65178").SpecialCells(xlCellTypeVisible).Copy _

Workbooks("Daten Holen").Worksheets("Daten").Range("D1")

End With

End Sub



Spalte A wird nach Spalte D und Spalte Q nach Spalte E kopiert.



Mit freundlichen Grüßen

Claus