Fehler 1004 - Übertrag von Namen

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Code für das Automatische Anzeigen des Speicherdatums und von der Person die gespeichert hat (Anmeldung am PC) Sheets("Projektübersicht FMSW").Select ActiveSheet.Unprotect Password:="XYZ" Range("I5").Value = Application.UserName Range("I4").Value = Strings.Format(Now, "hh:mm") & " Uhr - " & Strings.Format(Now, "YYYY-MM-DD") ActiveSheet.Protect Password:="XYZ", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True ActiveWorkbook.Save End Sub

Private Sub workbook_activate() 'Automatisches Datum eintragen ActiveSheet.Unprotect Password:="XYZ" Sheets("Projektübersicht FMSW").Select Range("I3") = Format(Now, "yyyy-mm-dd") ActiveSheet.Protect Password:="XYZ", DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
du solltest dir angewöhnen, ohne Select und Activate zu arbeiten, das ist kürzer und sicherer und der Bildschirm flackert nicht.
im zweiten Makro ist auf jeden fall die Reihenfolge falsch, weil du zuerst den Blattschutz aufhebst und danach erst das Blatt selektierst, dh du weißt gar nicht, auf welchem Blatt du den Blattschutz aufhebst und machst das u.U. auf dem falschen Blatt.


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Code für das Automatische Anzeigen des Speicherdatums und von der Person die gespeichert hat (Anmeldung am PC)
Sheets("Projektübersicht FMSW").Unprotect Password:="XYZ"
Sheets("Projektübersicht FMSW").Range("I5").Value = Application.UserName
Sheets("Projektübersicht FMSW").Range("I4").Value = Strings.Format(Now, "hh:mm") & " Uhr - " & Strings.Format(Now, "YYYY-MM-DD")
Sheets("Projektübersicht FMSW").Protect Password:="XYZ", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
ActiveWorkbook.Save
End Sub


Private Sub workbook_activate()
'Automatisches Datum eintragen
Sheets("Projektübersicht FMSW").Unprotect Password:="XYZ"
Sheets("Projektübersicht FMSW").Range("I3") = Format(Now, "yyyy-mm-dd")
Sheets("Projektübersicht FMSW").Protect Password:="XYZ", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub

wenn man hier das selbe Blatt öfters verwendet, kann man sich mit der WITH-Klammer behelfen, hierbei wird das Blatt (oder Zellbereich oder anders Objekt) mit WITH definiert, welches immer dann angewendet wird, wenn ein Ausdruck mit dem Punkt beginnt:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Code für das Automatische Anzeigen des Speicherdatums und von der Person die gespeichert hat (Anmeldung am PC)
With Sheets("Projektübersicht FMSW")
.Unprotect Password:="XYZ"
.Range("I5").Value = Application.UserName
.Range("I4").Value = Strings.Format(Now, "hh:mm") & " Uhr - " & Strings.Format(Now, "YYYY-MM-DD")
.Protect Password:="XYZ", DrawingObjects:=True, Contents:=True, Scenarios:=True , AllowFiltering:=True
End With
ActiveWorkbook.Save
End Sub

Gruß Daniel

Sub xxxxxxxxx() ' Speichern Unter & ' Alle Filter zurücksetzen & ' Speichern mit Datum & Sachbearbeiter ' Schließen der aktiven Datei ' Makro ChDir "Z:\Sg_f\Alle\Projekte Schiffbau" ActiveWorkbook.SaveAs Filename:= _ "Z:\Sg_f\Alle\Projekte Schiffbau\" & Range("I3") & ("_") & Range("I2") & "_Projektübersicht-Wasserfahrzeuge SG Schiffbau.xlsm" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub

Hi
Workbooks_Open läuft beim Öffnen der Mappe.
Workbook_Activate läuft, wenn du mehrere Mappen hast und wischen den Mappen hin- und herwechselst.
Ob Workbook_Activate auch beim Öffnen läuft, weiß ich jetzt nicht auswendig, das müsstest du mal selber testen. (ich baue dazu gerne ein Beep ein, dann hört man, wenn das Makro ausgeführt wird)
in DieseArbeitsmappe kommen die EventMakros, die zur Arbeitsmappe gehören (Open, Close)
in die Tabellenblattmodule gehören die Eventmakros, die zu den jeweiligen Tabellenblättern gehören bzw nur bei einzelen Blättern ausgeführt werden sollen. (Selection_Change, Change), oder die Makros, die über die ActiveX-Elemente (buttons) auf dem Blatt ausgelöst werden
in allgemeine Module (Modul1, muss erst erst eingefügt werden), dann alle Makros, die allgemein und Blattunabhängig gelten und nicht automatsich bei bestimmen Aktionen ausgelöst werden (also alles, was kein Event-Makro ist)
Wenn du in "DieseArbeitsmappe" oder in einem Tabellenblattmodul bist, dann schau dir auch mal die beiden Comboboxen über dem Codefenster an. in der rechten bekommst du die möglichen Eventmarkos angezeigt.
Gruß Daniel

Private Sub Workbook_BeforeClose(Cancel As Boolean) 'Code für das Automatische Anzeigen des Speicherdatums und von der Person die gespeichert hat (Anmeldung am PC)vor dem schließen des Dokumentes With Sheets("Projektübersicht FMSW") .Unprotect Password:="XYZ" .Range("I5").Value = Application.UserName .Range("I4").Value = Strings.Format(Now, "hh:mm") & " Uhr - " & Strings.Format(Now, "YYYY-MM-DD") .Protect Password:="XYZ", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True End With ActiveWorkbook.Save End Sub

Private Sub workbook_activate() 'Automatisches Datum eintragen beim Öffnen der Datei With Sheets("Projektübersicht FMSW") .Unprotect Password:="XYZ" .Range("I3") = Format(Now, "yyyy-mm-dd") .Range("I1").Value = Application.UserName .Protect Password:="XYZ", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True End With ActiveWorkbook.Save End Sub

Beliebteste Forumthreads (12 Monate)

Fehler 1004 - Übertrag von Namen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler 1004 - Übertrag von Namen

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread