erstmal ein Danke schön an Alle, die bei meiner Frage nach einer Uhrzeit in einem Label (Userform) mir geholfen haben. Habe das Beispiel von Sylvio ausprobiert und habe festgestellt, das es gut funktioniert. Allerdings gibt es während meiner zur Zeit immer wieder vorkommenden gewollten Abbrüche aus VBA (zur Fehlerausmerzung) zu undefinierbaren Zuständen innerhalb von Excel und ist dann nicht mehr steuerbar. Habe zu diesem Zweck die Uhrenlösung zur Zeit deaktiviert, werde sie wenn meine Anwendung fertig ist wieder beleben.
Nun zu einem anderen Problem wo ich mit der Hilfe aus VBA einige Probleme habe. Ich möchte folgendes erreichen:
In einer Userform mit einer Multipage soll es möglich sein, zusätzlich durch den Nutzer der Anwendung über einen Button weitere Textboxen in die Multipage 1 einzufügen. Hierzu habe ich in der Hilfe VBA mal gesucht und war erfreut, als ich das folgende Beispiel fand:
Beispiel für Methoden Add, Cut und Paste, Page-Objekt sowie Multiseiten-Steuerelement
Im folgenden Beispiel wird mit Hilfe der Methoden Add, Cut und Paste ein Steuerelement aus einem Page-Objekt eines Multiseiten-Steuerelements (MultiPage) ausgeschnitten und eingefügt. Das beim Ausschneiden und Einfügen verwendete Steuerelement wird dem Formular dynamisch hinzugefügt.
Bei diesem Beispiel wird davon ausgegangen, dass der Benutzer das neue Steuerelement zuerst hinzufügt und dann ausschneidet und einfügt.
Wenn Sie dieses Beispiel verwenden möchten, kopieren Sie diesen Beispielcode in den Bereich Deklarationen eines Formulars. Das Formular muss Folgendes enthalten:
Drei Befehlsschaltfläche-Steuerelemente (CommandButton) mit den Namen CommandButton1, 2 und 3.
Ein Multiseiten-Steuerelement (MultiPage) mit dem Namen MultiPage1.
Dim MyTextBox As Control
Private Sub CommandButton1_Click()
Set MyTextBox = MultiPage1.Pages(MultiPage1.Value).Controls_
.Add("MSForms.TextBox.1", "MyTextBox", Visible)
CommandButton2.Enabled = True
CommandButton1.Enabled = False
End Sub
Private Sub CommandButton2_Click()
MultiPage1.Pages(MultiPage1.Value).Controls.Cut
CommandButton3.Enabled = True
CommandButton2.Enabled = False
End Sub
Private Sub CommandButton3_Click()
Dim MyPage As Object
Set MyPage = _
MultiPage1.Pages.Item(MultiPage1.Value)
MyPage.Paste
CommandButton3.Enabled = False
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Caption = "Add"
CommandButton2.Caption = "Cut"
CommandButton3.Caption = "Paste"
CommandButton1.Enabled = True
CommandButton2.Enabled = False
CommandButton3.Enabled = False
End Sub
Habe dieses Beispiel an einer Versuchsdatei ausprobieren wollen, und habe nicht schlecht gestaunt. Es gibt immer wieder einen Fehler bei der Betätigung des Add Buttons. Der Fehler lautet "ungültige Klassenzeichenfolge".
Kann mir da jemand weiterhelfen? und warum kommt dieser Fehler. Mir erscheint der Lösungsansatz aus der VBA Hilfe eigentlich sinnvoll.
Gruß,
Helmut Palmen