Das klang interessant. Daher hab ich ein bißchen im Excel-Center geschmökert, und zwar im thread
http://www.excel-center.de/forum/read.php?f=1&i=20089&t=20077. Das Ergebnis für paperboy sieht so aus:
Rechter Mausklick auf den Namen des Tabellenblattes --> Code anzeigen. Hier trägst du folgendes ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then 'Spalte 1(A)
If Target.Row > 1 And Target.Row <= 65536 Then 'Reihe von 2 - bis 65536
Cells(Target.Row, 2) = Date 'in Spalte 2 (B) das Datum von Heute
End If
End If
End Sub
Visual Basic wieder schließen (es kommt keine Speichernachfrage - der Eintrag wird einfach so übernommen).
Ich gehe jetzt davon aus, daß mehrere Leute Einträge in diese Tabelle machen sollen: zu diesem Behufe tust du gut daran die Zellen des Tabellenblattes außer A2 bis A65536 und B2 bis B65536 zu sperren (Format - Zellen - Schutz). Die Spalte B wird jetzt auf die Breite Null zusammengeschoben und in der Spalte C wird aus der Zelle C2 folgende Formel bis ganz nach unten gezogen: =WENN(B2=;;B2).
Um die Zellengröße immer der Größe des Eintrags entsprechend anzupassen sollte die Spalte A mit Format - Zeile - Optimale Höhe und Format - Spalte - Optimale Breite bestimmen versehen werden.
Jetzt Arbeitsblatt sperren nicht vergessen!
Dann kann sich jeder Eintragende in Spalte A austoben ohne in Spalte B und C reinzupfuschen.
Wenn jetzt nicht einer auf die Idee kommt das Systemdatum zu ändern um eine Zeitreise durch die Einträge anzutreten... ;D Aber da sei der Admin vor!