also ich hab ne uf wo listbox und textfelder automatisch per knopf druck hinzugefügt werden sollen:
Private newButton As Control
Private WithEvents myComboBox As ComboBox
Private WithEvents myBox As TextBox
Private Sub CommandButton1_Click()
ComboBox1.Clear
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
If UserForm1.TextBox1.Value = True And UserForm1.TextBox2.Value = True Then
tmp = MsgBox("Noch ein Spare Part in den Reperaturplan mit einfügen ?", vbYesNo, "")
End If
If tmp = 6 Then
Set newComboBox = Controls.Add("Forms.ComboBox.1") 'fügt neuen Button ein
newComboBox.Left = 24
newComboBox.Top = 90
newComboBox.Width = 24
newComboBox.Height = 24
Set myComboBox = newComboBox
Set newBox = Controls.Add("Forms.Box.1") 'fügt neuen Button ein
newBox.Left = 24
newBox.Top = 90
newBox.Width = 24
newBox.Height = 24
Set myBox = newBox
End If
End Sub
aber mit textboxen scheint es ja wie oben angegeben nicht zu gehen, da vba dann immer sagt:
"das objekt löst keine automatisierungsereignisse aus"
Ein Objekt muß eine Standard-Quellschnittstelle zur Verfügung stellen, so daß Sie für die zugehörigen Ereignisse Ereignisprozeduren schreiben können. Dieser Fehler hat folgende Ursachen und Lösungen:
Sie haben versucht, eine Ereignisprozedur für ein Ereignis eines Objekt zu schreiben, aber dieses Ereignis ist außerhalb des Objekts nicht verfügbar.
das sagt vba dazu...aber wie kann ich es anders machen!?
habt ihr eine idee!?