Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.10.2025 13:07:55
Excel-Blatt automatisch aktualisieren
06.10.2025 12:46:12
Mittelwert - Wert aus Formel übernehmen
06.10.2025 08:12:13
VBA - Von Word Doc in Excel Sheet schreiben
05.10.2025 23:18:01
Summewenns aber mit VBA
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
1404to1408
1404to1408
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeitstempel fortlaufend eintragen

Forumthread: Zeitstempel fortlaufend eintragen

Zeitstempel fortlaufend eintragen
23.01.2015 07:25:36
Steffen

Hallo miteinander,
ich habe die ehrenvolle Aufgabe bekommen die Arbeitszeiten unserer Mitarbeiter zu pflegen/überwachen. Nun würde ich gern jedem Mitarbeiter ne Verknüpfung für folgendes Excel-Sheet auf seinem Desktop installieren.
Aufgrund fehlendem Vertrauen sollten allerdings die Mitarbeiter nicht direkt ihre Anwesenheitszeit eintragen sondern mit Klick auf einen "Kommen" und "Gehen" Button die Zeiten nur festhalten.
Diese Zeitstempel sollten fortlaufend eingetragen werden.
Ein erster Entwurf (allerdings ohne VBA Code :) habe ich mal angefügt.
https://www.herber.de/bbs/user/95193.xlsx
Was VBA angeht stecke ich noch in den Kinderschuhen
Für Anregungen/ Vorschläge wäre ich euch sehr dankbar
VG
Steffen

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeitstempel fortlaufend eintragen
23.01.2015 08:27:12
Klaus
Hi Steffen,
den Code kannst du anpassen wie du ihn brauchst, ich hab erstmal alle sinnigen Möglichkeiten rein getan: 

Option Explicit
Private Sub CommandButton1_Click()
Dim lZeile As Long
lZeile = Cells(Rows.Count, 4).End(xlUp).Row + 1
Cells(lZeile, 4).Value = Time
Cells(lZeile, 5).Value = Date
Cells(lZeile, 7).Value = Now
Cells(lZeile, 6).Value = Environ("Username")
End Sub
Private Sub CommandButton2_Click()
Dim lZeile As Long
lZeile = Cells(Rows.Count, 8).End(xlUp).Row + 1
Cells(lZeile, 8).Value = Time
Cells(lZeile, 9).Value = Date
Cells(lZeile, 10).Value = Now
Cells(lZeile, 11).Value = Environ("Username")
End Sub
Grüße,
Klaus M.vdt.

Anzeige
AW: Zeitstempel fortlaufend eintragen
23.01.2015 12:32:23
Steffen
Klappt hervorragend :)
Vielen, vielen Dank

Danke für die Rückmeldung! owT.
23.01.2015 12:57:34
Klaus
.

etwas OT: Vertrauen und Excel ...
23.01.2015 13:02:32
Klaus
Hallo Steffen,
eine Randnotiz noch:
Aufgrund fehlendem Vertrauen sollten allerdings die Mitarbeiter nicht direkt ihre Anwesenheitszeit eintragen sondern mit Klick auf einen "Kommen" und "Gehen" Button die Zeiten nur festhalten.
Wer immer das entschieden hat: Das bringt nichts. Wenn die kriminelle Energie vorhanden ist seine Arbeitszeiten vorsätzlich falsch einzutragen, macht der/diejenige das auch trotz eines Buttons. Blattschutz, Schreibschutz und Projektschutz unter Excel sind von einem versierten User innerhalb von wenigen Minuten gehackt, ein nur mittelmäßig begabter User schafft das innerhalb von 30 Minuten - Google gibt die dazu nötigen Anleitungen allzu freizügig heraus.
Was ich da eher vorschlagen würde: eine klassische Stechuhr.
Grüße,
Klaus M.vdT.

Anzeige
AW: etwas OT: Vertrauen und Excel ...
24.01.2015 11:23:49
Ewald
Hallo,
mit etwas mehr Aufwand ist es schon möglich, denn wenn der Mitarbeiter erst garnicht in die Datei kommt, kann er auch wenig manipulieren.
Hundertprozentige Sicherheit gibt es aber nicht, aber dies ist auch bei einer Stechunr nicht gegeben. Je nach Ausführung lassen sich auch diese ganz einfach manipolieren.
Nur wenn das Vertrauen so groß ist, wer sagt denn den Mitarbeitern, das ihre Zeit nicht manipoliert wird.
Gruß Ewald

Anzeige
AW: etwas OT: Vertrauen und Excel ...
26.01.2015 09:28:26
Klaus
Hallo Ewald,
über 100%ige Sicherheit müssten wir natürlich nicht reden - es kann auch das Pentagon gehackt werden.
Dein Ansatz, die Zeiten oder überhaupt Daten in einer anderen Datei ohne zugriff zu speichern, interessiert mich aber. Excel-VBA muss ja in die Datei kommen um da rein zu schreiben, also ist das "Recht" die Datei zu öffnen vorhanden. Den Dateipfad bekomme ich auch relativ einfach heraus, der steht ja mehr oder weniger offen im Code (die Möglichkeit der Code-obfuscation ignoriere ich hier mal, da sehr praxisfremd). Ich sehe keine Möglichkeit - wie sieht deine Lösung aus?
Grüße,
Klaus M.vdT.

Anzeige
AW: etwas OT: Vertrauen und Excel ...
28.01.2015 01:43:47
Ewald
Hallo Klaus M.vdT.
hier mal eine Möglichkeit
https://www.herber.de/bbs/user/95341.zip
Dateien in einen Ordner entpacken und eine Verknüpfung zur vbs auf den Desktop legen
Stempeluhr ruft die Stempeluhr auf, Stempelnachweis wäre dann die externe Datei,
Im Moment wird noch in die gleiche Datei geschrieben. habe es noch nicht geschafft den einzufügen.
Im Prinzip aber so
Man ruft eine neue Excel Instanz auf zeigt diese aber nicht an, dann die Datei aufrufen und die Tabelle setzen.Nun kann geschrieben werden. Dann die Datei speichern und Datei und die zweite Excel Instanz schließen.
Die Passwoerter kann man dann auch noch verstecken, zB in Tags von Labels in einer Userform
Das "Kennwort = abcdef.hijkl.Tag" die Abfrage eines Labeltags ist dürfte auf den ersten Blick kaum ersichtlich sein.
aber es gibt ja noch mehr Möglichkeiten.
Gruß Ewald
Anzeige
;

Forumthreads zu verwandten Themen

Text fortlaufend kopieren
Joachim

HI,
ich habe ein Problem mit der Formatierung einer Textbox. Folgendes: ich habe auf meinem Sheet mehrere Zellen mit Textinhalt. Dieser Zextinhalt hat leider Zeilenumbrüche. Nun möchte ich den Text von B15 in eine Textbox einlesen:
For Each C In Range("B15")
TextBox4.Value = C.Value...
01.09.2008 10:46:00
Thread-ID: 1006350
7 Beiträge
Anzeige
Zeile fortlaufend nach Textdatei
Daniel

Hallo,
in einer Tabelle wird laufend ein Wert berechnet. Nun möche ich mit Worksheet_Calculate
ein Makro aufrufen, das diesen Wert, untereinander (zeilenweise) in eine Textdatei schreibt.
Das habe ich bisher, ich dachte \n bewirkt einen Zeilenumbruch...tut es aber nicht. Stattdess...
02.10.2008 10:12:00
Thread-ID: 1013799
4 Beiträge
Anzeige
log-Dateien fortlaufend importieren
Schulze

Liebe Excelianer,
unser Admin ist kürzlich mit einer Frage an mich herangetreten (einmal "Experte" immer "Experte" :-), von der ich mal wieder dachte: "Null Problemo!" bei der Umsetzung sah es dann "mal wieder" etwas anders aus...
Er möchte log Dateien des Mailservers in Excel einlesen...
18.11.2008 12:50:00
Thread-ID: 1025616
2 Beiträge
Formatierung Daten in Prozent fortlaufend
Wolfgang

Guten Morgen,
ich möchte unter einer Tabellenspalte mit Daten von z.B. (Spalte A =5, Spalte B =17, Spalte C =32.... bis Spalte X = 790) eine Formatierung bzw. Formel erstellen die mir automatisch, unter jeder Spalte, die jeweiligen Prozente der oberen Zahlen anzeigt
- wobei unter Spalt...
21.11.2008 07:54:55
Thread-ID: 1026590
7 Beiträge
Anzeige
Daten fortlaufend von Formular in Range schreiben
Formular

Hi,
wie kann ich denn folgende Abfrage bzw kopieren erledigen:
Ich habe Ein Formular mit Textbox'n und Combobox'n
auf einem Bestimmte Tabellenblatt ("Daten") möchte ich nun die Folgenden Inhalte kopieren (button)
Auf dem Tabellenblatt ("Daten") habe ich ein Range B33 : F42 (also...
29.01.2009 09:26:24
Thread-ID: 1044806
3 Beiträge
Fortlaufende Preise
tor

Hallo zusammen,
ich habe da ein kleines Problem:
Ich ermittle mir anhand von Kosten einen Tarif (Spedition) der in PalettenSparten aufgeteilt wird.
also:
- 1 Palette = 74€
- 2 Paletten = 146€
- 3 Paletten = 216 €
- usw.
Jetzt kommt es aber durch unterschiedliche...
16.03.2009 13:58:04
Thread-ID: 1060726
4 Beiträge
fortlaufende nummern einfügen
ben

hallo leute
ich habe folgendes problem. in einer spalte a stehen wahllos daten und es können leerzeilen vorhanden sein. jetzt will ich bei betätigung eines button immer wenn in einer zelle der spalte a ein wert auftaucht eine fortlaufende nummer zuordnen. leider bekomm ich es nur hin wenn a...
05.05.2009 10:06:00
Thread-ID: 1072981
13 Beiträge
Fortlaufende Integer-Zahl mittels Zeit & Datum?
Dennis

Hallo Forum,
ich benötige für viele kleine Prozesse eine fortlaufende 8-stellige Integer-Zahl. Dazu wollte ich in der Auto_open() das Datum und die Zeit zu Hilfe nehmen, damit sich die Zahl ganz sicher nicht wiederholt und dann bei jedem Prozess, der eine neue ID verlangt, die Zahl um 1 erh...
25.05.2009 10:59:30
Thread-ID: 1077099
11 Beiträge
fortlaufende Numerierung beim drucken
guido

Moin Moin
bin schon etwas länger auf der Suche nach einem vba Tool für Excel, dass mir beim Ausdruck automatisch die Seiten durch nummeriert nach dem ich die Startseitenzahl festgelegt habe.
Zur kurzen Erklärung:
Ich habe eine Excel Vorlage (DIN A4) erstellt und diese in zwei Seiten...
27.05.2009 12:35:30
Thread-ID: 1077676
5 Beiträge
Fortlaufende Uhrzeit in Statusleiste zei
Lang

Hallo Excelfreunde,
wer kann weiterhelfen? Habe versucht, in der Statusleiste die nachfolgende Prozedur (stammt aus Thema: Ereignis - OnTime, Text-Index: 067199) an's Laufen zu bringen. Es wird nur eine feste Uhrzeit angezeigt. Eine Zellenanzeige brauche ich nicht.
'Public Const gsMacro...
27.06.2009 15:30:36
Thread-ID: 1084832
3 Beiträge
Fortlaufende Nummer
Pedro

Hallo zusammen!
Habe da einen Bericht, der eine fortlaufende Nummer erhalten soll. Und zwar sollte diese Nummer mit dem aktuellen Datum (=HEUTE()) gekoppelt sein. D.h. der Bericht von heute 08.07.2009 hat die fortlaufende Nummer 93, der morgige Bericht die Nummer 94 etc.
Dieser Bericht...
08.07.2009 16:21:10
Thread-ID: 1087234
3 Beiträge
Datum fortlaufend
Ralf

Hallo zusammen, habe ein kleines Problem und hoffe auf Hilfe.
Also ich soll einen Bauzeitenplan erstellen ind habe in der Spalte A eine Zeitschiene mit einem Anfang und einem Ende der Bastelle in einem Datumsvormat eingegeben.
Jetzt ist diese Zeitschiene farblos und es soll als arbeitsf...
15.07.2009 15:18:35
Thread-ID: 1088852
3 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