CommandButton
13.01.2005 08:06:46
Chaos
Ist es möglich einen CommandButton durch einen Range zu starten z.B. If Range("D65") = ? then. Oder sonstiges. Der CommandButton 3 sollte nachdem ein Wert in D65 geschrieben wurde betätigt werden.
Würde mich über eine Lösung freuen ich gebe noch den code bei als Orientierung.
Tabelle1:
Option Explicit
Dim X As Integer
Private Sub CommandButton1_Click()
UhrStart = Now
UhrLaeuft = True
Range("C7") = 0
Range("A3") = Now
Range("B3") = Time
ActiveSheet.OLEObjects("CommandButton3").Object.Caption = "Stop"
ActiveSheet.OLEObjects("CommandButton3").Visible = True
Range("D15") = 0
End Sub
Private Sub CommandButton2_Click()
Application.OnKey "{ENTER}", "SchreibDieZeit"
Range("C7") = 0
UhrLaeuft = True
ActiveSheet.OLEObjects("CommandButton2").Visible = False
ActiveSheet.OLEObjects("CommandButton3").Visible = True
End Sub
Private Sub CommandButton3_Click()
If UhrLaeuft = True Then
Range("C11") = Now - UhrStart + Range("C7")
UhrLaeuft = False
ActiveSheet.OLEObjects("CommandButton3").Visible = False
Else
UhrStart = Now
UhrLaeuft = True
ActiveSheet.OLEObjects("CommandButton3").Object.Caption = "Stop"
End If
Range("C3") = Time
Range("D3").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Value = Now - UhrStart + Range("C7")
Range("B16") = "Phase 1"
Range("B17") = "Phase 2"
Range("B18") = "Phase 3"
Range("B19") = "Phase 4"
Range("B20") = "Phase 5"
Range("B21") = "Phase 6"
Range("B22") = "Phase 7"
Range("B23") = "Phase 8"
Range("B24") = "Phase 9"
Range("B25") = "Phase 10"
Range("B26") = "Phase 11"
Range("B27") = "Phase 12"
Range("B28") = "Phase 13"
Range("B29") = "Phase 14"
Range("B30") = "Phase 15"
Range("B31") = "Phase 16"
Range("B32") = "Phase 17"
Range("B33") = "Phase 18"
Range("B34") = "Phase 19"
Range("B35") = "Phase 20"
Range("B36") = "Phase 21"
Range("B37") = "Phase 22"
Range("B38") = "Phase 23"
Range("B39") = "Phase 24"
Range("B40") = "Phase 25"
Range("B41") = "Phase 26"
Range("B42") = "Phase 27"
Range("B43") = "Phase 28"
Range("B44") = "Phase 29"
Range("B45") = "Phase 30"
Range("B46") = "Phase 31"
Range("B47") = "Phase 32"
Range("B48") = "Phase 33"
Range("B49") = "Phase 34"
Range("B50") = "Phase 35"
Range("B51") = "Phase 36"
Range("B52") = "Phase 37"
Range("B53") = "Phase 38"
Range("B54") = "Phase 39"
Range("B55") = "Phase 40"
Range("B56") = "Phase 41"
Range("B57") = "Phase 42"
Range("B58") = "Phase 43"
Range("B59") = "Phase 44"
Range("B60") = "Phase 45"
Range("B61") = "Phase 46"
Range("B62") = "Phase 47"
Range("B63") = "Phase 48"
Range("B64") = "Phase 49"
Range("B65") = "Phase 50"
ActiveSheet.OLEObjects("CommandButton1").Visible = False
End Sub
Modul:
Public UhrStart As Date
Public UhrLaeuft As Boolean
Sub Auto_open()
Application.OnKey "{Return}", "SchreibeDieZeit"
End Sub
Sub SchreibeDieZeit()
Range("D3").SpecialCells(xlCellTypeLastCell).Offset(1, 0).Value = Now - UhrStart + Range("C7")
End Sub