Clever-Excel-Forum

Guten Morgen,

ich habe eine Datei in der ich folgendes Makro einspielen will:

Option Explicit
Option Base 1
Private Sub Workbook_Open()
Dim rngZelle As Range
Dim wks As Worksheet
    Set wks = ThisWorkbook.Worksheets("Daten")
    For Each rngZelle In wks.Range("E2:E28")
        If Month(rngZelle.Value) = Month(Date) And Day(rngZelle.Value) = Day(Date) Then
            MsgBox rngZelle.Offset(, -1).Value & " hat heute Geburtstag!", vbInformation, "Geburtstag!"
        End If
    Next rngZelle
    Set wks = Nothing
End Sub





Ich klicke in der Datei auf Entwicklertools - Makros - Neuer Makroname - erstellen - gebe die Formel ein und wähle Speichern.

Dann bekomme ich die Fehlermeldung: 

Die folgenden Features können in Arbeitsmappen ohne Makros nicht gespeichert werden:

VB Projekt.


Was genau muss ich machen, damit mein Makro ausgeführt wird?

Danke.

---

Ich habe die Datei auch bereits als Datei mit Makros XMSL gespeichert.
Dann speichert er diese, lässt aber keine Makros zu.....

Hallo,

1. Speichere die Datei als xlsm oder xlsb .
2. Gehört das Ereignismakro Workbook_Open in das schon vorhandene VBA-Modul DieseArbeitsmappe.

Guten Morgen Kuwer,

ich habe alles so gemacht wie du es geschrieben hast, der speichert die Datei dann aber immer so ab, dass ich keine Makros ausführen kann.
Habe dazu auch schon alles gelesen, wie ich Makros ausführen kann (Makros erlauben etc.). Leider sperrt er diese aber immer wieder.

Ich habe die Datei angehängt, vielleicht schaust du es dir mal an?

Danke und Gruß

Guten Morgen,

du hast eine .xlsx gespeichert und hochgeladen. Mit dieser Dateiendung werden keine Dateien mit Makros gespeichert. Du musst schauen, dass du sie als .slsb odere .xlsm speicherst.

Hallo,

du hast weder ein Makro in der Tabelle gehabt, noch hast Du die Tabelle als *.xlsm gespeichert.

Gruß
Marcus

Ok.
Ich habe deine Testversion jetzt geöffnet. Was genau hast du gemacht?
Bei mir öffnet sich keine MessageBox.

Wenn ich auf Makro ausführen gehen, kommt immer die Meldung, dass ich kein Makro ausführen darf.

Guten Morgen,

es kann sein, dass Du Makros deaktiviert hast. Schau mal hier https://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=1&cad=rja&uact=8&ved=2ahUKEwjbrvyHq6DmAhXF4KQKHVh8AF8QFjAAegQIAhAB&url=https%3A%2F%2Fsupport.office.com%2Fde-de%2Farticle%2Faktivieren-oder-deaktivieren-von-makros-in-office-dateien-12b036fd-d140-4e74-b45e-16fed1a7e5c6&usg=AOvVaw2alTG4bwfPZFkV8VTy5RBj

Gruß
Marcus

---

Hallo,

mir ist noch ein Fehler in deinem Code aufgefallen. Es wird die Zelle mit den >Urlaubsdaten abgefragt. Ersetze dieseS:

Zitat:MsgBox rngZelle.Offset(, -1).Value & " hat heute Geburtstag!", vbInformation, "Geburtstag!"

gegen

Zitat:MsgBox rngZelle.Offset(, -3).Value & " hat heute Geburtstag!", vbInformation, "Geburtstag!"

Gruß
Marcus

Hey Marose,

den Fehler habe sogar ich rausgefunden.
Danke aber dafür ;)

Um die Deaktivierung kümmere ich mich gerade, ich habe da keine Erlaubnis diese zu aktivieren.

Hallo,

ich habe jetzt die Berechtigung für die Makros. Musste erst freigeschaltet werden.

Der Code ist jetzt eingetragen.
Wenn ich den manuell ausführe klappt das auch.

Ich hätte es aber gerne so, dass wenn ich die Excel Datei öffne, direkt die Meldung kommt ob jemand Geburtstag hat.

Kann mir da noch jemand helfen?

Danke.

Datei habe ich angehängt.

(06.12.2019, 10:17)tschmidt1986 schrieb: [ -> ]Ich hätte es aber gerne so, dass wenn ich die Excel Datei öffne, direkt die Meldung kommt ob jemand Geburtstag hat.

siehe Beitrag #2 Punkt 2!

Gruß Uwe