Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1576to1580
1576to1580
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Sheet ab Datum 31.12.2017 kopier werte einsetz

VBA-Sheet ab Datum 31.12.2017 kopier werte einsetz
06.09.2017 15:22:55
florian
Sehr geehrte VBA-Gemeinde,
folgendes Problem:
Ich habe 9 Sheets mit vielen Sverweisen und weiteren Berechnungen (Die Dateneingabe - grundlage der Berechnungen erfolgt über weitere Eingabe-Sheets aus Datev heraus per Copy and paste).
Jetzt sollen die Sheets(weil die Berechnungen nur bis zum z.B. 31.12.2017) richtig rechnet, beim öffnen nach diesem Datum alle Inhalte kopieren und als Wert wieder ausgeben (als Nachweis). Dies dient des weiteren auch zum Schutz vor Diebstahl meiner geisitgen Arbeit.
Das Datum (z.B. 31.12.2017) kann in der Zelle B2 eingetragen werden, bzw aus der SystemUhr übernommen werden.
Hat hier jemand eine Lösung?
Herzlichen Dank von einem VBA Neuling
euer Florian

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Falsche Ergebnisse nach 31.12.2017
06.09.2017 15:31:42
Robert
Hallo florian,
wie ich das verstehe, wirst Du ein Problem bekommen. Grundsätzlich ist es kein Problem, in Abhängigkeit vom Datum die Zellen, die Formeln enthalten, durch deren Werte zu ersetzen. Da dies aber nach dem 31.12.2017 geschehen soll, ab diesem Datum aber falsche Berechnungen erfolgen, werden dann nach diesem Termin auch die falschen Formelergebnisse als Wert eingefügt. Wenn die Berechnungen nur bis zum 31.12.2017 richtig sind, müssen daher bis zu diesem Termin die Formeln durch Werte ersetzt werden.
Gruß
Robert
AW: Falsche Ergebnisse nach 31.12.2017
06.09.2017 17:00:21
florian
Hallo Robert,
Danke. Vielleicht denke ich gerade falsch, aber die Datei wird bis zum (z.B. 31.12.2017) mit neuen Werten per copy and paste befüllt. Sollte eine Berechnung erfolgen, bezieht die sich auf die Werte bis zum 31.12.2017.
Man kann es auch anders lösen:
Wenn ich weiß wo ich in dem Code das Ablaufdatum einfügen kann, so dass nach diesem Datum (abgleich mit Systemuhr) keine Formel mehr vorhanden ist sondern nur noch die berechneten Werte, so ist der Spatz gefangen.
In Excel würde ich das so schreiben:
B2= heute()
Wenn(b2größer gleich 41301 - entspricht dem 01.01.2018- dann kopiere beim öffnen Sheet Statistik_Bearbeiten Zellen a3 bis ag356 und füge die berechneten Werte in a3 bis ag356 ein.
Leider fehlen mir die VBA Kenntnisse.
(Das Fleisch ist willig aber der Geist ist schwach)
Anzeige
AW: Falsche Ergebnisse nach 31.12.2017
06.09.2017 17:22:44
Robert
Hallo,
folgendes Makro ersetzt ab dem 01.01.2018 auf allen Tabellenblätter die Formeln durch die entsprechenden Werte 
Sub Formeln_ersetzen()
Dim sh As Object
If Date >= CDate("01.01.2018") Then
For Each sh In Worksheets
sh.UsedRange = sh.UsedRange.Value
Next
End If
End Sub
Gruß
Robert
AW: Falsche Ergebnisse nach 31.12.2017
07.09.2017 15:20:00
florian
Hallo Robert,
der code ist (zusammen mit dem vorherigen automatischen Code für Seitenschutz) wie folgt: 
Sub Workbook_Open()


Sub Formeln_ersetzen()
Dim sh As Object
If Date >= CDate("06.09.2017") Then
For Each sh In Worksheets
sh.UsedRange = sh.UsedRange.Value
Next
End If
End Sub



'für alle Blätter mit Passwortschutz

Dim ws As Worksheet

For Each ws In Worksheets

ws.Protect UserInterfaceOnly:=True, Password:="sax" 'Passwort anpassen

ws.EnableAutoFilter = True 'ermöglicht Autofilter

ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung

Next ws

End Sub
Es wird gemeldet: Fehler beim Komilieren - End of 

Sub erwartet
Was muss ich tun?
Vielen Dank
Anzeige
AW: Falsche Ergebnisse nach 31.12.2017
07.09.2017 16:03:46
Robert
Hallo florian,
falls Dein zusätzlicher Code auch erst ab dem 01.01.2018 ausgeführt werden soll: 
Private Sub Workbook_Open()
Dim sh As Object
If Date >= CDate("01.01.2018") Then
For Each sh In Worksheets
sh.UsedRange = sh.UsedRange.Value 'Formeln werden durch deren Werte ersetzt
sh.Protect UserInterfaceOnly:=True, Password:="sax" 'Passwort anpassen
sh.EnableAutoFilter = True 'ermöglicht Autofilter
sh.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next
End If
End Sub
Soll Dein Code dagegen immer und nur das Ersetzen der Formeln durch deren Werte ab dem 01.01.2018 erfolgen, dann: 
Private Sub Workbook_Open2()
Dim sh As Object
For Each sh In Worksheets
If Date >= CDate("01.01.2018") Then
sh.UsedRange = sh.UsedRange.Value 'Formeln werden durch deren Werte ersetzt
End If
sh.Protect UserInterfaceOnly:=True, Password:="sax" 'Passwort anpassen
sh.EnableAutoFilter = True 'ermöglicht Autofilter
sh.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
Next
End Sub
Gruß
Robert
Anzeige
AW: Falsche Ergebnisse nach 31.12.2017
07.09.2017 16:44:06
florian
Hallo Robert, ich habe mal einen screenshot gemacht. Irgendetwas masche ich falsch weil die Formeln sind noch leserlich und ich habe das Datum auf den 06.09.2017 gestellt
AW: Falsche Ergebnisse nach 31.12.2017
07.09.2017 18:35:12
Robert
Hallo Florian,
wo gibst Du denn denn Code ein. Der darf nämlich nicht in einem normalen Modul stehen sondern muss in dem Microsoft Excel Object "Diese Arbeitsmappe" stehen. Bei dem zweiten von mir geposteten Code muss es in der ersten Zeile auch Private Sub Workbook_Open() (also ohne die 2) heißen.
Dann müsste der Code beim Öffnen der Datei ausgeführt werden, vorausgesetzt natürlich, das automatische Ausführen von Makros ist nicht aus Datenschutzgründen ausgeschlossen oder wird vom jeweiligen Nutzer durch drücken der Shift-Taste unterdrückt.
Allerdings habe ich nicht bedacht, dass die Tabellen ja offensichtlich geschützt sind. Dieser Schutz muss als erstes in der For-Schleife mit
sh.Unprotect Password:="sax"
wieder aufgehoben werden damit an den Zellinhalten was geändert werden kann.
Gruß
Robert
PS:
Wenn Du einen Screenshot machst, habe ich nur etwas davon, wenn Du den auch hier einstellst.
Anzeige
AW: Falsche Ergebnisse nach 31.12.2017
08.09.2017 01:38:52
florian
Userbild
AW: Falsche Ergebnisse nach 31.12.2017
08.09.2017 01:45:44
florian
Hallo Robert, kaum macht man es richtig ....schon funktioniert es. Ich Danke Dir ganz herzlich.
Falls mal Hilfe bei DATEV benötigt wird, freue ich mich dir helfen zu können.
viele Grüße Florian
AW: VBA-Sheet ab Datum 31.12.2017 kopier werte einsetz
06.09.2017 17:29:49
ChrisL
Hi Florian
Überlege noch einmal was Robert dir gesagt hat oder probiere es wenigstens mal vorher mit geändertem Datum aus ;)
Folgende Idee. Alle Formeln, die sich auf das Tagesdatum beziehen mit einer WENN Formel eränzen:
=WENN(HEUTE()<DATUM(2018;1;1);HEUTE();DATUM(2017;31;12))
Ein Makro als Diebstahl-Sicherung ist m.E. nicht sinnvoll, weil man die Datei ja auch ohne Makros starten kann.
cu
Chris
Anzeige

304 Forumthreads zu ähnlichen Themen

TextBox1.Value = TextBox2.Value + TextBox3.Value
Michaela

Guten Mittag
Stehe ich aufm schlauch?
ich versuche in TextBox1. die Summe aus TextBox 2 und 3 anzuzeigen. das geht aber nicht mit:
TextBox1.Value = TextBox2.Value + TextBox3.Value
was mache ich falsch?
Danke für die Hilfe
Michaela
18.08.2008 13:45:00
Thread-ID: 1002572
9 Beiträge
Anzeige
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Messagebox nach 1-2 Sec automatisch schließen
hajo

Hallo zusammen,
gibt es eine Möglichkeit eine MSGBox oder ähnliches aufzurufen, ein paar Sekunden anzeigen zu lassen und automatisch zu schließen, so dass das Makro weiterläuft?
Vielen Dank für Eure Hilfe
25.11.2008 12:07:21
Thread-ID: 1027660
3 Beiträge
Anzeige
Fehler beim Öffnen und Schließen
kleinerfinger

Hallo und einen schönen guten Morgen !
Ich habe folgendes Problem:
Jedes mal wenn ich Excel starte bekomme ich folgende Fehlermeldung:
Kompilierungs-Fehler in verborgenen Modul: AutoExecNew
und beim Schließen:
Kompilierungs-Fehler in verborgenen Modul: DistMon
Wie bekomm...
25.05.2009 08:15:25
Thread-ID: 1077075
16 Beiträge
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
3. Februarwoche (15.2.2010)
Heinz

Hallo Leute
Ich bräuchte bitte für einen Ferienkalender immer den Beginn der 3. Februarwoche (15.2.2010)
In A39 steht 1.2.2010
Hätte dazu bitte jemand eine Formel.
Gruß Heinz
04.08.2009 17:18:03
Thread-ID: 1093590
5 Beiträge
=VERWEIS(2;1/(D22:D33<>""); D22:D33)
Claudia

Hallo zusammen,
mittels dieser Formel
=VERWEIS(2;1/(D22:D33""); D22:D33)
suche ich mir die erste belegte Zelle im Bereich D22:D33. Jetzt muss ich aber die zweie belegte
Zelle von unten finden.
zum beispiel statt D25 soll D24 angezeigt werden.
Geht das auch mittels einer...
10.08.2009 15:52:18
Thread-ID: 1094771
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
6
6
2
3
15
7
1
4
5
5
2
4
11
4
2
10
4
3
2
44
2
1
6
12