VBA - Beslissing nemen op basis van de eerste letter

[Joost.van.Steeg]

Ik heb 2 codes:

A(CODE) - bv A05GG
B(CODE) - bv BHH79

Nu wil ik graag dat VBA iets doet als de code begint met een A en iets anders als deze begint met een B:

Zoiets als:

If Format(code, A) = true Then 
      -Code
ElseIf Format(code, B) = true Then
      - Code
End If

 

[Wigi]

Zo Joost:

Sub test()
    Dim sCode As String
    If Left(sCode, 1) = "A" Then
        'je code als A
    ElseIf Left(sCode, 1) = "B" Then
        'je code als B
    End If
End Sub

De variabele sCode bevat de code.

Wigi

 

[Joost.van.Steeg]

En wederom bedankt ! :thumb: