Inflationäre Warnungen, Sicherheitsrisiko: Microsoft hat die Ausführung von Makros...

die Warnung erscheint sogar wenn ich eine neue Datei über Datei/neu erstelle.https://support.microsoft.com/de-de/topic/ein-potenziell-gef%C3%A4hrliches-makro-wurde-blockiert-0952faa0-37e7-4316-b61d-5b5ed6024216Der Lösungsvorschlag betrifft ein Worddokument und lässt sich nicht mit einem Exceldokument nachvollziehen. Weil dort die Option um etwas zu unblockieren fehlt.

Nenene, nicht alles in einen Pott schmeißen, da kommt dann nur Grütze raus.
<br />Der Lösungsvorschlag wie man eine Datei "unblocked" ist universell und gilt für alle Dateien. Wenn eine Datei dieses Kästchen nicht hat dann ist sie entweder nicht geblockt oder der Datenträger auf dem die Datei ist unterstützt das nicht. Egal, das hat nichts mit Deinem Problem zu tun.
<br />Die Fehlermeldung kommt wegen irgendwas anderem was Du auf Deinem Rechner hast, eine XLSX-Datei hat keine Makros und eine neue Datei schon gar nicht.... es sein Denn beim Öffnen schmuggelt irgendwer einen Code da rein... unwahrscheinlich.
<br />Bitte folge diesen Schritten:

Schließe Excel
Drücke die STRG-Taste und halte sie gedrückt
Öffne Excel
Warte bis eine Meldung angezeigt wird und nach dem "Abgesichertem Modus" gefragt wird
Lasse die STRG-Taste los
Klicke auf Ja
Nachdem Excel geöffnet ist
Klicke auf Datei\Öffnen und wähle eine Datei aus
Drücke die UMSCHALTTASTE und halte sie gedrückt
Klicke auf Öffnen
Warte bis die Datei geöffnet ist
Lasse die UMSCHALTTASTE los
Teste das Verhalten
<br />Ist das Problem so weg?
<br />Andreas.
<br />

Hallo,
<br />du musst den Pfad zu der Datei auf dem NAS als vertrauenswürdigen Speicherort anlegen und "Vertrauenswürdige Speicherorte im Netzwerk zulassen" aktivieren.
<br />Claus
<br />

Die Formeln stehen generell schon in den Zellen, ich ändere über den Makro-Rekorder nur die Jahreszahl am Anfang.

Nope, machst Du nicht. Du schreibst eine komplett neue Formel in die Zelle.

Wenn Du eine vorhandene modifizieren möchtest, dann solltest Du diese einlesen, den entsprechenden Part ersetzen und die Formel zurückschreiben.

Kannst Du auch von Hand machen, such doch mal nach "2015" und ersetze durch "2016", in Formeln, alle ersetzen, fertig. Naja, wenn da irgendwo ein 2015 drin steht was nicht ersetzt werden soll ist das natürlich auch Murks.

Wenn Du mit VBA eine neue Formel erzeugen willst, dann macht "man" (also ich) das genauso, die Details übergehe ich jetzt mal im Prinzip:

Dim MeinJahr

MeinJahr = 2016

Range("A1").FormulaLocal = Replace("=WENN(B1=Jahr;123;456)", "Jahr", MeinJahr)

Wie Du siehst, geht das a) mit deutschen Formeln, b) mit absoluten Bezügen c) ganz einfach... wenn man es weiß.

Wieso änderst Du Deine Formeln nicht einfach ab und schreibst das Jahr in irgendeine Zelle, dann brauchst Du nur einmal die eine Zelle ändern... einmal im Jahr von Hand und brauchst gar kein Makro.

Andreas.

Tja, wie soll ich es sagen... am besten direkt heraus: Du kannst Deine Makros löschen.

Dein Makro schreibt irgendwelche Formeln in irgendwelche Zellen und das auch noch mit relativen Bezügen... schlimmer geht es kaum. ;-)

Ich weiß, das hast Du vom Makrorekorder gelernt..., den kann man mal benutzen um zu sehen was für Befehle er anzieht um irgendwas zu machen, zu mehr nicht. Dann solltest Du selber die Nase in die Hilfe stecken, herausfinden wozu das gut ist und selber ein
Makro neu schreiben.

Der RTE 1004 ist ein "Universal"-Fehler, den schmeißt Excel zu 99% bei so was raus, sagt gar nix.

Da kannst Du lange fummeln, den Fehler findet man (so gut wie) nie.

Du willst also in irgendwelchen Tabellen einen "Jahreswert" anpassen... was auch immer das bedeutet und dann die Endergebnisse auf ein Übersichtsblatt kopieren, okay, das geht.

Also kopieren könnte "Pseudo-Code" mäßig so gehen:

Sheets("a").Range("A5:Z5").Copy Sheets("ü").Range("A123")

Das ist schon alles. Es gibt noch eine wichtige Variante:

Sheets("a").Range("A5:Z5").Copy

Sheets("ü").Range("A123").PasteSpecial xlPasteValues

Die fügt nur die Werte ein, das andere kopiert auch die Formate (Farben, Rahmen usw.)

Für den Rest müsste ich mal einen Blick in Deine Datei werfen...

Andreas.

Moin Marc,

ohne die Mappe zu sehen, ist es schwierig konkrete Hilfe zu geben.

Aber wenn ich dich richtig verstanden habe, könntest du in "Steuerung" den Bereich G7:J9 mit Bereich1 benamen, den Bereich K79 mit Bereich2, den Bereich Q7:W9 mit Bereich3. Dann sollte die Formel:

=WENN(JAHR(Steuerung!D$18)=2016;WENN(Steuerung!D$19="A";C7;WENN($H$17>3;C7;C7-(MITTELWERT(INDEX(INDIREKT("Bereich"&ZEILE()-6);AUFRUNDEN($H$17;0))/4)*($H$17-ABRUNDEN($H$17;0)+MITTELWERT(INDEX(INDIREKT("Bereich"&ZEILE()-6);AUFRUNDEN($H$17;0))/4))))

in Zeile7 dir das richtige Ergebnis liefern. Dann Formel runterziehen bis Zeile9.

LB