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

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Lisa.T. am Oktober 24, 2015, 19:54:33 Nachmittag

Titel: Office 2016 Tastenkombi zuweisen
Beitrag von: Lisa.T. am Oktober 24, 2015, 19:54:33 Nachmittag
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
Titel: Antw:Office 2016 Tastenkombi zuweisen
Beitrag von: mumpel am Oktober 24, 2015, 20:43:41 Nachmittag
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 (http://www.excel-inside.de/funktionen-a-tipps/976-datum-ohne-doppelpunkt-erfassen)

Gruß, René
Titel: Antw:Office 2016 Tastenkombi zuweisen
Beitrag von: gmg-cc am Oktober 24, 2015, 21:28:49 Nachmittag
Moin,

zum Thema Uhrzeit hier noch einige Alternativen (http://www.excel-ist-sexy.de/zeit-eingabe-ohne-doppelpunkt/), die u.a. auch eine echte Uhrzeit kreieren, mit welcher dann auch gerechnet werden kann.
Titel: Antw:Office 2016 Tastenkombi zuweisen
Beitrag von: mumpel am Oktober 24, 2015, 21:49:35 Nachmittag
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.  
Titel: Antw:Office 2016 Tastenkombi zuweisen
Beitrag von: Lisa.T. am Oktober 24, 2015, 21:56:31 Nachmittag
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....
Titel: Antw:Office 2016 Tastenkombi zuweisen
Beitrag von: Lisa.T. am Oktober 24, 2015, 22:08:05 Nachmittag
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
Titel: Antw:Office 2016 Tastenkombi zuweisen
Beitrag von: gmg-cc am Oktober 24, 2015, 22:09:35 Nachmittag
@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 (http://www.excel-ist-sexy.de/sub-prozedur-einfuegen/) erklärt, schau einfach einmal rein. Erforderlichenfalls einfach nachfragen.

Ergänzung:
Wenn du mit den Zeiten nicht rechnen willst, dann ist das vollkommen OK!
Titel: Antw:Office 2016 Tastenkombi zuweisen
Beitrag von: Lisa.T. am Oktober 24, 2015, 22:23:12 Nachmittag
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
Titel: Antw:Office 2016 Tastenkombi zuweisen
Beitrag von: gmg-cc am Oktober 24, 2015, 23:16:25 Nachmittag
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.
Titel: Antw:Office 2016 Tastenkombi zuweisen
Beitrag von: Lisa.T. am Oktober 25, 2015, 00:08:29 Vormittag
funzt perekt!

Danke ;D