Thema Datum  Von Nutzer Rating
Antwort
30.05.2019 12:13:39 Vanni738
NotSolved
30.05.2019 19:13:18 Gast82506
NotSolved
Rot UserForm erweitern + Scroll Bar
31.05.2019 01:30:37 Steffen108
NotSolved

Ansicht des Beitrags:
Von:
Steffen108		 Datum:
31.05.2019 01:30:37		 Views:
403		 Rating:
     
Antwort:
  Ja
Thema:
UserForm erweitern + Scroll Bar

Erzeugen neuer Controls:
https://docs.microsoft.com/de-de/office/vba/language/reference/user-interface-help/add-method-microsoft-forms

Mein Vorschlag für dein Vorhaben:

  • Die modulweite Variable bytTB ist der Zähler für die Namen der Textfelder, die hinzugefügt werden (tbEingabe1 als Textfeld existiert schon in der Userform)
  • Beim Aktivieren der Form starten wir immer mit den Standardwerten


Private bytTB As Byte
Private intHeight As Integer

Private Sub UserForm_Activate()
    
    bytTB = 2
    intHeight = 0.875 * Me.Height
    
    With Me
        ' Scrollbar einstellen
        .KeepScrollBarsVisible = fmScrollBarsNone
        .ScrollBars = fmScrollBarsNone
        
        ' Bereich einstellen
        .ScrollHeight = intHeight
    End With

End Sub

Private Sub CommandButton1_Click()
    
    With Me
        ' Neue Textbox erstellen
        .Controls.Add "Forms.TextBox.1", "tbEingabe" & CStr(bytTB), True
        
        ' Textbox ausrichten
        If bytTB > 1 Then
            With .Controls("tbEingabe" & CStr(bytTB))
                .Top = Me.Controls("tbEingabe" & CStr(bytTB - 1)).Top + 20
                .Left = Me.Controls("tbEingabe" & CStr(bytTB - 1)).Left
            End With
            
            ' Bereich einstellen
            If .Controls("tbEingabe" & CStr(bytTB)).Top + .Controls("tbEingabe" & CStr(bytTB)).Height >= intHeight Then
                .KeepScrollBarsVisible = fmScrollBarsBoth
                .ScrollBars = fmScrollBarsVertical
                .ScrollHeight = .ScrollHeight + 20
            End If
        End If
        
        ' Zähler erhöhen
        bytTB = bytTB + 1
    End With

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.05.2019 12:13:39 Vanni738
NotSolved
30.05.2019 19:13:18 Gast82506
NotSolved
Rot UserForm erweitern + Scroll Bar
31.05.2019 01:30:37 Steffen108
NotSolved