Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum und Uhrzeit ausgeben, wenn etwas in Zelle steht

Datum und Uhrzeit ausgeben, wenn etwas in Zelle steht
23.08.2024 08:36:24
Patzi
Hallo,

ich habe eine Tabelle, in die mittels Handscanner ein Strichcode gescannt wird und diese Tabelle wird dadurch ständig erweitert.
Ich möchte das Excel automatisch wenn ein neuer Code gescannt wird, in die Zelle daneben das Datum und die Uhrzeit geschrieben wird wann der Code gescannt wurde.

lg. PAtrick
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum und Uhrzeit ausgeben, wenn etwas in Zelle steht
23.08.2024 09:14:22
RPP63
Moin!
Wenn Du mal eine beliebige Suche nutzt, wirst Du zigtausend Codes finden, die alle das Gleiche machen:
Im Worksheet_Change wird Target auf Now gesetzt.

Gruß Ralf
AW: Datum und Uhrzeit ausgeben, wenn etwas in Zelle steht
23.08.2024 09:44:00
Marco1981
Nachdem du das nicht genau definiert hast, gehe ich davon aus, dass die Eingabe alle in der selben Spalte untereinander erfolgen?

Private Sub worksheet_change(ByVal target As Range)


Dim Zeile As Integer
Dim Spalte As Integer

Spalte = target.Column
Zeile = target.Row

If target.Column = 1 Then
Worksheets("Tabelle1").Cells(Zeile, Spalte + 1).Value = Now
End If

End Sub


dieser Code im Tabellenblatt-Modul fügt das aktuelle Datum und Uhrzeit in Spalte B ein, wenn in Spalte A eine Eingabe erfolgt
Du musst "Tabelle1" durch den Namen deines Tabellenblattes ersetzen und wenn deine Eingaben in einer anderen Spalte als A erfolgen, dann musst du bei "If target.Column = 1 Then" den 1er durch eine andere Zahl ersetzen ...
Anzeige
AW: Datum und Uhrzeit ausgeben, wenn etwas in Zelle steht
23.08.2024 10:15:26
Yal
Hallo Patrick,

es müsste irgendwo eine API geben, die die Übergabe der Daten an Excel steuert. Dort werden wahrscheinlich auch Ereignisse aufgelistet, die man abfangen könnte. Es ist aber nicht ganz VBA-Anfänger-Level.

Ansonsten, wie vorher gesagt, den Worksheet_Change Ereignis abfangen.

Der Code von Marco hätte ich aber so reduziert (Freitag ist Klugscheisertag ;-)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then Target.Offset(, 1).Value = Now
End Sub


VG
Yal
Anzeige
AW: Datum und Uhrzeit ausgeben, wenn etwas in Zelle steht
23.08.2024 11:25:03
Patzi
Vielen Dank für eure Hilfe, genau so funktioniert es.

lg. Patzi
AW: Datum und Uhrzeit ausgeben, wenn etwas in Zelle steht
23.08.2024 10:28:53
Marco1981
die Lösung von Yal ist natürlich viel eleganter ;)
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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