✔ Like Operator

[Arijane]

Guten Morgen zusammen !

Ich möchte Zeilen eines Excel Dokuments mittel "Like" auf einen bestimmten Begriff überprüfen. Nun ist es ja aber so, dass hinter Like Anführungsstriche gehören, und in der Angabe des Workbooks auch Anführungsstriche sind.Wie schreibe ich diese Zeile, ohne dass er mir die Anführungsstriche anmakelt ?

VEingabe Like "*xl.Workbooks(1).Worksheets("Tabelle 1").cells(z, 1).text*"

hmmm... Kann mir einer helfen ?

Danke im Voraus,
Ariane

 

[Dario Linsky]

Hi,

müsste das nicht eigentlich mit einer Escape-Sequenz gehen?

"*xl.Workbooks(1).Worksheets(""Tabelle 1"").cells(z, 1).text*"

"*xl.Workbooks(1).Worksheets(\"Tabelle 1\").cells(z, 1).text*"

Grüße, D.

 

[Arijane]

Danke, es macht den Anschein als würde es funktionieren, tut es aber nicht ;-)
Mir wird keine Fehlermeldung ausgeworfen, aber das Wort wird leider nicht gefunden...
Sonst noch Ideen

 

[Arijane]

Also, das Problem mit den Anführungszeichen kann man durch eine Variable umgehen die man statt Tabelle 1 dort einsetzt. Aber trotzdem funktioniert es immer noch nicht.
Nun wird es ja als kompletter Ausdruck erkannt

VVergleich = VEingabe Like"*xl.Workbooks(1).Worksheets(VString).cells(z, 1).text*"

Wie kann ich denn überprüfen ob ein bestimmter Ausdruck mit dem Text einer Excel Zelle übereinstimmt

Ich freue mich über jede Antwort !!
Danke
Ariane

 

[Arijane]

So, selber geschafft !
Man macht das nicht mit dem Like Operator sondern mit "instr".
...zumindest funktioniert es damit...

Und falls nochmal jemand so etwas sucht, hier mal ein Codebeispiel:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim String1 As String = TextBox1.Text
Dim String2 As String = TextBox2.Text
If InStr(LCase(String2), LCase(String1)) And String2 IsNot "" Then
TextBox3.Text = "True"
Else
TextBox3.Text = "False"
End If
End Sub


Statt Textbox1.text lässt sich problemlos die Exelzellenangabe eingeben.