Suchfunktion mit Fast Path?!

Hallo Zusammen,
vor einiger Zeit hatte ich schonmal einen Beitrag dazu verfasst und die vorgeschlagen Antworten/Lösungen haben super funktioniert,
aber ich hätte es jetzt gern noch etwas anders... Danke nochmal an dieser Stelle.

https://www.herber.de/forum/cgi-bin/callthread.pl?index=1929830

Ich habe ein Lexikon mit Deutsch / Englisch Übersetzung.
Auf einer Startseite möchte ich de/en oder en/de auswählen können.
Und dann würde ich gern über ein Textfeld oder ähnliches mein zu suchenden Begriff eingeben... wenn möglich, dass schon Wörter vorgeschlagen werden, wenn ich zwei oder drei Buchstaben eingegeben habe (ob dies überhaupt möglich ist)... Ich meine ich habe mal was über Fast Path gelesen?!
und als Ausgabe sollen dann alle Übersetzungen angezeigt werden. Manchmal haben einige Wörter verschiedene Bezeichnungen und diese würde ich dann auch gern anzeigen lassen.

Vielleicht hat jemand noch eine weitere Idee... vielen Dank schonmal vorab.

VG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...eine Frage hätte ich jetzt doch... und das bekomme ich nicht hin...
ich hätte die Ausgabe gern in I12 und nicht in D17... und dann auch nur mit 2 Spalten...

Könntest Du mir das nochmal erklären... das was ich im Code geändert habe, funktioniert nicht. Ich kann leider auch die Arbeitsmappe nicht hochladen.
Hab schon alles probiert.

Private Sub TextBox1_Change()
Dim i&, j&, k&, tmp, arrList(), arrFilter()
    ListboxLaden
    With Sheets("Input")
        arrList = .LBtest1.List
        For i = 0 To UBound(arrList)
            For j = 0 To UBound(arrList, 2)
                tmp = tmp & "~" & arrList(i, j)
            Next j
            If InStr(1, LCase(tmp), LCase(TextBox1.Text)) > 0 Then k = k + 1
            tmp = ""
        Next i
        If k = 0 Then
            .LBtest1.Clear
            Exit Sub
        End If
        ReDim arrFilter(0 To k - 1, 0 To UBound(arrList, 2))
        k = 0
        For i = 0 To UBound(arrList)
            For j = 0 To UBound(arrList, 2)
                tmp = tmp & "~" & arrList(i, j)
            Next j
            If InStr(1, LCase(tmp), LCase(TextBox1.Text)) > 0 Then
                For j = 0 To UBound(arrFilter, 2)
                    arrFilter(k, j) = arrList(i, j)
                Next j
                k = k + 1
            End If
            tmp = ""
        Next i
        .LBtest1.List = arrFilter
    End With
    With Tabelle1
        .Range("I13:J" & .Cells(Rows.Count, 2).End(xlUp).Row).ClearContents
        .Cells(17, 4).Resize(UBound(arrFilter, 1) + 1, UBound(arrFilter, 2) + 1) = arrFilter
    End With
End Sub

Wenn DU mir das nochmal erklären könntest, wäre das großartig. DAnke für Deine Mühe.

LG Sandra

Sub ListboxLaden() Dim arrTab() With Sheets("Archiv") arrTab = .Range("A2:B" & .Cells(Rows.Count, 1).End(xlUp).Row).Value End With With Sheets("Eingabe").LBtest1 .ColumnCount = 4 .ColumnWidths = "80;80;80;80" .ColumnHeads = False .List = arrTab End With End Sub

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchfunktion mit Fast Path?!

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread