Fehler im VBA Code
14.04.2006 10:58:21
Josef
Beim Aufruf meiner UserForm erhalte ich die Fehlermeldung
Function oder Variable erwartet und "Activate" wird markiert.
Was habe ich hier bitte falsch gemacht?
Danke
Josef
Private Sub UserForm_Initialize()
If Workbooks("HAPO-ÖVAG_2006.xls").Activate Then
UserForm1.MultiPage1.Value = 3
Else
If Workbooks("GL-ÖVAG 2006.xls").Activate Then
UserForm1.MultiPage1.Value = 2
Else
If Workbooks("GL-PSK 2006.xls").Activate Then
UserForm1.MultiPage1.Value = 2
Else
If Workbooks("VP-ÖVAG 2006.xls").Activate Then
UserForm1.MultiPage1.Value = 1
Else
If Workbooks("VPSU-ÖVAG 2006.xls").Activate Then
UserForm1.MultiPage1.Value = 0
End If
End If
End If
End If
End If
End Sub