Waarde uit een cel gebruiken in vba code

[cocarola]

Hoe kan ik de waarde van een cel gebruiken in vba code

voorbeeld: for x= 1 to waarde van cel A1

Bij voorbaat dank

 

[edmoor]

For x = 1 to Val([A1])

 

[cocarola]

Ik krijg een fout melding
Wat is niet correct


Windows(" Val(e1).xlsx").Activate

 

[edmoor]

Dat is ook niet volgens het voorbeeld dat ik gaf.
Tevens is alles tussen " tekens een string en daar gebeurd verder niets mee.
Je voorbeeld in de initiele vraag is dus niet wat je precies wilt.
Daarom vragen we hier altijd om duidelijke voorbeelden.

 

[cocarola]

Ik dacht het hier ook te kunnen gebruiken
maar helaas lukt dit niet

Cocarola

 

[edmoor]

Dat gaat wel maar moet weer anders. Als je nou eens een voorbeeld geeft van wat precies je bedoeling is krijg je er ook een werkend antwoord op.

 

[cocarola]

Hierbij de code

Windows ("Val(e1) & ".xlsx").Activate
Sheets("Diensten" & "(Val(E3))").Select

 

[edmoor]

Probeer dit maar eens:

Windows (Val([E1]) & ".xlsx").Activate
Sheets("Diensten" & Val([E3]).Select

 

[cocarola]

Is nog iets fout
Kom er later op terug moet nu gaan werken.
Bedankt voor je hulp.
Cocarola

 

[edmoor]

Ik zie ook in je code nergens de [ en ] tekens die ik toch echt in mijn beide voorbeelden wel gebruik.

 

[cocarola]

Bedoeling is met het werkblad BerekeningDienstenV3.0 gegevens uit de bestanden Ritten.xlsx en (02mei14.xlsx of 14jul14.xlsx) ophaal na gelang de waarde in rij1, dan de nodige berekeningen te doen en dan het resultaat weer weg te schrijven in de sheet stempeluren van 02mei14.xlsx of 14jul14.xlsx

Dit is de code die tot dus ver heb
in bijlage de bestanden

Sub Macro1()
'
' Macro1 Macro
'
' Sneltoets: Ctrl+Shift+A
    Range("a1").Select
    Selection.Copy
    Windows(Val([E1]) & ".xlsx").Activate
    Sheets("Diensten" & Val([E3]).Select
    Cells.Find(What:=Val([A1] , After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    
    For x = 1 To Val([G1])
        Windows(Val([E1]) & ".xlsx").Activate
        Sheets("Diensten" & "(Val([E3]))").Select
        ActiveCell.Select
        Selection.Copy
        ActiveCell.Offset(1, 0).Select
        Windows("Berekening Diensten V3.0.xlsm").Activate
        Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Range("A32:P32").Select
        Selection.Copy
        Sheets("Stempeluren").Select
        Cells.Find(What:=Sheets("BerekenenDiensten").Range("A1"), After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows _
    , SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.Offset(0, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        ActiveCell.Offset(0, -1).Select
        Sheets("BerekenenDiensten").Select
        Application.CutCopyMode = False
        ActiveCell.Select
    Next x
End Sub