Verknüpfung Textfeld und Kombinationsfeld

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi
also ich verwende das hier !!!
IST ECHT SUPER
'Aufbau: (UserForm)
'- 2 CommandButton (ComandButton1/CmdAbbruch)
'- 6 TextBoxen (txtAngebotNr/txtDatum/txtKunde/ect..)
'- 2 Listboxen (ListBox1/ListBox2)

Private Sub CmdAbbruch_Click()
    Unload Me
End Sub
Private Sub CommandButton1_Click()
    Dim s As String
    Dim Found As Range
    Dim FirstAddress As String
    Dim I As Integer    ' Zeile
    I = 0
    If txtSuche.Text = "" Then
        MsgBox "Kein Eintrag vorhanden!", vbCritical, "Was soll ich den suchen?"
        txtSuche.SetFocus
            Else
    End If
    Eingabe = txtSuche.Text
    If Eingabe = "" Then Exit Sub
    ListBox1.Clear
    ListBox2.Clear
    With ActiveSheet
        Set Found = .Cells.Find(Eingabe, LookAt:=xlPart)
        If Not Found Is Nothing Then
            FirstAddress = Found.Address
            ListBox1.ColumnCount = 2
            ListBox1.AddItem Found
            ListBox1.List(I, 1) = Cells(Found.Row, 13)
            ListBox2.AddItem Found.Row
            I = I + 1
            Do
                Found.Activate
                Set Found = Cells.FindNext(After:=ActiveCell)
                On Error Resume Next
                If Found.Address = FirstAddress Then Exit Do
                ListBox1.AddItem Found
                ListBox1.List(I, 1) = Cells(Found.Row, 13)
                ListBox2.AddItem Found.Row
                I = I + 1
            Loop
        End If
    End With
    CommandButton1.Caption = "Neue Suche"
End Sub
'##############################
'Hier erfolgt die Ausgabe des gesuchten
'in einer TextBox per Auswahl in der ListBox
Private Sub ListBox1_Click()
    If ListBox1.Value <> "" Then
        On Error Resume Next
        ListBox2.ListIndex = ListBox1.ListIndex
        txtAngebotNr = Cells(ListBox2.Value, 2)
        txtDatum = Cells(ListBox2.Value, 3)
        txtKunde = Cells(ListBox2.Value, 5)
        txtOrt = Cells(ListBox2.Value, 10) & " " & Cells(ListBox2.Value, 11)
        txtGesamtPreis = Cells(ListBox2.Value, 20) & " "
        txtAuftragswert = Cells(ListBox2.Value, 21) & " "
    End If
End Sub
'#################################
'Hier wird die betreffende Zeile markiert bei
'einem Doppelklick
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    If ListBox1.Value <> "" Then
        On Error Resume Next
        ListBox2.ListIndex = ListBox1.ListIndex
        Rows(ListBox2.Value).Select
    End If
End Sub
Private Sub UserForm_Activate()
        CommandButton1.Caption = "Suche"
End Sub

VIEL SPASS
ivan

Code eingefügt mit Syntaxhighlighter 1.16

Beliebteste Forumthreads (12 Monate)

Verknüpfung Textfeld und Kombinationsfeld

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread