Office: Like Operator

Sebbi85 · 5. August 2019

Hallo zusammen,

kurze Frage zu dem Like Operator in Excel.
Ich möchte die Werte aus zwei Zellen mit dem Like Operator verknüpfen.

Code:

Sub Test()

Dim val As String

val = Worksheets("Tabelle1").Range("A1").Value
val1 = Worksheets("Tabelle1").Range("C1").Value

If val Like val1 Then

MsgBox "Funktioniert"

Else

MsgBox "Funktioniert nicht"

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich muss bei dem .value noch jeweils die * mitgeben, damit er erkennt, dass die Werte in den Zellen so ähnlich klingen dürfen.

Bei einem String wäre es normalerweise:

If val = "*Hier steht ein Text*" ...

Wo genau kann ich dies einsetzen? Ist dies überhaupt möglich?
Freue mich auf Rückmeldung.

Grüße

Sebbi

:)

aloys78 · 6. August 2019

Hallo Sebbi,

schau mal Like Operator

Gruß
Aloys

Sebbi85 · 7. August 2019

Danke für den Hinweis.

Ich werde daraus aber noch nicht ganz schlau...vielleicht mache ich ja auch ein Denkfehler...

Wenn ich Strings habe, verstehe ich es, wie ich den Like Operator nutze.
Der String steht immer in "". Dort kann ich dann z.B. meine * am Anfang und Ende setzen.

Wenn ich jedoch mir das Value einer Zelle durch VBA Code ausgeben lasse, kann ich doch nirgends die * im String mitgeben, sodass er erkennt, dass ich den Like Operator verwenden möchte..

Worksheets("Tabelle1").Range("A1").Value .... wo kann ich hier meine * setzen?

Über weitere Hilfe wäre ich sehr dankbar.

Muller2 · 7. August 2019

Hallo Sebbi,

na, einfach so:*cool.gif*
Code:

If val Like val1 & "*" Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß, Muller2

Sebbi85 · 7. August 2019

Also wenn ich das so in meinem Code eintrage..

Code:

Sub Test()

Dim val As String

val = Worksheets("Tabelle1").Range("A1").Value
val1 = Worksheets("Tabelle1").Range("C1").Value

If val Like val1 & "*" Then

MsgBox "Funktioniert"

Else

MsgBox "Funktioniert nicht"

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

..zeigt er mir die MsgBox an, dass es nicht funktioniert...hmm

Mase · 7. August 2019

< smallInterrupting >
Kommentar was in Range("A1") und Range("C1") steht wäre hilfreich *wisper.gif
< /smallInterrupting >

knobbi38 · 7. August 2019

Hallo Sebbi,

siehe mal hier:
https://bettersolutions.com/vba/stri...catenating.htm
oder auch hier:
https://docs.microsoft.com/de-de/off...rsand-operator

und schau nochmal beim Like Operator, auf welcher Seite des Operators der zu überprüfende String und das Prüfmuster stehen muß.

Ulrich

Sebbi85 · 7. August 2019

Code:

val = Worksheets("Tabelle1").Range("A1").Value ' Test
val1 = Worksheets("Tabelle1").Range("C1").Value ' Das ist ein Test
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anbei einmal der Zelleninhalt

EarlFred · 7. August 2019

Code:

Option Explicit

Sub Test()

Dim strWort As String
Dim strSatz As String

strWort = "Test" 'Worksheets("Tabelle1").Range("A1").Value
strSatz = "Das ist ein Test" 'Worksheets("Tabelle1").Range("C1").Value

If strSatz Like "*" & strWort & "*" Then
MsgBox "Funktioniert"
Else
MsgBox "Funktioniert nicht"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sebbi85 · 7. August 2019

Perfekt, vielen Dank funktioniert alles! *Smilie

Office: Like Operator

Like Operator

Like Operator

Like Operator

Like Operator

Like Operator - Similar Threads - Like Operator

Filterfunktion mit dynamischen Operatoren(<>=)?

Like im Autofilter möglich

Verwenden einer Sprachausgabe zum LIKEN und Speichern von Nachrichten in Microsoft Teams

Like-Operator funktioniert nicht

Operator: wie oder like in Formel

Suchen von Daten mit dem Kriterium "Wie" (Like)

Like-Operator