for next loopt niet

Status
Niet open voor verdere reacties.
D

Doohan

Gebruiker
Lid geworden
20 mrt 2012
Berichten
374
Beste helper,

Kan iemand mij vertellen wat hier aan mankeert.
Code: 
Private Sub cboDemping_Change()
Dim abs1 As Double
Dim abs2 As Double
Dim abs3 As Double
Dim abs4 As Double
Dim abs5 As Double
Dim abs6 As Double
Dim abs7 As Double
Dim abs8 As Double


       For k = 1 To 8
        
        abs(k)  = cboDemping.Column(k)
        
       Next k

End Sub
m.vr.gr. Martin
 
Laatst bewerkt:
Fatsoenllijke uitleg/toelichting waar dit over gaat.
 
ik hoop d.m.v for next loop de variable abs1 t/m/ abs8 te vullen met waarden uit de sheet("ABSORPTIEVUIST")
Code: 
Private Sub UserForm_Initialize()
    
    'vult combobox cboDemping vanaf sheet ABSORPTIEVUIST
    
        With Sheets("ABSORPTIEVUIST")
            cboDemping.List = .Range("B3", .Cells(Rows.Count, 10).End(xlUp)).Value
        End With
        cboDemping.ListIndex = -1
 
Dit is een gewone variabele:
Dim abs1 As Double

En hier probeer je een array te vullen:
Abs(k)
 
helaas ikkie totaal niet snap. Ik ga wel iets anders proberen bedankt
 
Gebruik ook geen functienamen als arraynaam.

Code: 
dim abc(7), i as long

for i=0 to 7
abc(i) =[COLOR=#3E3E3E]cboDemping.Column(i)
next i[/COLOR]
 
Doohan zei:
helaas ikkie totaal niet snap. Ik ga wel iets anders proberen bedankt
Klik om te vergroten...

Da's toch wel essentieel als je met VBA wilt werken, of welke programmeertaal dan ook.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan