VBA Problem
09.05.2005 08:04:28
Josef
Ich habe in einem Modul folgenden Text stehen:
UserForm1.TextBox164 = Format(Mid(Range("a65536").End(xlUp), 16, 5) + 1, "00000")
UserForm1.ComboBox4 = Format(Mid(Range("a65536").End(xlUp), 14, 2) - 1, "00")
UserForm1.ComboBox3 = Format(Mid(Range("a65536").End(xlUp), 12, 2) - 4, "00")
UserForm1.Frame1.Visible = False 'Sart 00
UserForm1.Frame12.Visible = True 'Kopfsatz
UserForm1.Frame11.Visible = False ' Sart 99
UserForm1.Frame2.Visible = True
UserForm1.Frame3.Visible = False
UserForm1.Frame5.Visible = False
UserForm1.Frame14.Visible = False
Unter UserForm_Activate steht folgendes drin:
Private Sub UserForm_Activate()
Frame1.Visible = True 'Sart 00
Frame2.Visible = False 'Sart 01
Frame3.Visible = False 'Sart 02
Frame5.Visible = False 'Sart 3/1
Frame11.Visible = False 'Sart 99
Frame12.Visible = True 'Kopfsatz
Frame14.Visible = False 'Sart 3/2
End Sub
Wenn ich jetzt das Modul aufrufe so wird immer wieder Frame11 und nicht Frame2 aktiviert. Wäre es besser, den Text von Userform_Activate in UserForm_Initialize
umzusiedeln?
Josef