Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1884to1888

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

VBA "As Control"

Forumthread: VBA "As Control"
4 Beiträge zu diesem Forumthread
Anzeige
300 Threads zu ähnlichen Themen
Excel Dialoge
Top 100 Forumthreads

VBA "As Control"

19.06.2022 13:03:26

Joschi

Hallo Forum,
in einem Beispiel, das ich im Internet in Verbindung mit "Userform dynamisch erstellen" gefunden habe. gibt es folgende Definition:
Dim tboxen As Control
Später wird diese Variable wie folgt verwendet:
Set tboxen = myForm.Designer.Controls.Add
Bei der Ausführung erhalte ich die Fehlermeldung "Benutzerdefinierter Type nicht definiert"
Welcher Verweis fehlt mir? Bisher hatte ich zusätzlich "Microsoft Visual Basis for Appliacions Extensibility" aktiviert.
Gruß Joschi

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA "As Control"

19.06.2022 13:47:07

Alwin
AW: VBA "As Control"

19.06.2022 15:11:23

Joschi
AW: VBA "As Control"

19.06.2022 13:54:38

Nepumuk
AW: VBA "As Control"

19.06.2022 15:13:12

Joschi

AW: VBA "As Control"

19.06.2022 13:47:07

Alwin

Hallo Joschi,
da fehlt noch was hinten dran:


Set tboxen = myForm.Designer.Controls.Add("Forms.TextBox.1", "TextBox1", True)

ich gehe mal davon aus myForm ist die Userform und Designer ein Rahmen oder so was.
Falls das so nicht ist, dann:


Set tboxen = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox1", True)

Wenn du mehrere Textboxen erzeugen willst, kann man das mit einer For/Next Schleife machen:


Option Explicit
Private Sub UserForm_Initialize()
TextboxenErzeugen
End Sub
Private Sub TextboxenErzeugen()
Dim tboxen As Control, i As Long, lngTop As Long
lngTop = 30
For i = 1 To 6
Set tboxen = UserForm1.Controls.Add("Forms.TextBox.1", "TextBox" & i, True)
With tboxen
.top = lngTop + 20
.Left = 20
lngTop = .top
End With
Next i
End Sub

Gruß Uwe

AW: VBA "As Control"

19.06.2022 15:11:23

Joschi

Hallo Uwe.
Mein Problem war nicht die SET-Anweisung, sondern bereits die Definition als "as Control".
Ich wollte auch nicht den kompletten Code kopieren.
Gruß Joschi

AW: VBA "As Control"

19.06.2022 13:54:38

Nepumuk

Hallo Joschi,
dafür brauchst du einen Verweis auf die FM20.dll. Den erzeugst du, indem du einmal ein UserForm in dein Projekt einfügst. Das kannst du anschließend wieder löschen. Wenn du das nicht willst, dann musst du tboxen als neutrales Objekt (Dim tboxen As Object) deklarieren.
Gruß
Nepumuk

AW: VBA "As Control"

19.06.2022 15:13:12

Joschi

Hallo Nepumuk.
Danke für den Hinweis. Habe den Verweis aktiviert, und der Code funktioniert nun.
Allerdings habe ich ein Problem mit FM20.DLL. Doch dafür mache ich einen eigenen Tread auf.
Gruß Joschi