Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Lupo am August 11, 2016, 12:27:24 Nachmittag

Titel: Office 2016 Uhrzeit
Beitrag von: Lupo am August 11, 2016, 12:27:24 Nachmittag

Hallo,

ich weiß das es zu diesem Thema schon viele Fragen/Antworten gibt, aber ich scheitere trotzdem daran.

Ich möchte immer wenn in Spalte C ein "x" eingetragen wird in der gleichen Zeile in Spalte H die Uhrzeit erhalten von dem Mment wo das "x" eingetragen wurde. Diese Zeit soll sich aber nicht ständig aktualisieren.

Ich bitte um Hilfe. Danke

Titel: Antw:Office 2016 Uhrzeit
Beitrag von: gmg-cc am August 11, 2016, 13:49:11 Nachmittag

Moin,
formatiere die Spalte_H im beutzerdefinierten Format h:mm
und packe folgendes Makro in das Modul des Blattes:

Code: [Auswählen]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 3 And LCase(Target) = "x" Then Target.Offset(0, 5) = Time
End Sub

Titel: Office 2016 Antw:Office 2016 Uhrzeit
Beitrag von: Lupo am August 11, 2016, 20:41:57 Nachmittag

Hallo Günther,
danke für Deine Hilfe ! Leider bekomme ich es nicht hin. Irgendwie habe ich es in das Modul bekommen. (Siehe bitte das angehängte Bild) Aber es tut nichts. Was mache ich falsch, wie muss ich detailiert vorgehen ?

Entschuldigung, aber das sind Böhmische Dörfer für mich.

Ich danke schon mal für weitere Hilfe.

Gruß Lupo

Titel: Antw:Office 2016 Uhrzeit
Beitrag von: mumpel am August 11, 2016, 20:48:44 Nachmittag

Hallo!

Der Code muss in den Codebereich der Tabelle. Doppelklicke auf "Tabelle1("Tabelle1")" und dorthinein den Code.

Gruß, René

Titel: Office 2016 Antw:Office 2016 Uhrzeit
Beitrag von: Lupo am August 11, 2016, 20:53:17 Nachmittag

Danke Rene,

ich glaubs nicht, es klappt ! Vielen Dank
 :)

Titel: Office 2016 Antw:Office 2016 Uhrzeit
Beitrag von: Lupo am August 11, 2016, 21:05:40 Nachmittag

Hallo,

jetzt wo das so toll funktioniert habe ich noch eine Frage. Sollte ich fehlerhafter Weise in Spalte C ein "x" gesetzt haben und korrigiere nun meinen Fehler indem ich das "x" wieder entferne, bleibt di Uhrzeit in Spalte H stehen. Kann man das noch ändern ? Also, dass dann die Uhrzeit auch wieder gelöscht wird ?

Danke. Gruß Lupo

Titel: Antw:Office 2016 Uhrzeit
Beitrag von: gmg-cc am August 11, 2016, 21:47:54 Nachmittag

Moin,

ich würde dann das Zahlenformat der Spalte_H so ändern: h:mm;; und diesen Code verwenden:

Code: [Auswählen]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 3 Then
      Select Case Target
      Case "X", "x"
         Target.Offset(0, 5) = Time
      Case ""
         Target.Offset(0, 5) = 0
      Case Else
         Target.Offset(0, 5) = ""
      End Select
   End If
End Sub
Da sieht die Zelle in Spalte_H nach einer Änderung zwar leer aus, aber der Wert ist 0:00. Eine einfache Kontrolle der/einer Manipulation.

Titel: Office 2016 Antw:Office 2016 Uhrzeit
Beitrag von: Lupo am August 12, 2016, 07:17:48 Vormittag

Danke Günther  :)

Genau so, hatte ich es mir vorgestellt. Vielen vielen Dank !!!

Grüße Lupo