Frage zu TextBox, die zur Laufzeit erzeugt wird?

Private Sub UserForm_Initialize() Anzahl = ActiveSheet.Range("AN7") If Anzahl = 0 Then Anzahl = 1 For Wiederholungen = 1 To Anzahl Set Neue_TextBox = Terminkategorien.Controls.Add("Forms.TextBox.1") With Neue_TextBox .Height = 20 .Width = 168 .Left = 30 .Top = Wiederholungen * 25 .Visible = True .Text = Cells(Wiederholungen, 41) .ForeColor = &HFF0000 .TextAlign = 2 .Font.Name = "Arial" .Font.Charset = 2 .Font.Underline = True End With Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk,
danke Dir für Deine ANtwort. Ich habe nun mal ein Klassenmodul hinzugefügt, welches auch soweit zum Teil funktioniert. Nun habe ich aber dazu noch eine Frage, muss ich für jedes Textfeld, welches zur Laufzeit erstellt wird, ein eigenes Klassenmodul anölegen? Im Moment funktioniert das Change-Ereignis immer nur bei dem letzten Textfeld. Dabei ist es Egal, wieviele Textfelder eingefügt werden. Wie muss ich dass den machen, dass das Change-Ereignis bei jeder TextBox ausgeführt wird? Ich hoffe, dass Du mir dazu noch mal eine Antwort geben kannst. Nachfolgend noch mal mein Code und das Klassenmodul:


Private Sub UserForm_Initialize()
Anzahl = ActiveSheet.Range("AN7")
If Anzahl = 0 Then Anzahl = 1
For Wiederholungen = 1 To Anzahl
Set Neu = New clsTextfeld
Set Neu.Neue_TextBox = Terminkategorien.Controls.Add("Forms.TextBox.1")
With Neu.Neue_TextBox
.Name = "Eingabe" & Wiederholungen
.Height = 20
.Width = 150
.Left = 30
.Top = Wiederholungen * 25
.Visible = True
.Text = Cells(Wiederholungen, 41)
.ForeColor = &HFF0000
.TextAlign = 2
.Font.Name = "Arial"
.Font.Charset = 2
.Font.Underline = True
End With
End Sub

Code im Klassenmodul mit dem Namen "clsTextfeld":
Option Explicit
Public WithEvents Neue_TextBox As MSForms.TextBox


Private Sub Neue_TextBox_Change()
MsgBox Neue_TextBox.Tag
End Sub

Danke Dir noch mal und schon mal vor weg für Deine Antwort,
Oliver

Hallo Oliver,
bei mir hat er nix reingeschrieben, desswegen ist mir das nicht aufgefallen.

Option Explicit
Private neu() As New clsTextfeld
Private Sub UserForm_Initialize()
    Dim Anzahl As Integer, Wiederholungen As Integer
    Dim myTextbox As TextBox
    Anzahl = ActiveSheet.Range("AN7")
    If Anzahl = 0 Then Anzahl = 1
    ReDim neu(1 To Anzahl)
    For Wiederholungen = 1 To Anzahl
        Set myTextbox = Terminkategorien.Controls.Add("Forms.TextBox.1")
        With myTextbox
            .Name = "Eingabe" & Wiederholungen
            .Height = 20
            .Width = 150
            .Left = 30
            .Top = Wiederholungen * 25
            .Visible = True
            .Text = Cells(Wiederholungen, 41)
            .ForeColor = &HFF0000
            .TextAlign = 2
            .Font.Name = "Arial"
            .Font.Charset = 2
            .Font.Underline = True
            .Tag = Wiederholungen
        End With
        Set neu(Wiederholungen).Neue_TextBox = myTextbox
    Next
    Set myTextbox = Nothing
End Sub

Mehr zu Klassen und überhaupt, findest du hier: http://www.online-excel.de/
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Frage zu TextBox, die zur Laufzeit erzeugt wird?

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Frage zu TextBox, die zur Laufzeit erzeugt wird?

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread