Fehlzeitenliste bzw Namen mit Datum und Summe erstellen?

[d'r Bastler]

Moin allerseits,

auch wenn ich diese Art der Big Brother-Techniken nicht sehr schätze, weiß ich um ihre Notwendigkeit. Also habe ich mal 15 Minuten VBAgebastelt.

Man nehme eine leere Tabelle, setze in A1 & B1 zwei Überschriften "Schölers" und "VS" für Verspätungen. Dann kopiere man die Liste der zu überwachenden Schölers in Spalte A.
Mit einem Rechtsklick auf den Blattnamen unten links findet man Code anzeigen und dadurch ein Fenster zu VBA und dort fügt man diesen Code ein:

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Integer, c As Integer, rng As Range
Cancel = True

'Eintrag für die Verspätungen
If Target.Column = 1 And Target.Row > 1 Then
    If Cells(Target.Row, 2) = "" Then
        Cells(Target.Row, 2) = 0
    End If
    c = Cells(Target.Row, Columns.Count).End(xlToLeft).Column + 1
        Cells(Target.Row, c) = Date
        Cells(Target.Row, 2) = c - 2
End If

'Aufräumen der Verspätungen
If Target.Column = 1 And Target.Row = 1 Then
    r = Cells(Rows.Count, 1).End(xlUp).Row
    c = UsedRange.Columns.Count
    Set rng = Range(Cells(2, 2), Cells(r, c))
    rng.Clear
End If

End Sub

... und speichert die Datei als .xlsm oder .xlsb.  Ab jetzt wird's noch einfacher: 

Ein Doppelklick auf den Schölernamen zählt in Spalte B seine Verspätungen und schreibt in die jeweils erste freie Spalten das jeweilige Datum.
Eine Doppelklick auf die Zelle A1 räumt die Tabelle wieder auf.

Kopiert man sich dieses Blatt zum Beispiel pro Klasse, hat man so einen schnellen Überblick. Weitere Auswertungen oder Optionen in VBA, (z.B. ein DblClk bei selben Schöler am selben Tag erhöht eine entsprechende Summenspalte um jeweils 10 Minuten) oder eine Bestenliste der Unpünktlichen sind dann ein Leichtes.

und jetzt zurück zur Feuerzangenbowle  !
Schöne Grüße!