Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Start für UserForm ändern | Herbers Excel-Forum


Betrifft: Start für UserForm ändern von: Rainer
Geschrieben am: 11.01.2010 20:46:12

Hallo,

habe in einer UserForm folgenden Code:

  • Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    Dim rZelle   As Range
    Dim sFundst  As String
    
       If Trim(TextBox1.Value) = "" Then
          MsgBox "Bitte Thema eingeben!", _
             48, "   Hinweis für " & Application.UserName
          Exit Sub
       End If
       
       With ThisWorkbook.Worksheets("Erfassung(2)").Columns(6)
          Set rZelle = .Find(What:=Trim(TextBox1.Value), LookAt:=xlWhole, LookIn:=xlValues)
          If Not rZelle Is Nothing Then
             sFundst = rZelle.Address
             Do
                ListBox1.AddItem .Range("C" & rZelle.Row).Value
                Set rZelle = .FindNext(rZelle)
             Loop While Not rZelle Is Nothing And rZelle.Address <> sFundst
           Else
             MsgBox "Dieses Thema """ & TextBox1.Value & """  ist nicht vorhanden.", _
                48, "   Hinweis für " & Application.UserName
          End If
       End With
    
    End Sub

  • Habe das Öffnen der UserForm abgeändert, so dass mir in TextBox1 gleich ein Wert aus der Tabelle übernommen wird.

    Nun ist es eigentlich überflüssig, dass ich die ListBox1 durch Verlassen der TextBox aktiviere.

    Was muss ich nun ändern, damit ich gleich beim öffnen die ListBox1 aktiviert habe?

    Gruß Rainer

      

    Betrifft: AW: Start für UserForm ändern von: Ramses
    Geschrieben am: 11.01.2010 22:12:08

    Hallo

    Im VB-Editor deine UF auswählen
    Ansicht - Aktivierreihenfolge
    Schieb die Listbox ganz nach oben

    Gruss Rainer


      

    Betrifft: AW: Start für UserForm ändern von: Rainer
    Geschrieben am: 11.01.2010 22:48:26

    Hallo Ramses,

    wollte schon (fast ohne zu testen) begeistert zurückschreiben.

    Leider klappt das so nicht.

    Denke mal hängt damit zusammen: "_Exit"

    Klicke ich in die TextBox rein und verlasse diese, wird die ListBox aktiviert.

    Habe den Code auch schon mit "UserForm_Initialize" versucht.
    Wollte leider auch nicht.

    Hatte allerdings noch ein anderes Problem.
    Vielleicht mache ich die Erfassung des Feldes schon über die UserForm, dann hat sich die Übergabe auch erledigt.

    Bin heute allerdings auch schon zu lange dran und mache nun Schluß.

    Vielen Dank für Deine Mithilfe und schönen Abend.

    Gruß
    Rainer


      

    Betrifft: AW: Start für UserForm ändern von: Hajo_Zi
    Geschrieben am: 13.01.2010 10:29:07

    Hallo Rainer,

    die meisten sehen Deine Datei nicht und ein Nachbau sieht bestimmt anders aus als das Oroiginal.

    GrußformelHomepage


      

    Betrifft: AW: Start für UserForm ändern von: Rainer
    Geschrieben am: 13.01.2010 15:01:12

    Hallo Hajo,

    vielen Dank auch an Dich. Beigefügt nun eine Mustertabelle.

    Damit nicht im Code nachgeschaut werden muss:
    UF wird mit Auswahl der ersten Auswahlbox geöffnet.

    Ist ja nur eine kleine Formsache; wäre aber schöner, wenn eben ListBox1 der UF auch gleich gefüllt wäre.

    Zudem könnte momentan die Textbox1 noch verändert werden, was ja dann Fehler mit sich bringen würde.

    Deshalb als Idee in der UF rechts, die Auswahlfelder als Alternative.

    Gruß Rainer


    https://www.herber.de/bbs/user/67203.xls


    Beiträge aus den Excel-Beispielen zum Thema "Start für UserForm ändern"