Error 1004

[BromsnorII]

Hallo,

Deze code geeft een foutmelding Error 1004..... En ik kom er maar niet achter wat er verkeerd aan is..

Private Sub CommandButton1_Click()
Sheets("BLAD2").Select
Range("A1").Select

End Sub

Wat zie ik over het hoofd?

Alvast bedankt voor jullie moeite,

Sietse

 

[Haije]

Zonder het bestand waar dit in gebeurt blijft het gokken, dus plaats svp ook het bestand (ontdaan van evt "gevoelige" info)

 

[BromsnorII]

Hallo Haije,

Het is een leeg bestand met een twee sheets en een CommandButton (ActiveX Besturingselement) met de bovenstaande code.

Het selecteert wel de Sheet, maar niet de rangecel (daar krijg ik de foutmelding)


Groet,
Sietse

 

[edmoor]

En daarom wordt dus om het bestand gevraagd.

 

[BromsnorII]

Hierbij het bestand

 

[edmoor]

Doe het zo:

Private Sub CommandButton1_Click()
    With Sheets("Blad2")
        .Select
        .Range("A1").Select
    End With
End Sub

 

[BromsnorII]

Ahhh dit helpt!! Bedankt Edmoor.

Als je tijd hebt kun je mij ook nog uitleggen wat het verschil is? Hoeft niet hoor. Maar ik leer graag van mijn fouten.



Nogmaals Bedankt,
Sietse

 

[edmoor]

Door die knop op Blad1 werkt je vanuit de context van Blad1.
Dan kan je niet zomaar een cel op een ander blad op die manier selecteren (.Select)

 

[HSV]

Waarom niet?

Private Sub CommandButton1_Click()
   application.goto Sheets("Blad2").Range("A1")
End Sub

 

[edmoor]

Nog beter