2 Anweisungen in ein Workbook Open

Hallo Chris,

manchmal ist es hilfreich, bestimmte Prüfung in Functions abzulegen und einen sprechenden Namen zu geben.
Auch die Aktionen können in separaten Subs abgelegt werden.

Private Sub Workbook_Open()

    If IstAnfangDesJahres Then

        MsgBox "Vor Dateneingabe zum Jahreswechsel " & Chr(10) & " " & Chr(10) & " Button - Sichern Jahresende - " & Chr(10) & " " & Chr(10) & " für Tabellenblatt History drücken", vbOKOnly

        AktionJahresanfang_durchführen

    ElseIf IstEndeDesMoants Then

        If MsgBox("Sind wir im richtigen Monat ? Ansonst Formelbutton drücken", vbYesNo) = vbYes Then

            AktionMonatsende_durchführen

        End If

    End If

End Sub



Private Sub AktionJahresanfang_durchführen()

    Sheets("Berechnung").Activate

    Range("A2").Select

    UserForm1.Caption = "Datenmaske geöffnet von: " & GetTheUserName

    UserForm1.TextBox3 = Format(Date - 1, "DD.MM.YYYY")

    UserForm1.Show

End Sub



Private Sub AktionMonatsende_durchführen()

    'hier Anweisungen eintrage

End Sub



Private Function IstAnfangDesJahres() As Boolean

'liefert True, wenn Datum 01.01. oder 02.01. ist

    IstAnfangDesJahres = CBool(Month(Now) = 1 And Day(Now) = 2)

End Function



Private Function IstEndeDesMonats() As Boolean

'liefert True, wenn Abstand Heute zum ersten den nächsten Monat = 2

'Dim NächsteMonatStart As Long

'    NächsteMonatStart = DateSerial(Year(Now), Month(Now) + 1, 1)

'    IstEndeDesMonats = CBool((NächsteMonatStart - Now) = 2)

    IstEndeDesMonats = CBool((DateSerial(Year(Now), Month(Now) + 1, 1) - Now) = 2)

End Function

VG
Yal

Hallo Onur !
Bitte nicht böse sein !
Ich habe Deinen Code anstatt dem vorhandenen reinkopiert. Nur es ging nicht und ich bin nicht in der Lage etwas zu ändern, damit das geht, wenn ich in das Tabellenblatt History springe, dann rührte sich nichts. Ich habe meine Original kopiert (um nichts kaputt zu machen) und rumprobiert - ohne Erfolg.
Nun dachte ich mir, in meiner grenzenlosen Niavität vielleicht finde ich einen Code der nur einmal aufpoppt und bin dann auf diesen gestossen:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Left(Date, 2) * 1 = 1 Then
MsgBox "Sind wir im richtigen Monat ? Ansonst Formelbutton im Tabellenblatt History drücken"
End If
End Sub

Dazu habe ich Deinen Anfang genommen und den neuen Code zwischen den Zeilen (Privat........ und .......End Sub) eingefügt. Der funktionierte gleich - NUR .................der kommt am 1. jeden Monats aber .......................egal, wohin ich springe ..................also in jedem Tabellenblatt wohin ich am 1. des Monats springe, poppt die msgBox auf.
Ich wollte eigentlich nur, das der Text beim Sprung in das Tabellenblatt History aufpoppt.
Bitte nicht böse sein ...................das ich rumprobiert habe .............................. Ich dachte dann, ich kann das mit dieser Zeile von Dir bereinigen:

If op And Sh.Name = "History" Then ........................ habe diesen eingefügt, doch das ging dann auch nicht..

Ich bin da nicht so firm, das ich das dann selbst erledigen könnte.
Kannst mir nochmal helfen .................ich entschuldige mich
Danke
chris58

2 Anweisungen in ein Workbook Open

Forumthread: 2 Anweisungen in ein Workbook Open

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

2 Anweisungen in ein Workbook Open

Forumthread: 2 Anweisungen in ein Workbook Open

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread