Aktuelles Datum im Register plus Initialen

Guten Tag liebe Helfer
Zuersteinmal möchte ich euch vielmals danken für die immer schnelle und qualifizierte Hilfe. Ich habe schon einige Probleme lösen können. Jetzt steigt natürlich der Drang, immer mehr und besser zu werden. Gestern habt ihr mir geholfen, wie ich im Register das aktuelle Änderungsdatum eingebaut werden kann. Nun habe ich eine andere Frage.
Verschiedene und auch von verschiedenen PC greiffen Gruppenleiter auf eine Planungsdatei und tragen dort Änderungen ein. Wenn nun eine Änderung stattfindet, wird das Änderungsdatum mit dem Makro im Register aktualisiert. Ist es möglich, dass jeweils die Initialen des betreffenden Gruppenleiters hinter dem Datum erscheint. So, dass auch gerade ersichtlich ist, wer eine Änderung vorgenommen hat?
Ich danke schon im Voraus und bin sehr gespannt, ob dies überhaupt möglich ist.
Viele Grüsse
Esther
übrigens, hier schneit es wie im tiefen Winter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Na$ On Error GoTo Fehler Na = ActiveSheet.Name If Len(Na) < 11 Then ActiveSheet.Name = Na & " " & Date Else If Right(Na, 10) <> CStr(Date) Then ActiveSheet.Name = Left(Na, Len(Na) - 11) & " " & Date & " " & application.username End If End If Fehler: If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & " " & Err.Description End Sub

als mögliche Lösung:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim strUsername As String
On Error Resume Next
strUsername = UCase(Mid(Application.UserName, InStr(1, Application.UserName, " ") + 1, 1) & Left(Application.UserName, 1))
Sh.Name = Left(Sh.Name, Len(Sh.Name) - 14) & " " & Date & "-" & strUsername
End Sub

dabei sind mir allerdings ein paar Probleme aufgefallen:
Registernamen dürfen nur max. 31 Zeichen lang sein, es müssen also rechts zunächst 13 Zeichen abgeschnitten werden, um Datum und Initialen dranzuhängen. Dabei kann es zu Namensgleichheiten kommen - das löst Fehler aus.
Man müßte also erstmal irgendwie ermitteln, ob schon Datum&Name dranhängen oder nicht, ob Sonderzeichen enthleten sind oder nicht und noch mehr...
Wie wäre es mit einer Lösung, wo du die Werte auf dem Tabellenblatt einträgst - und nicht im Registernamen selbst?
Viel Erfolg!

Beliebteste Forumthreads (12 Monate)

Aktuelles Datum im Register plus Initialen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aktuelles Datum im Register plus Initialen

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

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread