Listbox waarde Visual in Excel krijgen

[jan8271]

Hallo allemaal,

Ik ben nieuw hier en ben sinds heel kort bezig met Visual, omdat ik dus nog vol met vragen zit en er zelf niet uit kom, hoop ik hier een antwoord te krijg op een vraag;

Ik heb wat tabellen (C3:C7) in Excel, die weer worden gegeven in Visual; in een Listbox.
nu wil ik graag dat als ik in de listbox een waarde selecteer en op de button klik, er in Excel waarde 1 wordt bijgeschreven in de tabel ernaast (B3:B7).

Dus als ik in Visual bijvoorbeeld de waarde selecteer die in Excel tabel C5 is en dan op de button klik, moet er in Excel tabel B5 een '1' komen te staan.

Zo ook voor de andere cellen; dus selecteer ik C6 dan een ''1'' in B6.
enz.

Hier een screenshot;

Ik heb hier geprobeerd aan te geven wat de bedoeling is.
De rode cirkels en lijnen geven aan welke waardes worden overgenomen; zichtbaar in visual.

Ik hoop echt dat een beetje duidelijk is wat ik bedoel en dat er iemand een oplossing heeft!

Bvd, :thumb:

Jan

 

[Guus2005]

Ik weet niet of "visual" popi taal is voor Visual Basic ik neem maar aan van wel. Anders ken ik het niet en kan ik je niet helpen, en dat wil ik zo graag

Wat jij wil kan wel maar vereist wel enige VBA kennis.
Je maakt een Excel object aan je koppelt die aan de bewuste spreadsheet. Nu kan je de spreadsheet uitlezen.

Hieronder de code die ik gebruik om een veld uit te lezen van een spreadsheet

Public Function MaandOphalen(strSpreadsheet As String) As Integer

    Dim appExcel As excel.Application
    Dim ws       As Worksheet
    Dim wb       As Workbook
    Dim vntMaand As Integer
    
    On Error GoTo Err_MaandOphalen
    
    vntMaand = 0
    
    If Len(Nz(strSpreadsheet, "")) = 0 Then Exit Function
    
    Set appExcel = New excel.Application
    Set wb = appExcel.Workbooks.Open(strSpreadsheet)
    Set ws = wb.Worksheets("voorplaatje")
    
    vntMaand = ws.Cells(2, 1) 'Maand eerste kolom tweede rij.

Exit_MaandOphalen:
    MaandOphalen = CInt(vntMaand)
    Exit Function

Err_MaandOphalen:
    Resume Exit_MaandOphalen
Resume
End Function

HTH