05.12.2019, 06:48 (Dieser Beitrag wurde zuletzt bearbeitet: 05.12.2019, 07:05 von tschmidt1986.)
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.....
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?
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.
Gruß Günter Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen. angebl. von Georg Christoph Lichtenberg (1742-1799)
du hast weder ein Makro in der Tabelle gehabt, noch hast Du die Tabelle als *.xlsm gespeichert.
Gruß
Marcus
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
06.12.2019, 06:58 (Dieser Beitrag wurde zuletzt bearbeitet: 06.12.2019, 07:10 von marose67.)
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
Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
(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.
