Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum und Uhrzeit fest eintragen

Datum und Uhrzeit fest eintragen
Josef_T
Guten Tag zusammen,
Habe eine Liste mit ca. 800 Zeilen, bei denen soll sich in der Spalte "J" das Datum und die Uhrzeit eintragen, wenn in Spalte "K" in der gleichen Zeile, der Text Gutschrift steht.
Habe es mit der Formel versucht, dann werden aber bei jeder Änderung, alle Einträge auf das gleiche Datum und Uhrzeit gesetzt. WENN(J16="Gutschrift";JETZT();"").
Kann mir bitte jemand einen Tipp geben? (am liebsten wäre mir eine Formel)
Danke schon mal
Gruß, Josef
AW: Datum und Uhrzeit fest eintragen
23.06.2012 19:46:37
Hajo_Zi
Hallo Josef,
mit einer Formel bekommst Du das nicht hin, da sich Jetzt bei jeder Berechnung aktualisieert. Benutze VBA das Change Ereignis für Spalte K, falls es Eingabe ist.

AW: Datum und Uhrzeit fest eintragen
23.06.2012 20:28:14
Josef_T
Hallo Hajo,
Danke für den Tipp.
Mein Prob. ist , dass ein anderes "Change Ereignis" in diesem TB, schon vorhanden ist.
Der Text "Gutschrift" wird über DropDown ausgewählt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 1 Then Exit Sub
Range("A9", Cells(Range("A65536").End(xlUp).Row, _
Cells(9, 256).End(xlToLeft).Column)).Sort _
Key1:=Range("A10"), _
Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
Gibt es denn eine Möglichkeit, in obigem Modul meinen Wunsch, zu realisieren? wenn Ja, wie denn bitte.
Gruß
Josef
Anzeige
AW: Datum und Uhrzeit fest eintragen
23.06.2012 20:56:01
Hajo_Zi
Hallo Josef,
das ist nicht der komplette Code.
Dir isrt schon bekannt das man nur den letzten beitrag siehst. Der Der Eintrag in Spalte K erfolgt konnte ich ja noch in meinem Beitrag sehen, aber nicht wohin das Datum und Zeit.
Gruß Hajo
AW: Datum und Uhrzeit fest eintragen
23.06.2012 21:16:28
Josef_T
Hallo Hajo,
Sorry, mein Fehler. Hier nochmal der komplette Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column 1 Then Exit Sub Range("A9", Cells(Range("A65536").End(xlUp).Row, _ Cells(9, 256).End(xlToLeft).Column)).Sort _ Key1:=Range("A10"), _ Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _ MatchCase:=False, Orientation:=xlTopToBottom End Sub Gruß Josef
Anzeige
AW: Datum und Uhrzeit fest eintragen
23.06.2012 21:19:23
Hajo_Zi
Hallo Josef,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Range("A9", Cells(Range("A65536").End(xlUp).Row, _
Cells(9, 256).End(xlToLeft).Column)).Sort _
Key1:=Range("A10"), _
Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
ElseIf Target.Column = 11 Then
Application.EnableEvents = False
Cells(Target.Row, 256) = Now
Application.EnableEvents = False
End If
End Sub
Gruß Hajo
Anzeige
AW: Datum und Uhrzeit fest eintragen
23.06.2012 21:19:28
Hajo_Zi
Hallo Josef,
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Range("A9", Cells(Range("A65536").End(xlUp).Row, _
Cells(9, 256).End(xlToLeft).Column)).Sort _
Key1:=Range("A10"), _
Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
ElseIf Target.Column = 11 Then
Application.EnableEvents = False
Cells(Target.Row, 256) = Now
Application.EnableEvents = False
End If
End Sub
Gruß Hajo
Anzeige
AW: Datum und Uhrzeit fest eintragen
23.06.2012 21:22:30
Hajo_Zi
Hallo Josef,
es fehlte Gutschrift
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Range("A9", Cells(Range("A65536").End(xlUp).Row, _
Cells(9, 256).End(xlToLeft).Column)).Sort _
Key1:=Range("A10"), _
Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
ElseIf Target.Column = 11 Then
If Target = "Gutschrift" Then
Application.EnableEvents = False
Cells(Target.Row, 256) = Now
Application.EnableEvents = False
End If
End If
End Sub

Gruß Hajo
Anzeige
AW: Datum und Uhrzeit fest eintragen
23.06.2012 22:16:37
Josef_T
Hallo Hajo,
Vielen Dank für Deine Hilfe, aber so ganz funktioniert es leider noch nicht. Das Datum wird nicht in die
Spalte K geschrieben wenn ich über DropDown, Gutschrift auswähle.
Hier mal ein Muster:

Die Datei https://www.herber.de/bbs/user/80703.xls wurde aus Datenschutzgründen gelöscht


Gruß Josef
AW: Datum und Uhrzeit fest eintragen
23.06.2012 22:46:58
Josef_T
Hatte vergessen auf Frage noch offen zu stellen.
Bitte mal ansehen,...Korrekturen noch nötig
24.06.2012 00:20:24
Matze,Matthias
Hallo josef_T,
habe die Mappe mal was das Thema "Gutschrift" betrifft abgeändert,
das läuft soweit, aber das CHANGE erfolgt erst, wenn in eine andere Zelle des Bereichs geklickt wird.
Das muss noch korregiert werden.
Das Thema Autofilter? hab ich keinen Plan , habe ich nach unten verschoben.
Datei abgeändert : https://www.herber.de/bbs/user/80704.xls
Gruß Matze
Anzeige
Korrekturen nötig ... Richtig erkannt
24.06.2012 08:29:11
Matthias
Hallo zusammen ...
@Matze
Du solltest nicht das Selection_Change benutzen sondern nur das Change-Ereignis
Ausserdem überschreibst Du so alle bereits gesetzten Daten/Zeiten der "Gutschrift" in Spalte11
beim ersten Klick in eine Zelle der Spalte(10).

Das mit dem Filter hat Hajo doch schon gepostet und es funktioniert ja auch.
Einzig mit dem Spaltenindex des ElseIF-Zweiges hat er sich vertan.
   ElseIf Target.Column = 11 Then 'sollte aber (10) sein
If Target = "Gutschrift" Then
Application.EnableEvents = False  'warum Hajo hier 2x auf False stellt weiß ich  _
nicht
Cells(Target.Row, 256) = Now       'hier würde ich Target.Offset( ,1) benutzen
Application.EnableEvents = False  'hier das 2. mal sollte wennschon (True) sein

Warum hier die Spalte 256 gefüllt wird, weiß ich nicht
Desweiteren bin ich der Meinung das EnableEvents "anzufassen" nicht nötig ist.
Es reicht zu prüfen ob Target in Spalte(10) ist und "Gutschrift beinhaltet.
Dann, wenn Target.Offset(,1) leer ist, das Datum dort eintragen.

https://www.herber.de/bbs/user/80705.xls
Gruß Matthias
Anzeige
AW: Korrekturen nötig ... Richtig erkannt
24.06.2012 09:22:04
Hajo_Zi
Hallo Matthias,
die Spalte wurde asuf meine Rückfrage nicht angegeben, da habe ich eine angenommen.
EnableEvents ist meiner Meinung nach notwendig da Chamge durch die Eingabe ausgelöäst wird.
Gruß Hajo
AW: Korrekturen nötig ... Richtig erkannt
24.06.2012 09:39:01
Hajo_Zi
Hallo Matthias,
das das zweite True sein muss ist korrekt, hatte ich kopiert.
Hallo,
zu Fragen die nicht meine Homepage betreffen bist Du in einem Forum besser aufgehoben. Da lesen es mehr Leute rund um die Uhr.
Gruß Hajo
hab ich nicht verstanden ...
24.06.2012 10:04:23
Matthias
Hallo Hajo
Ich weiß leider nicht wie ich Deine 2. Antwort einordnen soll.
Zitat:
zu Fragen die nicht meine Homepage betreffen bist Du in einem Forum besser aufgehoben. Da lesen es mehr Leute rund um die Uhr.
Was meinst Du damit?
Gruß Matthias
Anzeige
AW: hab ich nicht verstanden ...
24.06.2012 10:06:12
Hajo_Zi
Hallo Matthias,
das war ein Versehe mit dem Abspann, da habe ich den falschen Text aus der TB-Jeanie reingezogen.
Gruß Hajo
alles klar ... owT
24.06.2012 10:07:55
Matthias
AW: Korrekturen nötig ... Richtig erkannt
24.06.2012 09:30:54
Josef_T
Guten Morgen Matthias L,
genau so sollte es sein. Einfach Perfekt!
Matthias, Herzlichen Dank für Deine Lösung.
Gruß und schönes WE
Josef
AW: Datum und Uhrzeit fest eintragen
24.06.2012 09:20:00
Hajo_Zi
Hallo Josef,
Ich hartte in meinem Beitrag geschrieben das in Spalzte K Gutschrift steht und die Spalte wo das Datum hingeschrioeben werden soll, mir nicht bekannt ist darauf kam keine Reaktion. Also habe ich das angenommen und es geht. Das habe ich getestet.
Gruß Hajo
Anzeige
AW: Datum und Uhrzeit fest eintragen
24.06.2012 09:53:16
Josef_T
Guten Morgen Hajo,
hatte im 1. Post geschrieben, dass das Datum in die Spalte K geschrieben werden soll.
Habe leider nicht registriert, dass Du den Post nicht richtig lesen konntest. Sorry, war mein Fehler.
Danke sehr für Deine Arbeit und noch ein schönes WE
Gruß Josef
AW: Datum und Uhrzeit fest eintragen
24.06.2012 10:01:28
Hajo_Zi
Hallo Josef,
ich hatte geschrieben man sieht nur den letzten Beitrag und das Gutschrift in Spalte K steht da ich dies aus meinem Beirtrag sehe aber ich nicht mehr sehe wohin geschrieben werrden soll und darauf erfolgte keine Reaktion. Also habe ich eine spalte ausgewählt die wahrscheinlich nicht belegt ist.
Gruß Hajo
Stell die Datei doch mal ins Forum ,..
23.06.2012 21:03:42
Matze,Matthias
Hallo Josef_T,
.... oder mach eine Musterdatei mit dem gleichen Codeschnipseln.
Hajo hat völlig Recht,...so raten wir nur.
Gruß Matze
AW: Stell die Datei doch mal ins Forum ,..
24.06.2012 10:05:04
Josef_T
Guten Morgen Matze,
hatte einen Code-Schnipsel hochgeladen.
Danke für Deine Mühe und noch ein schönes WE.
Gruß
Josef

337 Forumthreads zu ähnlichen Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
Anzeige
Datum - Zeit - Wochentag alles in einer Zelle ...
Frank

Hi,
also wie man eine Zelle formatiert damit man das Datum und die Uhrzeit dazu (03-Oct-08 10:30) in einer Zelle hat weiss ich. Wie man da nach Angabe des Datums u. der Zeit jetzt aber noch den jeweiligen Wochentag autom. dazu bekommt (Fr. 03-Oct-08 10:30) ... da muss ich mal ins Forum frag...
05.10.2008 08:29:47
Thread-ID: 1014206
2 Beiträge
Uhrzeit als Text
Herbert

Hallo,
in meiner Tabelle in Zelle A1 steht das Datum und die Uhrzeit z.B. "14.10.2008 07:00".
Ich möchte in der Zelle B1, dass nur die Uhrzeit erscheint. Diese muss aber im Textformat hinterlegt sein.
Bin für jede Hilfe dankbar.
Gruß Herbert
15.10.2008 11:20:00
Thread-ID: 1016508
5 Beiträge
Anzeige
Formel mit Text Datum und wert in Zeitreihe
Karel

Hallo Forum,
Habe ein bezahl blatt mit betragen in eine Spalte wird eingetragen als Text Bezahlt oder Offen wie kann ich an hand von Datum und Text (bezalt oder Offen) diese wert in eine Zeitreihe darstellen ab Zelle i11 und i12
Tabelle1

 BCDEFGHIJKLMN11   &...
19.11.2008 20:37:00
Thread-ID: 1026214
5 Beiträge
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
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
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
DATUM UND UHRZEIT
Lutz

Hallo zusammen,
hab mich für folgende Lösung entschieden :
'********************************************************************************
'*...
27.01.2009 21:18:30
Thread-ID: 1044394
4 Beiträge
Anzeige

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
3
5
1
4
10
4
1
12
4
3
1
2
2
2
3
1
5
3
2
7
1
2
9
4
2