Combobox

esim. A sarakkeessa maat ja combobox1 ListFillRangeksi esim A1:A10

B -K sarakkeissa sitten kunkin maan omat postinumerot omissa sarakkeissaan allekkain
Nimeä kunkin maan postinumeroalue maalaamalla numerot ja kirjoita maan nimi nimiruutuun ja ENTER

VB- työkaluvalikosta lisää kaksi comboboxia ...
kopioi koodi taulukon moduuliin ja muuta combonimet sopiviksi

Option Explicit
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then
With ComboBox2
.ListFillRange = ComboBox1
.ListIndex = 0
End With
End If
End Sub

Keep EXCELing
@Kunde

Listboxin ominaisuuksissa laita LinkedCell solun osoite, jota käytät PHAKU funktiossa