Tabellen-Nutzerauflistung fortlaufend
01.02.2006 20:41:16
Konni
ich möchte in der Spalte AA von Zeile 4 beginnnend, in der gleichen Tabelle, die letzten 35 User auflisten, wobei beim 36. neuen User der 1. alte User gelöscht wird, und die Auflistung von Datum/Uhrzeit aufsteigend ergänzt wird. Der Eintrag in "C2" soll dabei erhalten bleiben.
Parallel dazu soll der letzte User in einem anderen Ordner in einer separaten Mappe gespeichert werden.
Das Ganze hat den Zweck: Es soll überprüft werden, wer seine monatlichen Hausaufgaben noch nicht gemacht hat, damit derjenige rechtzeitig daran erinnert werden kann, dass seine Angaben in der Monatstabelle noch fehlen.
Dazu soll nachstehender Code verwendet werden:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$2" Then Exit Sub
Range("C2") = "Formular ausgefüllt: " & _
Application.UserName & _
" am " & _
Format(Date, "dd.mm.yy") & " um " & _
Format(Time, "hh:mm") & " Uhr"
End Sub
Da ich VBA nur mit Rekorder einigermaßen beherrsche, muss ich bei vorgenannter Aufgabe passen. Ich bin also auf die Freaks wieder mal angewiesen.
Tausend Dank vorab für die Anstrengungen!!
Grüße
Konni
Anzeige