Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
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
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatischer Datums/Zeieintrag beim Start/Beenden

Automatischer Datums/Zeieintrag beim Start/Beenden
TommiH
Hallöchen,
kann man Folgendes unter Excel realisieren?
Eine Excel-Datei wird geöffnet und direkt beim Öffnen wird die aktuelle Uhrzeit+Datum automatisch in Blatt DATS in der Spalte A eingetragen (fortlaufend, also beim nächsten Aufruf eine Zeile weiter unten usw.) Und in Spalte B wird immer beim Schliessen der Datei das Datum+die Uhrzeit eingetragen (ebenfalls wieder fortlaufend).
Tommi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Automatischer Datums/Zeieintrag beim Start/Beenden
18.10.2010 11:48:35
Klaus
Hallo Tommi,
in "diese Arbeitsmappe":
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lRow As Long
With Sheets("DATS")
lRow = .Range("A65536").End(xlUp).Row + 1
.Range("A" & lRow) = Date
.Range("B" & lRow) = Time
.Range("C" & lRow) = "geschlossen"
'.Range("D" & lRow) = Environ("username")
End With
End Sub
Private Sub Workbook_Open()
Dim lRow As Long
With Sheets("DATS")
lRow = .Range("A65536").End(xlUp).Row + 1
.Range("A" & lRow) = Date
.Range("B" & lRow) = Time
.Range("C" & lRow) = "geöffnet"
'.Range("D" & lRow) = Environ("username")
End With
End Sub
Grüße,
Klaus M.vdT.
Anzeige
Korrektur
18.10.2010 11:52:27
Klaus
Entschuldige,
ich habe die Aufgabenstellung nicht aufmerksam gelesen. Korrektur anbei:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lRow As Long
With Sheets("DATS")
lRow = .Range("B65536").End(xlUp).Row + 1
.Range("B" & lRow) = Date & " " & Time
End With
End Sub
Private Sub Workbook_Open()
Dim lRow As Long
With Sheets("DATS")
lRow = .Range("A65536").End(xlUp).Row + 1
.Range("A" & lRow) = Date & " " & Time
End With
End Sub

Rückmeldung?
22.10.2010 15:33:20
Klaus
Hi Tommi,
die Antwort steht jetzt schon eine Woche drin. Eine Rückmeldung, ob's dir geholfen hat, wäre toll ...
Grüße,
Klaus M.vdT.
Anzeige

301 Forumthreads zu ähnlichen Themen

Automatische Werte befüllen wenn bestimmtes Datum
Heiderer

Hallo!
Ich habe folgendes Excel-Sheet:
In Spalte A soll mittels VBA ein Datum eingefügt werden, zb. 01.09.2008. In Spalte B soll ein Betrag zb. € 70,00 eingetragen werden. Bezüglich der Spalte B gibt es kein Problem. Es geht nur um die Spalte A.
Ich will nämlich, dass Excel autom...
03.09.2008 13:43:00
Thread-ID: 1007096
30 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Zeile anlegen, dann Datum von heute
heute

Hallo Leute,
ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
23.09.2008 16:37:51
Thread-ID: 1011817
12 Beiträge
Anzeige
Aktuelles Datum und aktuelle Uhrzeit
Herbert

Hallo Experten,
ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
Gruß Herbert
20.11.2008 11:38:00
Thread-ID: 1026354
2 Beiträge
Aufgabe an Outlook wenn Datum gleich heute
Lucia

Hallo zusammen,
Mit dem nachfolgenden Makro möchte ich die jeweiligen, nach Themen definierten Maßnahmen als Outlookaufgaben verteilen. Das klappt ganz gut. Was ich nicht hinbekomme, ist eine If Schleife, die prüft, ob das Datum in Aendd (Datum der letzten Änderung) dem heutigen entspricht...
26.11.2008 16:00:07
Thread-ID: 1028078
3 Beiträge
Datum und Uhrzeit mit einem Tastendruck
P.

Hallo.
ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
Kann mir jemand helfen? Im Archiv habe ich nicht...
06.12.2008 13:05:21
Thread-ID: 1030655
13 Beiträge
aktuelles Datum anzeigen
Philipp

Hallo liebe Herber-Gemeinde,
ich möchte gern, dass mir Excel das aktuelle Datum in einer Zelle anzeigt. Weiss leider nicht wie das geht.
Vielleicht kann mir zusätzlich noch jemand sagen, wie man das mit einer Formel verknüpft wenn ich die Datumzelle mit der Bezeichnung "heut" in eine Fo...
09.12.2008 08:53:21
Thread-ID: 1031245
3 Beiträge
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 Beiträge

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
29
5
6
11
2
1
2
12
2
4
3
3
1
8
2
3
2
8
7
4
2
3
3
5
1