Office 2016 Tastenkombi zuweisen

[Lisa.T.]

Hallo Leute,

ich bin schon völlig verzweifelt und brauche Hilfe. Ich hab leider gar keine Ahnung und brauche ggf bitte eine Step by step Anleitung, falls das komplizierter wird.

Ich möchte das Folgende erreichen: in G3 soll wenn ich die Taste "h" drücke das heutige Datum erscheinen.
Sollte eigentlich nicht so schwer sein aber wie gesagt, ich hab kein Plan. Habs irgendwie versucht mit einer WENN Funktion hinzubekommen aber klappt nicht.

Und das zweite: ich möchte in C5 eine Uhrzeit einschreiben: dazu möchte ich für 16:00 einfach 1600 eingeben und der soll das so: 16:00 ausgeben.

Würde mich sehr freuen über Hilfe (ist sicher ganz einfach)

Viele Grüße Lisa

[mumpel]

Hallo!

Für das Datum:
Rechtsklick auf den Tabellenreiter=>Code anzeigen. Dann den folgenden Code einfügen

Code: Visual Basic

1. Private Sub Worksheet_Change(ByVal Target As Range)
2.  
3. If Target.Address = "$G$3" Then
4.    If Target.Value = "h" Then Target.Value = Date
5. End If
6.  
7. End Sub
8.  

Für die Uhrzeit: http://www.excel-inside.de/funktionen-a-tipps/976-datum-ohne-doppelpunkt-erfassen

Gruß, René

[gmg-cc]

Moin,

zum Thema Uhrzeit hier noch einige Alternativen, die u.a. auch eine echte Uhrzeit kreieren, mit welcher dann auch gerechnet werden kann.

[mumpel]

Die im Link gezeigte Funktion ("Worksheet_Change"=>CDate) kreiert aber das Englische Uhrzeitformat, das macht sich aber schlecht in Deutschland. Daher mal eine kleine Anpassung.

Code: Visual Basic

1. Private Sub Worksheet_Change(ByVal Target As Range)
2.  
3.   If Target.Address = "$G$3" Then
4.      If Target.Value = "h" Then Target.Value = Date
5.   ElseIf Target.Address = "$C$5" Then
6.      Application.EnableEvents = False
7.        With Target
8.            .Value = CDate(Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2))
9.            .NumberFormat = "[hh]:mm"
10.        End With
11.     Application.EnableEvents = True
12.   End If
13.  
14. End Sub
15.  

[Lisa.T.]

Hallo Rene´, danke für deine Antwort

aber..ähh..da geht es schon los...also die Codes..wo muss ich die einfügen??
Wo genau ist der Tabellenreiter??

Irgendwie Alt und F11 drücken und dann den Code einfügen bei Makro oder sowas??
Also ich meinte echt step by step
Hab vor 3 Tagen das erste Mal excel aufgemacht....

[Lisa.T.]

Hallo gmg-cc,

ich gebe da meine Trainingszeit ein, daher brauche ich keine Echtzeit.

Das umstellen hat über den Link von Rene´ bei mir seinen Zweck erfüllt.
Trotzdem danke.

Gruß Lisa

[gmg-cc]

@Rene:
OK, habe es (endlich) geändert. Irgendwann hatte ich es einmal auf dem Zettel, dann aber immer wieder beiseite geschoben ...  Es war im Text ja auch angemerkt. Wie im richtigen Leben!

@Lisa
Sehr ausführlich ist das hier erklärt, schau einfach einmal rein. Erforderlichenfalls einfach nachfragen.

Ergänzung:
Wenn du mit den Zeiten nicht rechnen willst, dann ist das vollkommen OK!

[Lisa.T.]

Ja super habs jetzt hinbekommen..

Kann man den Code auch noch so verändern, dass wenn ich h+1 eingebe das von morgen kommt und h-1 das von gestern?? bzw h-2 vorgestern etc??

Gruß Lisa

[gmg-cc]

Ja, das geht. Bedenke aber bitte folgendes: Das "h" muss klein geschrieben sein und es dürfen keine Leerzeichen in dem Eingabetext sein.

Code: [Auswählen]

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim DiffTage As Integer
   
   If Target.Address = "$G$3" Then
      If Left(Target.Value, 1) = "h" Then
         If Len(Target) > 1 Then
            DiffTage = CInt(Right(Target, Len(Target) - 1))
         End If
         Target.Value = Date + DiffTage
      End If
   ElseIf Target.Address = "$C$5" Then
     Application.EnableEvents = False
       With Target
           .Value = CDate(Left(Format(Target, "0000"), 2) & ":" & Right(Target, 2))
           .NumberFormat = "[hh]:mm"
       End With
    Application.EnableEvents = True
  End If
End Sub
... etwas gemischter Stil, aber es funzt. Und das zählt.

[Lisa.T.]

funzt perekt!

Danke