ich möchte einen Bestandteil des Dateinamens (Stdnw_2017.02.xlsm) hieraus 2017.02
mit einem formatierten Datumsfeld: Range("F9"), enthält ebenfalls den Wert 2017.02 - vergleichen.
Mein beigefügter Code läuft leider nicht!
vielleicht kann mir jemand weiterhelfen.
Gruß, Franz
Private Sub Worksheet_Activate()
Dim JahrMonat As String
JahrMonat = Mid(ActiveWorkbook.Name, 7, 7)
If JahrMonat Tabelle01.Range("F9") Then
End If
Exit Sub
' .Range("F9") = Zelle als Datum: 2017.02 (JJJJ.MM)
' ActiveWorkbook.Name = Stdnw_2017.02.xlsm