Macro nur einmal verwenden ...

Schönen guten Abend an alle,
ich habe mir, im Forum und wälzen in zwei Büchern, folgende Funktion, wie man so schön sagt zusammengeschustert. Klappt auch, fast so, wie ich mir das vorgestellt habe.
Der Makro an sich klappt einwandfrei, sobald der Vordruck geöffnet wird, und er richtige User ruft den Vordruck auf, erscheint in einem Feld das aktuelle Tagedatum und in einem anderen Feld das jeweilige Namenskürzel.


Sub workbook_open()
Benutzername_Datum
End Sub


Sub Benutzername_Datum ()
If Application.UserName = "Vorname Nachname" Then
'Datum
Range("T1").Select
ActiveCell.FormulaR1C1 = "=Matrix!R[18]C[10]"
'Namenszeichen
Range("AA1").Select
ActiveCell.FormulaR1C1 = "=Matrix!R[2]C[4]"
Range("H9").Select
Else: Exit Sub
'Selection.ClearContents
End If
End Sub

Folgendes Problem bekomme ich nicht hin !!
Der Vordruck, wird nun nach der Bearbeitung gespeichert. Muß der Vordruck erneut an einem anderen Tag noch einmal geladen werden startet sich natürlich auch wieder mit workbook_open,
der Makro und setzt wieder Datum und Namenskürzel. Das Namenskürzel wäre nicht das Problem aber das Datum !
Gibt es eine Funktion, das der Makro nur einmal funktioniert oder das der Makro, nach dem Speichern, nicht mehr funktioniert oder oder ?!?!
Er soll nach erneutem öffnen nicht wieder automatisch das aktuelle Datum setzen, das einmal gespeicherte Datum soll so bleiben, wie es gespeichert wurde!
Gruß Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HAllo
Versuch es mal so:

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Open()
On Error Resume Next
Application.Run "Modul1.tschuess"
End Sub

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Sub tschuess()
Dim e
'Dein Code
For Each e In Application.VBE.ActiveVBProject.VBComponents
If e.Name = "Modul1" Then
MsgBox "...und Tschüß!"
Application.VBE.ActiveVBProject.VBComponents.Remove (e)
Next
End Sub

Der Zweite Code gehört ins Modul1.
Zweckmäßigerweise solltest du da keinen Code reinpacken den du später nochmal brauchst.
ransi

' ********************************************************************** ' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...) ' ********************************************************************** Option Explicit Private Sub Workbook_Open() On Error Resume Next Application.Run "Modul1.tschuess" End Sub ' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' ********************************************************************** Option Explicit Public Sub tschuess() Dim e 'Dein Code For Each e In Application.VBE.ActiveVBProject.VBComponents If e.Name = "Modul1" Then MsgBox "...und Tschüß!" Application.VBE.ActiveVBProject.VBComponents.Remove (e) End If Next End Sub

Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) SaveSetting ThisWorkbook.Name, "MeinDatum", "MeinDatum", Date End Sub Private Sub Workbook_Open() If Date = GetSetting(ThisWorkbook.Name, "MeinDatum", "MeinDatum") Then MsgBox "Datei war heute schon offen!" End If End Sub 'wird es nicht mehr benötigt, 'kann es hiermit wieder gelöscht werden Sub LöscheEintragWieder() DeleteSetting ThisWorkbook.Name, "MeinDatum" End Sub

Private Sub Workbook_Open() Dim tcDP Dim bAddIt As Boolean bAddIt = True For Each tcDP In ThisWorkbook.CustomDocumentProperties If tcDP.Name = "ErstelltVon" Then bAddIt = False Next If bAddIt Then ThisWorkbook.CustomDocumentProperties.Add _ "ErstelltAm", False, msoPropertyTypeDate, Date ThisWorkbook.CustomDocumentProperties.Add _ "ErstelltVon", False, msoPropertyTypeString, Application.UserName End If Tabelle1.Cells(1, 1) = ThisWorkbook.CustomDocumentProperties("CreatedBy") Tabelle1.Cells(2, 1) = Format(ThisWorkbook.CustomDocumentProperties("CreatedAt"), _ "dd.mm.yyyy") End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread