Userform

[Andyle]

Vielen lieben Dank.

Picker ist eingebaut!

[Andyle]

Ich habe die datei um ein UserForm2 für Detailsuche erweitert.

Code:

Code:

Private Sub cbHaus_Change()

Dim Zeile As Long

Me.ListBox1.Clear

For Zeile = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row

    If InStr(1, Tabelle1.Cells(Zeile, 4).Value, Me.cbHaus.Value) <> 0 Then
'    If InStr(1, Tabelle1.Cells(Zeile, 4).Value, Me.TextBox1.Value) <> 0 Then

        Me.ListBox1.AddItem Tabelle1.Cells(Zeile, 1).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Tabelle1.Cells(Zeile, 2).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Tabelle1.Cells(Zeile, 4).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Tabelle1.Cells(Zeile, 5).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Tabelle1.Cells(Zeile, 3).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Tabelle1.Cells(Zeile, 19).Value

    End If

Next Zeile

End Sub

Private Sub TextBox1_Change()

Dim Zeile As Long

Me.ListBox1.Clear

For Zeile = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row

    If InStr(1, Tabelle1.Cells(Zeile, 2).Value, Me.TextBox1.Value) <> 0 Then

        Me.ListBox1.AddItem Tabelle1.Cells(Zeile, 1).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Tabelle1.Cells(Zeile, 2).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Tabelle1.Cells(Zeile, 4).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Tabelle1.Cells(Zeile, 5).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Tabelle1.Cells(Zeile, 3).Value
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Tabelle1.Cells(Zeile, 19).Value

    End If

Next Zeile

End Sub

Private Sub UserForm_Initialize()

Dim Zeile As Long

For Zeile = 1 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row

ColumnHeads = True

Me.ListBox1.AddItem Tabelle1.Cells(Zeile, 1).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Tabelle1.Cells(Zeile, 2).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Tabelle1.Cells(Zeile, 4).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Tabelle1.Cells(Zeile, 5).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Tabelle1.Cells(Zeile, 3).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Tabelle1.Cells(Zeile, 19).Value

Next Zeile

Me.ListBox1.Selected(0) = True

End Sub

Jetzt suche ich eine Lösung den markierten Eintrag (Schadensnummer) in ein anderes UserForm zu übergeben.

Habe jetzt schon etliche Versuche unternommen, aber es führte nicht zum Ziel.

Danke für eure unterstützung

[snb]

Verzichte auf mehreren Userforms, ein reicht schon aus.

[Crazy Tom]

moin,

welcher Eintrag wird wo markiert
und wo soll der eingefügt werden?

mfg Tom

[Andyle]

Die Userform siehe Code wird initialisiert, wenn ich auf einen Eintrag darin klicke (markiere) soll er die
Schadensnummer (    Me.ListBox1.AddItem Format(Tabelle1.Cells(Zeile, 1).Value, "0000")    )
für andere actionen nutzen.

[Crazy Tom]

das wäre ein Weg

Code:

With ListBox1
    If .ListIndex <> -1 Then
        UserForm2.TextBox1.Value = .List(.ListIndex) '<-- Eintrag aus Listbox Spalte1
        UserForm2.TextBox2.Value = .List(.ListIndex, 1) '<-- Eintrag aus Listbox Spalte2
    End If
End With

[Andyle]

Irgendwie funzt es nicht oder ich mache etwas falsch.

[Crazy Tom]

was du gemacht hast, weißt nur du

[Andyle]

Funzt!

Vielen Dank

[Andyle]

@ snb 

Da hast Du recht!

Nur weis ich leider nicht wie!

---

Guten morgen an alle!

Die markierung klappt ja jetzt.

Nur möchte ich die markierung an ein anderes UserForm weitergeben was automatisch die Einträge anzeigt.

Markierung:

Code:

Private Sub CommandButton1_Click()
With ListBox1
    If .ListIndex <> -1 Then
        UserForm1.txt_suche.Value = .List(.ListIndex) '<-- Eintrag aus Listbox Spalte1
        UserForm1.Show
UserForm1.cbSuche = True
       
    End If
End With
End Sub

UserForm1.txt_suche.Value soll in Userform2 eingetragen werden (Funzt)

Nur müsste über Userform1 das Makro Private Sub cbSuche_Click() automatisch gestartet werden.
Noch besser wäre, beim öffnen der UserForm1 (UserForm_Initialize) dass da die Daten schon drin sind