Groß-und Kleinschreibung bei Suche ingnorieren

[FrankyHB]

Hallo,

ich habe eine Suchabfrage erstellt :


Private Sub SucheVertrag_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Dim i As Long, tLR As Long
Dim ZielWks As Worksheet, QuelleWks As Worksheet

Set QuelleWks = Worksheets("Firmenverträge")
Set ZielWks = Worksheets("Suchergebnis_Firmenverträge")

Worksheets("Suchergebnis_Firmenverträge").Rows("2:" & Worksheets("Suchergebnis_Firmenverträge").Rows.Count).ClearContents

With QuelleWks
    For i = 2 To .Cells(.Rows.Count, 23).End(xlUp).Row
 
        If .Cells(i, 3).Value Like SucheVertrag & "*" Then
          tLR = ZielWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
            Debug.Print tLR
            With ZielWks
            .Range(.Cells(tLR, 1), .Cells(tLR, 7)).Value = QuelleWks.Range(QuelleWks.Cells(i, 1), _
QuelleWks.Cells(i, 7)).Value
            End With
        End If
    Next i
End With

End Sub


Ich möchte jetzt erreichen, das nach dem Firmennamen aus Spalte 3 gesucht wird - ohne das auf Groß- und Kleinschrift geachtet werden muß.

Hat jemand eine Idee?

Gruß Frank

[Kuwer]

Hallo Frank,

wenn Du den Cursor auf Like setzst und dann F1 drückst, sollte doch eine eine Erkärung zum Like-Operator kommen.
Du müsstest die Option Compare-Anweisung auf Text setzen.

Gruß Uwe

[FrankyHB]

Hallo Kuwer,

kannst du das mal konkret ausführen wie das geht.

Gruß Frank

[Steffl]

Hallo Frank,

Code:

'die folgende Zeile muss ganz oben stehen, am besten nach Option Explicit
Option Compare Text
Private Sub SucheVertrag_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

Dim i As Long, tLR As Long
Dim ZielWks As Worksheet, QuelleWks As Worksheet

Set QuelleWks = Worksheets("Firmenverträge")
Set ZielWks = Worksheets("Suchergebnis_Firmenverträge")

Worksheets("Suchergebnis_Firmenverträge").Rows("2:" & Worksheets("Suchergebnis_Firmenverträge").Rows.Count).ClearContents

With QuelleWks
    For i = 2 To .Cells(.Rows.Count, 23).End(xlUp).Row

        If .Cells(i, 3).Value Like SucheVertrag & "*" Then
          tLR = ZielWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
            Debug.Print tLR
            With ZielWks
            .Range(.Cells(tLR, 1), .Cells(tLR, 7)).Value = QuelleWks.Range(QuelleWks.Cells(i, 1), _
QuelleWks.Cells(i, 7)).Value
            End With
        End If
    Next i
End With

End Sub

oder du verwendest die Find-Methode, da brauchst Du nicht die ganzen Zeilen durchlaufen.

[Cadmus]

**gelöscht** schon beantwortet.

[FrankyHB]

das klappt leider nicht,

wenn ich das einfüge bekomme ich eine Fehlermeldung.

Den VBA-Code habe an ein ActivX-Steuerelement (TextBox) als KeyUp Ereignis hinterlegt.

[Steffl]

Hallo Frank,

und wie lautet die Fehlermeldung? Könntest vielleicht die Datei hier hochladen?

[FrankyHB]

Ich möchte eigentlich nur erreichen, das wwenn ich in die ComboBox1 z.B. den Buchstaben "B" eingebe, das nach allen Firmen die mit "B" oder "b" anfangen gesucht wird.

Gibt es dafür keine Lösung ?

Gruß Frank

[Steffl]

Hallo,

in deinen vorherigen Beitrag sprachst Du von einer Textbox, jetzt von einer ComboBox. Eingetragen wird es aber laut deinem Code in einer Tabelle. Was jetzt? Bei einer ComboBox gibt es die MatchEntry-Eigenschaft. Was für eine Eigenschaft hat sie bei dir?

[FrankyHB]

Hallo,

ich habe mal die Beispieldatei angehängt, vielleicht wird es dann klarer.

Gruß Frank