Mehrspaltige Listbox in verschieden Textboxen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hi Rene
du benötigst dazu noch
1 command button SUCHE
1 LISTBOX1
1 LISTBOX2
1 COMBOBOX1
alles in userform1
und die text felder müssen 1-11 benannt sein
dann kanst du in der userform suchen und in den textboxen
erscheinen dann die eintrage vornam  und so weiter.

'suchen
  Private Sub Suche_Click()
      On Error Resume Next
    If Err.Number <> 0 Then
        MsgBox "Kein Eintrag vorhanden!", vbCritical, "Schreiben Sie was rein"
   End If
           Dim e As String

           Dim s As String
            Dim Found As Range
             Dim FirstAddress As String
              Dim i As Integer    ' Zeile
                i = 0
    If ComboBox1.Text = "" Then
        MsgBox "Kein Eintrag vorhanden!", vbCritical, "Was soll ich den suchen?"
        Suche.SetFocus
     Else
    End If
           e = ComboBox1.Text
          If e = "" Then Exit Sub
           ListBox1.Clear
           ListBox2.Clear
    With ActiveSheet
        Set Found = .Cells.Find(e, LookAt:=xlPart)
        If Not Found Is Nothing Then
            FirstAddress = Found.Address
            ListBox1.ColumnCount = 1
            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
    Suche.Caption = "Neue Suche"
    End Sub

Private Sub CommandButton3_Click()

    Dim warnung As String
     Dim index As Long, MyControl As Control
     warnung = MsgBox(" wirklich löschen ?", vbYesNo + vbQuestion + vbDefaultButton2, "Löschen")
    If warnung = vbYes Then
      loeschen = True
      End If
     If warnung = vbNo Then
      Exit Sub
      End If
    If TextBox1 <> "" Then
        Rows(zeile).Delete Shift:=xlShiftUp
        ListBox2.RemoveItem (ListBox2.ListIndex)
        ListBox1.RemoveItem (ListBox1.ListIndex)
        If ListBox2.ListIndex < ListBox2.ListCount - 1 Then
            For index = ListBox2.ListIndex To ListBox2.ListCount - 1
                ListBox2.List(index) = ListBox2.List(index) - 1
            Next
        End If
        For Each MyControl In Me.Controls
             If TypeName(MyControl) = "TextBox" Then MyControl = ""
        Next
        ListBox1.ListIndex = -1
        ListBox2.ListIndex = -1
    End If
    loeschen = False
End Sub
'Hier erfolgt die Ausgabe des gesuchten
'in  der ListBox1

   Private Sub ListBox1_Click()
    Dim index As Integer
    If Not loeschen Then
        ListBox2.ListIndex = ListBox1.ListIndex
        zeile = ListBox2.List(ListBox2.ListIndex)
        For index = 1 To 11
            Me.Controls("TextBox" & CStr(index)).Value = Cells(zeile, index)
        Next
    End If
End Sub
noch fragen??
gruss
ivan

Beliebteste Forumthreads (12 Monate)

Mehrspaltige Listbox in verschieden Textboxen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mehrspaltige Listbox in verschieden Textboxen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread