Habe ich es doch befürchtet.  

Dann fällt mir eigentlich nur eine solche Lösung ein:

\'Zur Eingabe des Codes im VBA-Editor auf das Blatt mit dem Dropdown doppelklicken.
\'Code dann in das aufgerufene Modul einfügen.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objGefunden As Object

\'Anpassen: Zelle mit dem Dropdown:
If Target.Address(False, False) = \"E4\" Then
    
    \'Anpassen: Bereich mit den Ländernamen:
    Set objGefunden = Sheets(\"Tabelle1\").Range(\"A1:A3\").Find(Target, lookat:=xlWhole)
    
    If Not objGefunden Is Nothing Then
        Application.EnableEvents = False
        
        \'Anpassen: Bereich mit den Länderkürzeln - Blatt und Spalte.
        \'Hier ist es auf Tabelle1 die Spalte 2:
        Target = Sheets(\"Tabelle1\").Cells(objGefunden.Row, 2)
        
        Application.EnableEvents = True
    End If
End If

End Sub

Falls Du mit dem Editor nicht klarkommst, melde Dich einfach nochmal. Vielleicht hat ja jemand noch eine einfachere Lösung …