sonst hat der Code immer funktioniert, warum öffnet der Code die Excelmappe nicht mehr?
Vielen Dank für die Hilfe.
VG Eisi :-)
Dim wbkQuelle As Workbook
Dim wbkZiel As Workbook
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim rngCopy As Range
Dim iZeile As Long
Dim iSpalte As Long
Set wbkQuelle = ActiveWorkbook
'___Prüfen ob Datei "AlleAngebote.xlsm" geöffnet ist, wenn nicht, dann öffne die Datei.____________________________
For Each wbkZiel In Application.Workbooks
If LCase(wbkZiel.Name) = LCase("AlleAngebote.xlsm") Then
Exit For
End If
Next
If wbkZiel Is Nothing Then
Set wbkZiel = Workbooks.Open("AlleAngebote.xlsm")
End If