Im unteren Code möchte ich eine MsgBox setzen,wenn
wkb2 = Workbooks("Schichtplan KE-Mechaniker.xlsm")
Nicht geöffnet ist.
Leider habe ich ein Problem,mit der richtigen Setzung der MsgBox.
Könnte mir dazu bitte jemand weiterhelfen?
Sub Transponieren()
Application.EnableEvents = False
Application.ScreenUpdating = False
Dim WsDatei As Workbook, BoVor As Boolean
Dim wkb1 As Workbook, wkb2 As Workbook
For Each WsDatei In Workbooks
If WsDatei.Name = "Schichtvorlage KE-Mechaniker.xlsm" Then
BoVor = True
End If
Next
If BoVor Then
BoVor = False
For Each WsDatei In Workbooks
If WsDatei.Name = "Schichtvorlage KE-Mechaniker.xlsm" Then 'Neu Schichtplan KE-Mechaniker.xlsm
BoVor = True
End If
Next
If BoVor Then
Set wkb1 = Workbooks("Schichtvorlage KE-Mechaniker.xlsm") 'Neu Schichtvorlage KE-Mechaniker.xlsm
End If
Else
MsgBox "Zuerst Schichtplan KE-Mechaniker.xlsm öffnen."
End If
Exit Sub
End If
Set wkb2 = Workbooks("Schichtplan KE-Mechaniker.xlsm") 'Schichtplan KE-Mechaniker.xlsm
Danke,Heinz