Makro Anzahl & Uhrzeit auswerten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("A1:J10")) Is Nothing Then Exit Sub Application.EnableEvents = False If Range("T1").Value = "" Then Range("T1").Value = Time Range("T2").Value = Time Application.EnableEvents = True End Sub

Private Sub A1_Click() With A1 If .Value = True Then .BackColor = &H8080FF Felder = Felder & .Name & "-" Else .BackColor = &H8000000F End If End With End Sub Private Sub A2_Click() With A2 If .Value = True Then .BackColor = &H8080FF Felder = Felder & .Name & "-" Else .BackColor = &H8000000F End If End With End Sub 'usw. Private Sub Fertig_Click() 'wenn Fertig geklickt wurde dann Übernahme alle ToggleButton.Value =True in Tabelle "Datenbank" erste leere Zeile, daran scheitere ich Dim TB, LR As Double, Anz As Integer Set TB = Sheets("Datenbank") EndTime = Now For Each objcontrol In Controls Select Case TypeName(objcontrol) Case "ToggleButton" If objcontrol Then Anz = Anz + 1 objcontrol.Value = False End Select Next LR = TB.Cells(TB.Rows.Count, "A").End(xlUp).Row + 1 'erste freie Zeile der Spalte TB.Cells(LR, 1) = Format(Date, "DD.MM.YYYY") TB.Cells(LR, 2) = Format(StartTime, "hh:mm:ss") TB.Cells(LR, 3) = Format(EndTime, "hh:mm:ss") TB.Cells(LR, 4) = Format(EndTime - StartTime, "hh:mm:ss") If Felder <> "" Then Felder = Left(Felder, Len(Felder) - 1) Else Felder = "KEINE" End If TB.Cells(LR, 5) = Felder TB.Cells(LR, 6) = Anz Me.Hide End Sub Private Sub UserForm_Activate() Felder = "" StartTime = Now End Sub

Hi
ok, geht doch etwas einfacher, aber mit etwas Fleiß (den du schon bewiesen hast).
1. Ergänze das Makro "Fertig" so:

Private Sub Fertig_Click()
Dim Anz As Long
Dim Geklickt As String
If T1 = 0 Then Exit Sub
T2 = Timer
'wenn Fertig geklickt wurde dann Übernahme alle ToggleButton.Value =True in Tabelle "Datenbank"  _
erste leere Zeile, daran scheitere ich
For Each objcontrol In Controls
Select Case TypeName(objcontrol)
Case "ToggleButton"
With objcontrol
If .Value Then
Anz = Anz + 1
Geklickt = Geklickt & "-" & .Caption
.Value = False
End If
End With
End Select
Next
With Sheets("Datenbank").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
.Value = Date
.Offset(0, 1).Value = T1
.Offset(0, 2).Value = T2
.Offset(0, 3).Value = (T2 - T1) / (24 / 1 * 60 * 60)
.Offset(0, 4).Value = Mid(Geklickt, 2)
.Offset(0, 5) = Anz
End With
T1 = 0
End Sub

ganz oben, oberhalb der Makros definiers du :

Dim T1 As Double
Dim T2 As Double

in jedem Togglebutton_Click-Event ergänzt du am Ende diese Zeile: If T1 = 0 Then T1 = Timer

Private Sub A1_Click()
If A1.Value = True Then
A1.BackColor = &H8080FF
Else
A1.BackColor = &H8000000F
End If
If T1 = 0 Then T1 = Timer
End Sub

diesen Aufwand wollte ich eigentlich sparen, aber da du die Makros schon hast, kann die nutzen und spart dann das Gedöns mit dem Tabellenblatt.
da die Zeile immer gleich ist, sollte sie schnell und einfach einzufügen sein (ggf auch mit ERSETZEN)
du brauchst diese Zeile in jedem Klick-Event, da du nicht weißt, welcher Button zuerst geklickt wird.

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro Anzahl & Uhrzeit auswerten

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread