mehrer Einträge in Textbox

Hallöle. Ich hoffe ihr könnt mir weiterhelfen. Ich möchte über eine Freitextsuche in einer Userform eine Tabelle durchsuchen. Die passenden Einträge werden rot markiert und werden dann in einer neuen Userform in einer Textbox angezeigt. So weit so gut. Nur wird mir nur der erste Rote wert angezeigt. Wo habe ich hier meinen Fehler? Könnt ihr mir weiterhelfen?
Code für Userform 1:

Private Sub Störung_suchen_Click()
Dim rngSuchErgebnisGesamt As Range
Dim rngSuchErgebnisEinzel As Range
Dim Suchtext As String
Dim sh As Worksheet
Suchtext = TextBox3
Set sh = ActiveSheet
Set rngSuchErgebnisEinzel = sh.Cells.Find(what:=Suchtext, lookat:=xlPart, LookIn:=xlValues)
If rngSuchErgebnisEinzel Is Nothing Then
MsgBox "Der Suchbegriff konnte nicht gefunden werden"
Else
Set rngSuchErgebnisGesamt = rngSuchErgebnisEinzel
Do
Set rngSuchErgebnisEinzel = sh.Cells.FindNext(after:=rngSuchErgebnisEinzel)
If Intersect(rngSuchErgebnisEinzel, rngSuchErgebnisGesamt) Is Nothing Then
Set rngSuchErgebnisGesamt = Union(rngSuchErgebnisEinzel, rngSuchErgebnisGesamt)
Else
Exit Do
End If
Loop
rngSuchErgebnisGesamt.Interior.ColorIndex = 3
Range("A2").Select
ActiveCell.FormulaR1C1 = "=Versuch_3"
Range("A3").Select
End If
Z = Sheets(1).UsedRange.Rows.Count
For i = 1 To Z
If Cells(i, 1) = 3 Then
temp = 1
Exit For
End If
Next
If temp = 1 Then
Unload Me
zeile = i
UserForm2.Show
Else
MsgBox " Fehler oder Störung nicht vorhanden ", vbExclamation
TextBox3 = ""
End If
End Sub

bei der zweiten Userform sieht er dann so aus:

Private Sub UserForm_Initialize()
TextBox1 = Cells(zeile, 2)
TextBox2 = Cells(zeile, 3)
TextBox3 = Cells(zeile, 4)
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Benni,
in deinem Modul1.

Public gobjRange As Range

im UserForm:

Private Sub Störung_suchen_Click()

    Dim rngSuchErgebnisGesamt As Range
    Dim rngSuchErgebnisEinzel As Range

    Set rngSuchErgebnisEinzel = Cells.Find(what:=TextBox3.Text, _
        LookAt:=xlPart, LookIn:=xlValues, MatchCase:=False)

    If rngSuchErgebnisEinzel Is Nothing Then
        MsgBox "Der Suchbegriff konnte nicht gefunden werden", vbExclamation, "Hinweis"
    Else
        Set rngSuchErgebnisGesamt = rngSuchErgebnisEinzel
        Do
            Set rngSuchErgebnisEinzel = Cells.FindNext(After:=rngSuchErgebnisEinzel)
            If Intersect(rngSuchErgebnisEinzel, rngSuchErgebnisGesamt) Is Nothing Then
                Set rngSuchErgebnisGesamt = Union(rngSuchErgebnisEinzel, rngSuchErgebnisGesamt)
            Else
                Exit Do
            End If
        Loop
    End If

    Set gobjRange = Intersect(Columns(2), rngSuchErgebnisGesamt)

    Set rngSuchErgebnisGesamt = Nothing
    Set rngSuchErgebnisEinzel = Nothing

    If Not gobjRange Is Nothing Then
        Unload Me
        UserForm2.Show
    Else
        MsgBox "Fehler oder Störung nicht vorhanden", vbExclamation, "Hinweis"
        TextBox3.Text = ""
    End If
End Sub

im UserForm2:

Private Sub UserForm_Initialize()
    Dim objCell As Range
    For Each objCell In gobjRange
        With objCell
            TextBox1.Text = TextBox1.Text & .Text & vbLf
            TextBox2.Text = TextBox2.Text & Cells(.Row, 3).Text & vbLf
            TextBox3.Text = TextBox3.Text & Cells(.Row, 4).Text & vbLf
        End With
    Next
    Set gobjRange = Nothing
End Sub

Gruß
Nepumuk

If Not Application.Intersect(Target, rngDV) Is Nothing Then Application.EnableEvents = False wertnew = Target.Value Application.Undo wertold = Target.Value Target.Value = wertnew If wertold "" Then If wertnew "" Then If Right(wertold, Len(wertnew)) = wertnew Then MsgBox "nicht möglich", vbCritical Application.EnableEvents = True Target.Value = wertold Exit Sub End If If wertold wertnew Then Target.Value = wertold & "; " & wertnew

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mehrer Einträge in Textbox

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread