foutmelding bij verandering combobox

[tcgjohn]

Met onderstaande code krijg ik een foutmelding bij Workbooks("Poker Registratie").Activate. Deze foutmelding treedt niet op onder mijn account, maar wel bij anderen. Hoe moet ik deze code aanpassen, zodat de foutmelding niet meer voorkomt.

Private Sub Combobox1_Change()
Dim ws As Worksheet

If ComboBox1.ListIndex > -1 Then
ComboBox1 = Format(ComboBox1, "dd-mmm-yy")
End If
Workbooks("Poker Registratie").Activate
Set ws = Worksheets("PK1")
With ws
.Cells(21, 2).Value = Me.ComboBox1.Value 'datum invoeren
'Me.ComboBox1.Value = Format(Date, "dd-mmm-yy")
End With
Call UpdateBoeking
Call filterRecords
End Sub

Groet,
John

 

[Wigi]

Als je code plaatst, zet die dan tussen code tags aub.

 

[tcgjohn]

Hier volgt de gewenste opmaak:

Private Sub Combobox1_Change()
Dim ws As Worksheet

If ComboBox1.ListIndex > -1 Then
ComboBox1 = Format(ComboBox1, "dd-mmm-yy")
End If
Workbooks("Poker Registratie").Activate
Set ws = Worksheets("PK1")
With ws
.Cells(21, 2).Value = Me.ComboBox1.Value 'datum invoeren
'Me.ComboBox1.Value = Format(Date, "dd-mmm-yy")
End With
Call UpdateBoeking
Call filterRecords
End Sub

Weer even wat geleerd! Is het zo goed?
Groet,
John

 

[Wigi]

Bestaat dat bestand (Poker Registratie) bij die andere gebruikers?

 

[tcgjohn]

Nee, het bestand staat op het netwerk. Het Poker registratie.xls bestand is het basisformulier van waaruit registraties worden gedaan. Dit basisformulier haalt gegevens op uit een ander (data) excelbestand. (o.a. boekingdatabase en spelerbestand). En dat gebeurt op het moment dat in de combobox een datum wordt gekozen. (en natuurlijk bij het opstarten van het Poker registratie bestand.) Maar als het poker registratiebestand op mijn account wordt gestart werkt het goed, maar bij een ander groepsaccount treedt er een foutmelding bij Activate op.

 

[Wigi]

is dat bestand het bestand dat de code bevat?

 

[tcgjohn]

Ja, het basisformulier (poker registratie.xls) bevat de codes

 

[Wigi]

Gebruik dan ThisWorkbook ipv expliciet naar de naam en locatie van het bestand te verwijzen.

 

[tcgjohn]

Vanavond ga ik het testen op het netwerk. Alvast bedankt.
John