Userformabfrage zwei Bedingungen

Hallo,
ich habe eine Userform, die sich mit werten aus mehreren Tabellen befüllt sobald in eine Nummer eingegeben wird.
Zum Beispiel gebe ich die Objektnummer 1001 ein, die wird in den verschiedenen Tabellen gesucht und die Daten aus den Zeilen werden in die Userform übernommen. jetzt möchte ich aber gerne aus mehreren Tabellen eine machen. Heißt in der Tabelle würde dann 3 mal unter einander die 1001 stehen, da ich 3 unterschiedliche Verträge habe. Es soll also zuerst nach der 1001 und dann nach der Vertragsart gesucht werden. Mein Problem ist aber, das immer nur die erste Zeile in dem die 1001 vorkommt, gefunden wird,
Es soll aber wenn 1001 gefunden wurde und die zweite Bedingung falsch ist, weitersuchen. Solange bis die Zeile gefunden wurde, wo auch die zweite Bedingung erfüllt wird.
hat hier jemand eine Lösung?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Philipp,
teste mal:

Private Sub T_BUKR_Change()

    Dim lngSuch As Long
    Dim strFirstAddress As String
    Dim objCell As Range

    If IsNumeric(T_Bukr.Text) Then

        With Worksheets("Ziel") ' Anpassen !!!

            lngSuch = Clng(T_Bukr.Text)

            Set objCell = .Columns(1).Find(What:=lngSuch, LookIn:=xlValues, LookAt:=xlWhole)
            If Not objCell Is Nothing Then

                strFirstAddress = objCell.Address

                Do

                    Select Case objCell.Offset(0, 3).Text

                        Case "TFM"

                            T_TFM_DL.Text = objCell.Offset(0, 1).Text
                            T_TFM_Start.Text = objCell.Offset(0, 2).Text
                            T_TFM_Betrag.Text = objCell.Offset(0, 4).Text

                        Case "UHR"

                            T_UHR_DL.Text = objCell.Offset(0, 1).Text
                            T_UHR_Start.Text = objCell.Offset(0, 2).Text
                            T_UHR_Betrag.Text = objCell.Offset(0, 4).Text

                        Case "Außen"

                            T_Außen_DL.Text = objCell.Offset(0, 1).Text
                            T_Außen_Start.Text = objCell.Offset(0, 2).Text
                            T_Außen_Betrag.Text = objCell.Offset(0, 4).Text

                    End Select
                    Set objCell = .Columns(1).FindNext(After:=objCell)

                Loop Until objCell.Address = strFirstAddress
            Else

                T_TFM_DL.Text = vbNullString
                T_TFM_Start.Text = vbNullString
                T_TFM_Betrag.Text = vbNullString
                T_UHR_DL.Text = vbNullString
                T_UHR_Start.Text = vbNullString
                T_UHR_Betrag.Text = vbNullString
                T_Außen_DL.Text = vbNullString
                T_Außen_Start.Text = vbNullString
                T_Außen_Betrag.Text = vbNullString

            End If
        End With
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userformabfrage zwei Bedingungen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread