VBA - indsætte tekst automatisk

Hej eksperter

Jeg har en vba kode hvor jeg på helt lavpraktisk har skrevet en masse linjer hvor den skal teste om der skrives q1 eller q2 eller q3 osv. i kolonne D eller E.

Hvis man skriver q1 skal den hente en tekst fra celle B1 i arket "autotekster"
Hvis man skriver q2 skal den hente fra b2
Hvis man skriver q3 skal den hente fra b3 osv.

Dvs. at der er 100% system imellem q-nr. og celle-nr. (1 mod 1, 2 mod 2 osv.)

Jeg har "q" koder fra nr. 1 - 999 og er derfor rendt ind i nogle problemer med længden af min kode (antal linjer)

Er der en af jer eksperter der kan lave en rettelse i min kode, så jeg ikke skal skrive en linje pr. "qkode" jeg har?





Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D:E")) Is Nothing Then

        If Target.Value = "q1" Then Target.Value = Sheets("autotekster").Range("b1").Value
        If Target.Value = "q2" Then Target.Value = Sheets("autotekster").Range("b2").Value
        If Target.Value = "q3" Then Target.Value = Sheets("autotekster").Range("b3").Value
        If Target.Value = "q4" Then Target.Value = Sheets("autotekster").Range("b4").Value
        If Target.Value = "q5" Then Target.Value = Sheets("autotekster").Range("b5").Value
        If Target.Value = "q6" Then Target.Value = Sheets("autotekster").Range("b6").Value
        ' osv.....
End If
End Sub