Refereren naar cel in andere worksheet

[BartFr]

Goedendag,

Ik denk dat ik fout zit met de aanhalingstekens.
Ik wil via VBA een referentie maken naar een andere worksheet.

Op "sheet1" wil ik dat cel A1 hetzelfde wordt als cel A1 op "sheet2".

Op sheet1 heb ik een knop waarmee ik dat ga doen. Cel A1 op sheet2 is numeriek (for i = etc.) dus dat wordt simpelweg "A" & i

Ik heb de volgende code:

Range("A1") = sheets("sheet2").Range("A" & i)

Ik heb meerdere dingen geprobeerd, maar kom er helaas niet uit.

Range("A1) = Worksheets("sheet2").Range("A" & i).Value

Range("A1").Value = Worksheets("sheet2").Range("A" & i).Value

Range("A1").value = Worksheets("sheet2").Range(Range("A" & i))

Het probleem zit in een heeeel klein hoekje heb ik het idee...

Bedankt alvast!

Bart

 

[edmoor]

Die eerste is gewoon goed, als de naam van het blad sheet2 is. Dus laat ook even weten wat er mis gaat.

 

[OctaFish]

En toch doen ze het allemaal. Weet je zeker dat je werkbladnaam wel goed is? In de Nederlandse versie is het Blad2, niet Sheet2.

 

[BartFr]

Mijn sheet2 bestaat uit 2 namen, misschien dat dat het probleem is?

edit: Configuration generator. Als ik deze naam verander in Configuration_generator, dan gaat het wel goed. Echter, ik gebruik in andere codes in mijn workbook ook de eerste naam. Deze werkt dan wel goed.

Ik krijg de foutmelding:

Run-time error '1004':

Application-defined or object-defined error

En dan schiet hij naar de onderstaande regel:

Range("F65") = Sheets("Configuration generator").Range("D" & i)

(dit is zoals hij letterlijk wordt gebruikt. Iets andere cellen en andere sheet naam)

Nogmaals een aanpassing van mijn bericht:

Dit staat in mijn code:

Dim i&
      
    If Sheets("Configurations").Range("A2") = 9 And Sheets("Configurations").Range("A3") = 2 And Sheets("Configurations").Range("A4") = 1 Then
      
      For i = 4 To 22

......

                ElseIf Sheets("Configuration generator").Range("F" & i) = "LS1" Then
             Call LS_1

....

    End If
           
            Next i
    
    Call Calculations
    
    End If

In de Call staat het volgende:

Range("E65") = "=W_SaS_Lsledge_mass"
Range("F65") = Sheets("'Configuration generator'").Range("D" & i)
Range("G65") = "=JSS_sledge_ycoord"
Range("H65") = "=W_SaS_Lsledge_zcoord"

het gaat om de 2e regel. Hierbij krijg ik de foutmelding.

Nu krijg ik echter (zonder iets aan te passen) de volgende error:

Run-time error '9':

Subscript out of range

Ik hoop dat dit een klein beetje duidelijk is zonder de excel file erbij. Deze kan ik niet plaatsen om privacy redenen.

 

[Warme bakkertje]

Die aanhalingstekens rond de bladnaam zijn er teveel aan.