Hallo,
ich möchte eine Abfrage erstellen beim Start einer Tabelle.
Es soll so sein das "Ist die Tabelle offen dann öffne Tabelle 2"
hier ist der Code mit dem ich das probiere die Abfrage kappt so weit nur ist die Tabelle offen kommt eine Warnmeldung anstatt das sich Tabelle 2 startet.Private Sub Workbook_Open()
Dim abm1 As Workbook
Dim abm2 As Workbook
On Error Resume Next
Set abm1 = Workbooks("d:\netswerkabm\abm1.xlsm")
Set abm1 = Workbooks("d:\netswerkabm\abm2.xlsm")
If Not abm1 Is Nothing Then abm2.Open
On Error GoTo 0
End Sub
|