Zahl aus einem String erkennen (Ein-Zweistellige)
02.10.2018 09:23:06
Fabio
ich möchte eine Zahl, mit dem Inhalt zwei verschiedener Spalten vergleichen. In Spalte A stehen lauter Werte mit Text und in Spalte B auch. Hier ein Beispiel:
Wert nach dem gesucht werden soll "5".
Spalte A Spalte B
5 Materialkosten 51 Zusatzkosten
8 Fertigungskosten 66 Produktionskosten
Der Aufbau ist immer gleich, links in der Zelle steht eine Zahl und rechts davon ein Text.
Wenn der Wert links ist soll die Variable "links"(boolean") gleich "true" werden. Wenn der Wert rechts dann soll Variable "rechts"(boolean) true werden.
Problem ist jetzt, dass mein Code die 5 auf beiden Seiten findet da die Zahl "51" auch eine "5" beinhaltet.
Wie schaffe ich es dass er wirklich nur den Wert "5" berücksichtigt und nicht auch eine "5" in einer Zahl wie "51".
Hier mein Code:
Value = 5 as Integer
Do Until Sheets("Sheet1").Range("A" & counter) = "" And Sheets("Sheet1").Range("B" & counter) = ""
If InStr(Sheets("Sheet1").Range("B" & counter), CStr(value)) Then
links= True
End If
If InStr(Sheets("Sheet1").Range("C" & counter), CStr(value)) Then
rechts= True
End If
counter = counter + 1
Loop
Danke für eure Hilfe.