Reihenfolge-Fehler?
22.04.2013 16:12:32
Albert
ich verwende nachfolgende Codes, um Zeiten zu stoppen.
Hierzu liegt hinter dem ToggleButton1 dieser Code...
Private bStop As Boolean
Private lngR As Long
Private Sub ToggleButton1_Click()
Dim i As Integer
Dim dblT As Integer
' Set objButton = Application.VBE.CommandBars.FindControl(ID:=228)
If ToggleButton1.Value = False Then _
'With Start_Zeitaufnahme
' .Caption = "Start der Zeitaufnahme"
' .BackColor = RGB(22, 149, 5)
'End With
bStop = True 'Stop der Stoppuhr
i = Sheets("Bogen Z1 Rückseite").Cells(Rows.Count, "X").End(xlUp).Row + 1
Cells(i, "X").Activate
Cells(i, "X").Value = Range("U1")
Application.ScreenUpdating = False
SendKeys ("%{F11}")
SendKeys ("%UR")
SendKeys ("%{F4}")
Application.ScreenUpdating = True
End If
'Start der Stoppuhr
If ToggleButton1.Value = True Then _
'With Start_Zeitaufnahme
' .Caption = "Zeitaufnahme läuft"
' .BackColor = RGB(255, 0, 0)
'End With
i = Sheets("Bogen Z1 Rückseite").Cells(Rows.Count, "Y").End(xlUp).Row + 1
Cells(i, "Y").Activate
Cells(i, "Y").Value = Format(lngR + 3 / 86400, "000") & ":"
Cells(i, "Y").Value = Time
On Error Resume Next
Do
DoEvents
Range("U1") = (Timer - dblT) / 86400
DoEvents
Loop While bStop = False
End If
End Sub
Private Sub CommandButton1_Click()
If ToggleButton1.Value = True Then
If Range("L19").Value = "" Then
Range("L19").Value = Range("U1").Value
Else
If Range("L19").Value "" Then
Range("M19").Value = Range("U1").Value
Else
If Range("M19").Value "" Then
Range("N19").Value = Range("U1").Value
Else
MsgBox "Auswahl nicht mehr möglich!"
End If
End If
End If
Else
MsgBox ("Keine Funktion, da die Zeitaufnahme noch nicht gestartet wurde!")
End If
End Sub
Aber irgendwie verhakt es sich bei der dritten Prüfung. Jedenfalls wird der Wert der dritten Zelle in die zweite geschrieben.
Woran könnte das liegen? Sind die drei If-Prüfungen zu viel?
Wär euch um Hilfe echt dankbar.
Dank und Gruß
A.