ich möchte gern beim öffnen von excel eine Msg Box anzeigen lassen. Aber nach 3 mal öffnen der Datei soll die MSG box nicht mehr angezeigt werden.
Wie bekomme ich dies hin.
Danke für eure Hilfestellungen!!!
Gruß Andre
Sub Auto_Open()
If Tabelle1.Range("Z1").value >= 3 Then Exit Sub
MsgBox "Beispieltext"
Tabelle1.Range("Z1").value = Tabelle1.Range("Z1").value +1
End Sub
Macht folgendes: Der Name Auto_Open bewirkt, dass beim Öffnen der Mappe das Makro automatisch startet. Code liegt in einem Modul.
Private Sub Workbook_Open()
Dim n As Name
Const sName As String = "ShowTime"
On Error Resume Next
Set n = ThisWorkbook.Names(sName)
On Error GoTo 0
If n Is Nothing Then
Set n = ThisWorkbook.Names.Add(sName, 1, False)
Else
n.Value = Application.Min(Val(Mid(n.Value, 2)) + 1, 4)
End If
If Val(Mid(n.Value, 2))
Gruß