pop-up info scherm

[calimero1970]

Beste,

ik wil graag bij het aanklikken van een werkblad in excel een pop-up laten verschijnen met de melding waar de gebruiker zich bevindt.
Iemand enig idee hoe ik dit kan laten verschijnen?

Alvast dank voor jullie reactie.

Groetjes,

C

 

[Finch]

Wat wil je precies bereiken? Het is met niet helemaal duidelijk. Bij het veranderen van sheet? bij het veranderen van een cel? Welke info wil je tonen? Sheetnaam tonen? Actief celadres tonen?

 

[calimero1970]

Hoi Finch,

Als je op een tabblad klikt, gewoon een mededeling (welke je vrij kan ingeven) laten zien op welk tabblad je je bevindt, en een ok-knop om deze pop-up weg te doen !

Greetz

C

 

[Wigi]

Hoi

Plak dit in de VBA-code bij ThisWorkbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    MsgBox Sh.Name
    
End Sub

Wigi

 

[Finch]

Zet deze code in de ThisWorkbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sMelding As String
Dim sTitel As String
sMelding = "De sheet met naam: " & Sh.Name & " is nu actief."
sTitel = "Sheetinfo"
MsgBox sMelding, vbOKOnly, sTitel
End Sub

Melding en titel is aan te passen.

edit: Wigi was me net voor. Eigenlijk is dat dezelfde code, mijne heeft iets meer tekst, maar dat is het enige verschil.

 

[calimero1970]

Hoi Finch,

thx voor je snelle reactie.

Greetz,

C

Zet deze code in de ThisWorkbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim sMelding As String
Dim sTitel As String
sMelding = "De sheet met naam: " & Sh.Name & " is nu actief."
sTitel = "Sheetinfo"
MsgBox sMelding, vbOKOnly, sTitel
End Sub

Melding en titel is aan te passen.

edit: Wigi was me net voor. Eigenlijk is dat dezelfde code, mijne heeft iets meer tekst, maar dat is het enige verschil.

 

[calimero1970]

Hoi Wigi,

thx voor je snelle reactie.

Greetz,

W

Hoi

Plak dit in de VBA-code bij ThisWorkbook:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    MsgBox Sh.Name
    
End Sub

Wigi

 

[Wigi]

Zet de vraag nog op opgelost aub dan.