habe ein Problem meine MsgBox zu im Makro positionieren, damit sie zur richtigen Zeit auch ausgelöst wird!
Zur Info:
Ich habe ein Makro, mit dem ich bestimmte Blätter von der einen Datei in eine andere kopiere (Voraussetzung ist, dass beide geöffnet sind).
Wenn jetzt die eine nicht geöffnet ist, soll die MsgBox erscheinen!
Mein Makro:
Private Sub cmdOK1_Click()
Dim TableCount As Integer
Dim DeinText As String
Dim i As Byte
On Error Resume Next
If Err = 9 Then
MsgBox "Das Datenblatt muss erst geöffnet werden"
GoTo ende
Else
HIER WERDEN DIE BLÄTTER VON DER EINEN IN DIE ANDERE DATEI KOPIERT!
End If
ende:
Workbooks("Ölfiltration.xls").Worksheets("Data sheet").Activate
Workbooks("Neu_Öl.xls").Worksheets("Datenblatt").Activate
Unload Me
End Sub
Danke im Voraus!
LG Chris