Ich wollte dies hier umsetzen:
Wenn Workbook1 ist Active dann tue das.
Wenn Workbook2 ist Active mache jenes.
Hier nun mein Code:
Sub Abfrage()
Dim Wb As Workbook
Dim Wb2 As Workbook
Set Wb = Workbooks(1)
'Set Wb2 = Workbooks(2)
if Wb is Active then 'if Wb.Active then
MsgBox "Tu dies"
else ' Wb2 Is Active then
MsgBox "Tu das"
End if
End Sub
Jetzt steht da immer Objekt erforderlich, aber was für ein Objekt braucht er denn da?
Wie müsste das richtig lauten?
Wenn ich schreibe: if Wb is Nothing Then
dann kommt zwar nicht der Objectfehler, aber so war es nicht gedacht, denn ein Workbook ist nun mal immer activ, er soll nur erkennen welches es ist durch die if Abfrage und dann jeweils verschiedene Dinge ausgeben.
Beste Grüße
Markus