Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

speicherdatum und user in Tabellenblatt speichern

Forumthread: speicherdatum und user in Tabellenblatt speichern

speicherdatum und user in Tabellenblatt speichern
27.02.2007 09:34:00
Andrew
Hallo zusammen,
ich möchte in einer Datei in einem Tabellenblatt das Datum, die Uhrzeit und den User fortlaufend speichern. Im Archiv habe ich dazu folgendes Makro gefunden: 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(3).Range("G2") = Date
Sheets(3).Range("H2") = Time
End Sub

Das Makro funktioniert gut. Jedoch wird das Datum und die Zeit immer wieder überschrieben. Ich möchte aber, dass die Informationen fortlaufend jeweils in der darunterliegenden Zeile gespeichert werden, so dass ich die Historie verfolgen kann.
Des weiteren wäre es super, wenn sich der Username des jenigen, der die Datei gespeichert hat auch ermitteln ließe.
Für eure Hilfe wäre ich sehr dankbar.
Viele Grüße
Andrew
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: speicherdatum und user in Tabellenblatt speichern
27.02.2007 10:22:00
Andrew
Hallo nochmal,
den UserName ermittle ich nun wie folgt:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(3).Range("G2") = Date
Sheets(3).Range("H2") = Time
Sheets(3).Range("I2") = Application.UserName
End Sub

Aber wie schaffe ich es nun, dass die neuen Daten jeweils eine Zeile tiefer eingetragen werden?
Wenn Ihr Ideen habt, wäre ich sehr dankbar.
Viele Grüße
Andrew
Anzeige
AW: speicherdatum und user in Tabellenblatt speichern
27.02.2007 10:28:00
haw
Hallo Andrew, 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim efz%
With Sheets(3)
efz = .Cells(Rows.Count, 7).End(xlUp).Row + 1
.Cells(efz, 7).Value = Date
.Cells(efz, 8).Value = Time
.Cells(efz, 9).Value = Application.UserName
End With
End Sub

Gruß Heinz
Anzeige
AW: speicherdatum und user in Tabellenblatt speichern
27.02.2007 10:26:00
Harald
Hi Andrew,
suchst Du sowas ? 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Lrow As Long
Lrow = Sheets(3).Cells(Rows.Count, 1).End(xlUp).Row + 1
With Sheets(3)
.Unprotect "Passwort"
.Cells(Lrow, 1) = "gespeichert am " & Format(Now, "dd.mm.yy hh:mm")
.Cells(Lrow, 2) = " von " & Environ("Username")
.Columns.AutoFit
.Protect "Passwort"
End With
End Sub

Gruss Harald
Anzeige
Vielen Dank an euch beide, läuft Spitze!
27.02.2007 10:36:00
Andrew
Hallo Heinz
hallo Harald,
ich danke euch beiden sehr. Es funktioniert genauso, wie ich es brauche.
Viele Grüße
Andrew
AW: speicherdatum und user in Tabellenblatt speichern
27.02.2007 10:35:00
Egres
Hallo Andrew
hier noch ein Vorschlag:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets(3).Range("G2").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Range("A1").Select
Loop
ActiveCell.FormulaR1C1 = Date
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = Time
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = Environ("USERNAME")
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = Environ("computername")
End Sub

Gruss
Egres
Anzeige
AW: speicherdatum und user in Tabellenblatt speichern
27.02.2007 10:37:38
Andrew
Hallo Egres,
danke für deine Idee. Ich werde sie auch sofort ausprobieren.
Viele Grüße
Andrew
;

Forumthreads zu verwandten Themen

Tabellenblatt unter Blattnamen speichern
Jakob

Hallo,
ich möchte ein einzelnes Tabellenblatt unter den Blattnamen und den Wert aus der Zelle B11 im Tabellenblatt "Eingabe" abspeichern. Die Zelle B11 habe ich mit einen Namen (Lieferung) definiert.
Wie muß der VBA-Code dafür aussehen?
Vielen Dank schon mal für Eure Hilfe.
Gruß...
23.09.2008 17:08:00
Thread-ID: 1011833
4 Beiträge
Tabellenblatt separat speichern als csv
Herbert

Hallo,
der beigefügte Code wurde mir freundlicherweise hier bereit gestellt. Aus einer Datei wird ein Tabellenblatt in eine neue Datei im Ordner C:\temp gespeichert. Das Dateiformat der neuen Datei ist csv. Die einzelnen Werte der neuen csv-Datei werden durch Semikolon getrennt. Ich benötig...
16.10.2008 16:07:00
Thread-ID: 1016905
6 Beiträge
Einzelnes Tabellnblatt in PDF Datei speichern
Jens

Ich habe folgendes Problem, ich möchte ein einzelnes Tabellenblatt aus Excel heraus in eine Pdf Datei mittels command Buttom und Makro/ VBA speichern. Als PDF Prog nutze ich Adobe Acrobat Prof 8.0(bringt nen Converter mit).
THX im Voraus
27.02.2009 15:30:50
Thread-ID: 1054824
14 Beiträge
Kopiertes Tabellenblatt aus Vorlage speichern
Bertram

Hallo zusammen,
ich bekomme seit Neuestem beim Speichern einer Datei (mittels VBA) manchmal eine Fehlermeldung. Ich habe zwar schon im Archiv gesucht, aber nix gefunden. Wahrscheinlich liegt's an meinen Suchbegriffen, denn ich hab die Fehlermeldung noch nie vorher gesehen und weiß nicht, wi...
05.03.2009 12:20:42
Thread-ID: 1056776
11 Beiträge
Tabellenblatt Kopieren, mit anderem Name speichern
Mandy

Hi,
Hoffe mal wieder auf Eure Hilfe: Wie kann ich denn per Makro in meiner XLS das Sheet "Ablage" kopieren und im gleichen sheet unter dem Name "Data" wieder einfügen ?
Danke
mandy
24.03.2009 14:35:27
Thread-ID: 1063343
3 Beiträge
nur eine Tabelle anwählen, falls ...
Peter

Guten Tag
Gelegentlich wähle ich in einer Arbeitsmappe gleichzeitig mehrere Tabellen an, wenn ich beispielsweise bei allen die gleichen Änderungen durchführen will.
Nun habe ich mir eine Routine geschrieben, die auf allen Tabellen ein Passwort setzt oder entfernt.
Diese Routine läuf...
02.06.2009 09:34:43
Thread-ID: 1078545
8 Beiträge
Anzeige
Tabellenblätter kopieren und speichern
Bastian

Hallo zusammen,
da ich nach langem suchen nicht weiterkomme, hoffe und denke ich, dass mir weitergeholfen werden kann.
Kurz zu meinem Hintergrund: Nachdem ich Excel jahrelang eher zu Erstellung meines Stundenplans an der Uni genutzt habe, arbeite ich seit ca. 2 Jahren etwas intensiver d...
16.09.2009 10:01:09
Thread-ID: 1103108
6 Beiträge
Anzeige
VBA:einzelnes Blatt in neuer Datei speichern +mehr
habneFrage

Hallo liebes Forum! Ich habe mich hier heute mal angemeldet, da ich schon seit längerer Zeit an einem Problem arbeite aber keine Lösung gefunden habe. Ich habe mit VBA nicht besonders viel am Hut, dafür kann ich mit anderen Dingen in Excel schon besser umgehen. Nun aber zu meinen Fragen:
Ic...
30.10.2009 08:03:49
Thread-ID: 1113145
14 Beiträge
Anzeige
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
Name nur einmal im Tabellenblatt
Heidi

Hallo zusammen,
gibt es die Möglichkeit einem Tabellenblatt zu sagen, dass z. B. der Name "Martin" nur 1 x vorkommen darf? Natürlich sind die Namen variabel.
Vielen Dank und Gruß
01.12.2009 11:37:55
Thread-ID: 1121180
5 Beiträge
Tabellenblatt als Datei speichern
Murat

Was stimmt bei dem VBA code nicht bekomme Fehler bei kompilieren variable nicht definert
Ich möchte die einzeln Tabellenblätter als Datei Speichern. ich habe 20 Tabellenblätter in einer Datei aus der sollen 20 Dateien werden. Dateiname steht immer in Zelle i2 des jeweiligen tabellenblattes....
19.01.2010 16:27:42
Thread-ID: 1131114
6 Beiträge
Images aus Tabellenblatt auf C speichern
kle

Hallo,
habe in einem Tabellenblatt eine Grafik (Bild) - dieses möchte ich gern temporär auf C:\Temp speichern als gif und nach einem anderen Vorgang soll es wieder gelöscht werden.
Aber irgendwie bekomme ich das speichern nicht hin... HILFE !
Vielen Dank !
Gruß
Kay
09.05.2010 21:51:45
Thread-ID: 1156307
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige