Button mit mit hinterlegter action

[Kermit_hh]

hallo zusammen,

ich hab gerade das Problem das ich in einer Excel den Wert einer Zelle mit Hilfe von einem Button ( Steuerelement mit hinterlegtem Macro ) um einen vorgegeben wert zu erhöhen.

Ich möchte hiermit eine einfache Zeiterfassung machen.

Da ich mich mit Makros / VBA leider noch überhaupt nicht auskenne hoffe ich das jemand eine Lösung für meine kleines Problem hat. Danke bereits im voraus, ich bin gespannt !!


Gruß aus dem Norden

Stefan

[Rabe]

Hi Stefan,

hoffe ich das jemand eine Lösung für meine kleines Problem hat.

Die Startzeit steht in C8:

Option Explicit

Sub Zeit_1()
  ' 
  ' +5 Min. 
  ' 
  ActiveCell.Formula = "=$C$8+(5/24/60)"
  ActiveCell.Value = ActiveCell.Value
End Sub

Sub Zeit_2()
  ' 
  ' +15 Min. 
  ' 
  ActiveCell.Formula = "=$C$8+(15/24/60)"
  ActiveCell.Value = ActiveCell.Value
End Sub

Sub Zeit_3()
  ' 
  ' +30 Min. 
  ' 
  ActiveCell.Formula = "=$C$8+(30/24/60)"
  ActiveCell.Value = ActiveCell.Value
End Sub

Sub Zeit_4()
  ' 
  ' +45 Min. 
  ' 
  ActiveCell.Formula = "=$C$8+(45/24/60)"
  ActiveCell.Value = ActiveCell.Value
End Sub

Sub Zeit_5()
  ' 
  ' +60 Min. = 1 Std. 
  ' 
  ActiveCell.Formula = "=$C$8+(1/24)"
  ActiveCell.Value = ActiveCell.Value
End Sub

Jedem Button das entsprechende Makro zuweisen.
Das geht sicherlich noch seeehr viel kürzer mit einer Schleife.