Verwendung von Like in If-Abfrage

[tragger]

Hallo Leute,

habe mal wieder ein Problem, an dem ich verzweifle.
Bitte nicht wundern, dass es keinen Sinn ergibt. Aber ich versuche etwas zu testen um es dann in den Programmablauf einzubauen.

Hier der Code:

Code [Auswählen] Erweitern

Private Sub Befehl16_Click()
Dim tester As String
tester = "20110011"
MsgBox tester
    If ((Me.Verwendungszweck Like "*Rück*") And (Me.Verwendungszweck Like "*Gebühr*")) Then
        MsgBox "Jo"
    ElseIf Me.Verwendungszweck Like "* & 'tester' & *" Then
        MsgBox "jojojojojo"
    Else
        MsgBox "No"
    End If
End Sub

Ich habe mein Problem im Bereich ElseIf. Ich möchte den Inhalt meines Verwendungszwecks mit dem Inhalt des Strings tester vergleichen. Dieser String wird im Verwendungszweck aber irgendwo in der Mitte sein.

Wie kann ich das lösen?

[DF6GL]

Hallo,

Du wirfst genaugenommen etwas durcheinander:

Ich möchte den Inhalt meines Verwendungszwecks mit dem Inhalt des Strings tester vergleichen

müsste  heißen:

Ich möchte den Inhalt des Textfeldes  Verwendungszweck mit dem Inhalt dem Inhalt der String-Variablen  tester vergleichen.


und dazu die Codezeile:

ElseIf Me.Verwendungszweck Like "*" & tester & "*" Then

[tragger]

thx, das meinte ich und das ist die Lösung!!