vba code if met left

[RobertHak]

Goedenavond,

Wie kan me helpen met het volgende
onderstaande werkt goed totdat ik het roodgekleurde stukje toegevoegd heb.

ik wil dat de actie uitgevoerd wordt bij waarde "-" of bij de waarde "SP" bij de 2 linker karakters van de tekst. Bijvoorbeeld SP/Olie


If ActiveCell.Offset(0, 17).Value = "-" Or Left(str, 2) = "SP" Then
BatchInfo.TextBox3.Text = ActiveCell.Offset(0, 16) 'opboeken houtsoort
Else
BatchInfo.TextBox3.Text = "-" 'opboeken houtsoort


Alvast bedankt

 

[edmoor]

Vertel ook even wat er fout gaat. Foutmelding?
En waar komt str vandaan.

 

[RobertHak]

als ik de run van de code wil laten uitvoeren krijg ik een foutmelding

Compileerfout

Het Argument is niet optioneel.

die str was een probeersel, weghalen bied geen oplossing.
ik wil de 2 linkse tekens hebben

 

[edmoor]

In het rode gedeelte geef je aan dat je de 2 linker tekens uit str wilt hebben.
Je zult daar dus een stringvariabele of een celverwijzing moeten invullen.

 

[Warme bakkertje]

En de waarde die gecontroleerd moet worden op SP, is dit ook die ActiveCell.Offset(0, 17) of een andere kolom ?

 

[RobertHak]

dat is inderdaad ook de zelfde cel

 

[Warme bakkertje]

TestStr = ActiveCell.Offset(0, 17).Value
If TestStr = "-" Or Left(TestStr, 2) = "SP" Then

 

[RobertHak]

Bedankt. het werkt goed