UserForm anzeigen funktioniert nicht
21.06.2005 22:26:04
Marcel
Habe ein grösseres Projekt mit ca. 50 UserForms. Nun haben wir bei einer UF folgenden Effekt, den wir uns nicht erklären können:
Wird die UF direkt angesprochen über den Befehl UF.show funktioniert alles einwandfrei und alle Daten werden richtig gezogen und angezeigt.
Nun haben wir eine Situation, in der die Folge der UF dynamisch bestimmt wird. Zu dem Zweck haben wir (mit Hilfe des Forums) folgenden Code erstellt:
Dim OK As String '
Sheets("EVENTS").Select
Range("A32").End(xlUp).Offset(1, 0).Select
OK = ActiveCell.Offset(-1, 1).Text
If OK = "Form30" Then
Sheets("Sales-MP2").Select
Range("A32").End(xlUp).Offset(1, 0).Select
If ActiveCell.Offset(0, 100).Value = "Yes" Then
Sheets("EVENTS").Select
If Range("A17").Value = 9999 Then
Form30.Show
Else
UserForm7.Show
End If
Else
If Range("A17").Value = 9999 Then
Form31.Show
Else
UserForm7.Show
End If
End If
Else
UserForms.Add(OK).Show
End If
Obiger Code funktioniert eigentlich auch - es wird die richtige UF ermittelt und angezeigt. Jedoch werden die Daten, die innerhalb der UF durch UserForm_Activate() gezogen werden sollten, nicht angezeigt. Wie oben gesagt, wenn wir das UF direkt ansprechen, d.h. Form30.Show - statt über die Variable OK, die dynamisch gezogen wird, funktioniert es.
Hat jemand eine Idee, woran das liegen kann?
Vielen Dank und schöne Grüsse
Marcel