Messagebox

Forumthread: Messagebox
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Messagebox

Messagebox

28.02.2005 11:29:11

Yvo

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Messagebox

28.02.2005 11:34:35

Matthias
AW: Messagebox

28.02.2005 11:42:28

Yvo
Funktioniert Messagebox

28.02.2005 11:52:35

Yvo

AW: Messagebox

28.02.2005 11:34:35

Matthias

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

AW: Messagebox

28.02.2005 11:42:28

Yvo

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 ?

Funktioniert Messagebox

28.02.2005 11:52:35

Yvo

Funktioniert prima, hatte das flasche Tabellenblatt angeklickt. Danke