dataform

[RB_online]

Ik gebruik de volgende code voor het automatisch openen van een dataform in een adresbestand.

Private Sub Workbook_Open()
Sheets("Adressen").Select
Range("A1").Select
ActiveSheet.ShowDataForm
End Sub

Nu wil ik echter verschillende werkbladen gebruiken en bij het aanklikken van een ander werkblad in hetzelfde bestand meteen weer automatisch een dataform openen.

Is dit mogelijk???

 

[LucB]

In de Module van de betreffend werkbladen zet je deze code.

Private Sub Worksheet_Activate()
ActiveSheet.ShowDataForm
End Sub

 

[RB_online]

Bedankt LucB