Speichern abhängig vom Datum, etc.

Hallo zusammen,
meine Datei ist fürs Managen von Fahrzeugen erstellt worden. Dort werden in eine Liste Werte eingetragen. Sobald man die Datei speichert, werden diese Werte in die Tabelle "Test" zum heutigen Datum übertragen. Die Tabelle "Test" ist aktuell Platzhalter. Später sollen dort die Kennzeichen der Fahrzeuge stehen.
Soweit so gut, nun hab ich aber ein paar Schwierigkeiten, da ich mich nicht wirklich gut mit VBA auskenne. Evtl. könnt ihr mir ja dabei helfen.
1. Ich hätte es gerne so, dass beim Speichern dies im Hintergrund läuft, ohne Tabellensprung. Da ich ja den Select Befehl habe, funktioniert das ja nicht. Ich weiß leider nicht, wie ich den Code abändern müsste, damit es ohne Select funktioniert.
2. Wenn beim Speichern das Datum bereits in der Tabelle "Test" vorhanden ist, dann sollen die dortigen Werte ohne Nachfrage aktualisiert/überschrieben werden. Aktuell wird bei jedem Speichern eine neue Zeile bei "Test" befüllt.
3. Wenn das Datum noch nicht vorhanden ist, dann soll unter einem neuem Datum befüllt werden. Danach soll es wieder weitergehen wie unter Punkt 2.
4. Ich habe versucht im Code die Tabelle "Test" zu "Tabelle2" zu ändern, da sich ja die Tabelle "Test" wie zu anfangs beschrieben ja immer wieder bei Kennzeichenwechsel ändern wird. Leider funktioniert der Code dann nicht mehr.
5. Wenn es möglich ist, würde ich gerne die Tabellen, abhängig von der Eingabe in der Tabelle "Alle_Fahrzeuge", benennen. Soll heißen, dass die Tabelle "Test" den Namen aus Zelle A7, also X-XX 1234 erhält.
Wenn X-XX 1234 zu z.B. Y-YY 4567 geändert wird in Zelle A7, dann soll sich auch der Tabellenname wieder ändern. Ist das überhaupt möglich?
Ich hoffe, ich habe nichts von meinen Erläuterungen vergessen.
Vielen Dank bis hierhin schon mal fürs durchlesen und ich weiß, es sind viele Fragen.
Grüße
Hier die Datei:
https://www.herber.de/bbs/user/157420.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'automatisch beim Speichern übertragen Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim a As Variant Dim Datum As Long Dim wsQ As Worksheet Dim wsZ As Worksheet Set wsQ = Worksheets("Alle_Fahrzeuge") Set wsZ = Worksheets("Test") 'Datum um eins nach unten und heutiges Datum eintragen wsZ.Range("A99999").End(xlUp).Offset(1, 0).Value = Format(Now, "DD.MM.YYYY") 'Werte kopieren Datum = IIf(Trim(wsQ.Cells(1, 1).Value) = "", Date, wsQ.Cells(1, 1)) a = Application.Match(Datum, wsZ.Columns(1)) If IsNumeric(a) Then wsQ.Range("E7:O7").Copy wsZ.Cells(a, 2).PasteSpecial Paste:=xlValues Else MsgBox "Datum nicht gefunden" End If Application.CutCopyMode = False End Sub

Beliebteste Forumthreads (12 Monate)

Speichern abhängig vom Datum, etc.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern abhängig vom Datum, etc.

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread