VBA Fout 438 bij opstarten Excel

[TJ86]

Goedemorgen,

ik heb een excel bestand met onderstaande VBA code in het tabblad "Klantgegevens"

Private Sub Worksheet_Change(ByVal Target As Range)

Application.Volatile
With ActiveSheet
  Sheets("Klantgegevens").CheckBox1 = Cells(11, 4) <> ""
  Sheets("Klantgegevens").CheckBox2 = Cells(11, 8) <> ""
  Sheets("Klantgegevens").CheckBox3 = Cells(11, 13) <> ""
  Sheets("Klantgegevens").CheckBox4 = Cells(11, 14) <> ""
 End With
End Sub

Bij het openen van het excel bestand dient automatisch tabblad "1" geactiveerd te worden.

Nu krijg ik de foutcode 438 bij het opstarten van het bestand en de foutzoeker verwijst naar bovenstaande code.

Heeft iemand een oplossing?

Thx

TJ

 

[Cobbe]

Heb je wel de 4 checkboxen in je werkblad Klantgegevens staan?.

 

[TJ86]

Hallo Cobbe,

dank voor jouw snelle reactie. Ik maak gebruik van jouw oplossing in http://www.helpmij.nl/forum/showthread.php/903653-VBA-en-Vlookup en dit werkt perfect!

Het enige wat is is dat ik nu die error krijg bij het opstarten van het Excel blad.

 

[Cobbe]

Ja nu zie ik het.
Je gebruikt ofwel Activesheet ofwel sheets("Klantgegevens") maar niet beiden.

Private Sub Worksheet_Change(ByVal Target As Range)

Application.Volatile
With ActiveSheet
  .CheckBox1 = Cells(11, 4) <> ""
  .CheckBox2 = Cells(11, 8) <> ""
  .CheckBox3 = Cells(11, 13) <> ""
  .CheckBox4 = Cells(11, 14) <> ""
 End With
End Sub

 

[TJ86]

Ik heb dit geprobeerd

Application.Volatile
With ActiveSheet
  Sheets("Klantgegevens").CheckBox1 = Cells(11, 4) <> ""
  Sheets("Klantgegevens").CheckBox2 = Cells(11, 8) <> ""
  Sheets("Klantgegevens").CheckBox3 = Cells(11, 13) <> ""
  Sheets("Klantgegevens").CheckBox4 = Cells(11, 14) <> ""

Ik heb dit geprobeerd

Application.Volatile
With Sheets("Klantgegevens")
  .CheckBox1 = Cells(11, 4) <> ""
  .CheckBox2 = Cells(11, 8) <> ""
  .CheckBox3 = Cells(11, 13) <> ""
  .CheckBox4 = Cells(11, 14) <> ""

Het werkte beide niet... of doe ik iets fout ?

Als hij namelijk opent en naar Tabblad "1" springt en dan leest "ActiveSheet" kan ik me voorstellen dat het fout loopt ??

 

[Cobbe]

Waarom spring je naar 1 ?
Die cells(?,?) verwijzen naar welk blad?
Kan je het bestand niet posten?

 

[TJ86]

Als "1" wordt geactiveerd wordt er een "splash-screen" getoont.. als ik dit splash-screen laat tonen bij het activeren van "Klantgegevens" is het effect weg

 

[Cobbe]

Zo dan?

Private Sub Worksheet_Change(ByVal Target As Range)

Application.Volatile
With Sheets("Klantgegevens")
  .CheckBox1 = .Cells(11, 4) <> ""
  .CheckBox2 = .Cells(11, 8) <> ""
  .CheckBox3 = .Cells(11, 13) <> ""
  .CheckBox4 = .Cells(11, 14) <> ""
 End With
End Sub

 

[TJ86]

Fantastisch!... zo te zien is dit weer een hobbel op de weg welke is vlak gestreken!

Dank voor je hulp