Messagebox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Messagebox von: Yvo
Geschrieben am: 28.02.2005 10:29:11

Hallo,

ich habe eine Datei mit mehreren Tabellenblättern und möchte, wenn das 3. oder das 4. Tabellenblatt angeklickt wird eine Hinweisbox "Bitte Daten 2003 berücksichtigen" anzeigen lassen, die mit OK geschlossen wird.
Wie kann ich das Makro schreiben. Bin absoluter Anfänger auf diesem Gebiet.

Danke. Gruß Yvo

Bild


Betrifft: AW: Messagebox von: Matthias G
Geschrieben am: 28.02.2005 10:34:35

Hallo Yvo,

mit Alt-F11 in den VB-Editor wechseln
Links im Projektexplorer Doppelklick auf "DieseArbeitsmappe"
Im erscheinenden Fenster recht diesen Code reinkopieren:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Index = 3 Or Sh.Index = 4 Then
    MsgBox "Bitte Daten 2003 berücksichtigen!", vbInformation, "Hinweis"
End If
End Sub
Gruß Matthias


Bild


Betrifft: AW: Messagebox von: Yvo
Geschrieben am: 28.02.2005 10:42:28

Vielen Dank für die schnelle Antwort. Aber noch funktioniert es nicht. Muss ich wenn die Tabellenblätter bezeichnet sind, statt 3 und 4 den Namen der Blätter schreiben ?


Bild


Betrifft: Funktioniert Messagebox von: Yvo
Geschrieben am: 28.02.2005 10:52:35

Funktioniert prima, hatte das flasche Tabellenblatt angeklickt. Danke


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Messagebox"