Excel - Indice da un elenco a discesa

[vincitek]

Salve,
vi chiedo aiuto poichè dopo molte ricerce non riesco a trovare una soluzione.
Vorrei sapere se è possibile in VBA Excel recuperare l'indice di un valore selezionato da un elenco a discesa creato su un foglio, come nella listbox.
Ad esempio in un elenco a discesa abbiamo, "eremengilda", "eustrogio","ulderico", se seleziono il primo vorrei un indice 1, selezionando il secondo 2. ecc.
Grazie.

[Zer0Kelvin]

Ciao.
Se per "Elenco a discesa" intendi una convalida dati, non esiste alcun indice ma, conoscendo la collocazione dell'elenco della convalida dati, puoi facilmente effettuare una ricerca per valore.
Esempio

Codice: Seleziona tutto

Option Explicit

Sub CercaIndice()
Dim I As Long, C As Long
Dim rRicerca As Range, rElenco As Range
    Set rRicerca = Range("A1") '<== la cella in cui è stato inserito un valore
    Set rElenco = Range("G1:G5") 'l'elenco della convalida dati
    I = -1
    For C = 1 To rElenco.Rows.Count
        If rElenco.Cells(C, 1) = rRicerca Then
            I = C
            Exit For
        End If
    Next C
    If I > 0 Then MsgBox "Indice = " & I
End Sub

[vincitek]

wow funziona alla grande.
Ti chiedo solo una cosa ancora e se al posto di:
Set rElenco = Range("G1:G5") 'l'elenco della convalida dati
volessi inserire il nome che ho dato all'elenco nella convalida ad es. elenco (che contiene G1:G5)?
Grazie.

[vincitek]

Salve,
ho provato e funziona con:
Set rElenco = ActiveWorkbook.Names("Elenco").RefersToRange
al posto di:
Set rElenco = Range("G1:G5") 'l'elenco della convalida dati

Grazie di tutto. Spero di poter contribuire anche io prima o poi nel forum.