Unterschrift - Versionsgeschichte

Thomas am 17. November 2015 um 11:13 Uhr

2015-11-17T11:13:25Z

← Nächstältere Version		Version vom 17. November 2015, 11:13 Uhr
Zeile 13:		Zeile 13:
	@Command([EditInsertText]; @NewLine + sDate + " - Mein Name")		@Command([EditInsertText]; @NewLine + sDate + " - Mein Name")

	~~Symbol für Lotus Notes 512px * 512px~~:		[[Datei:Kürzel_TAr.gif\|100px]]

	~~[[Datei:Kürzel_TAr~~.~~gif\|100px]]~~		Symbol für Lotus Notes 512px * 512px.

	== Microsoft Word ==		== Microsoft Word ==

Thomas am 17. November 2015 um 11:11 Uhr

2015-11-17T11:11:53Z

← Nächstältere Version		Version vom 17. November 2015, 11:11 Uhr
Zeile 12:		Zeile 12:
	@Command([TextSetFontColor];[Blue]);		@Command([TextSetFontColor];[Blue]);
	@Command([EditInsertText]; @NewLine + sDate + " - Mein Name")		@Command([EditInsertText]; @NewLine + sDate + " - Mein Name")

			Symbol für Lotus Notes 512px * 512px:

			[[Datei:Kürzel_TAr.gif\|100px]]

	== Microsoft Word ==		== Microsoft Word ==

Root: /* Unterschrift in selektierten Feld */

2012-01-11T20:23:33Z

Unterschrift in selektierten Feld

← Nächstältere Version		Version vom 11. Januar 2012, 20:23 Uhr
Zeile 75:		Zeile 75:

	[[Kategorie:Lotus Notes]]		[[Kategorie:Lotus Notes]]
	[[Kategorie:MS ~~Word~~]]		[[Kategorie:MS Office]]

Root: /* MS Excel */

2012-01-11T20:23:02Z

MS Excel

← Nächstältere Version		Version vom 11. Januar 2012, 20:23 Uhr
Zeile 38:		Zeile 38:
	== MS Excel ==		== MS Excel ==

	Dieses Makro hängt an den Kommentar einer Zelle um Datum und Nutzer. Nützlich um Änderungen ohne Änderungsmodus mit Datum zu verfolgen. Ist kein Kommentar vorhanden, wird ein Kommentar hinzugefügt.

	=== Unterschrift als Kommentar zum selektierten Bereich ===		=== Unterschrift als Kommentar zum selektierten Bereich ===

			Dieses Makro hängt an den Kommentar einer Zelle um Datum und Nutzer. Nützlich um Änderungen ohne Änderungsmodus mit Datum zu verfolgen. Ist kein Kommentar vorhanden, wird ein Kommentar hinzugefügt.

	Sub UnterschriftComment()		Sub UnterschriftComment()
Zeile 61:		Zeile 62:

	=== Unterschrift in selektierten Feld ===		=== Unterschrift in selektierten Feld ===

			Dieses Makro trägt in einer Zelle Datum und Nutzer ("13.01.12 - Mein Name") ein.

	Sub Unterschrift()		Sub Unterschrift()

Root am 11. Januar 2012 um 20:16 Uhr

2012-01-11T20:16:25Z

← Nächstältere Version		Version vom 11. Januar 2012, 20:16 Uhr
Zeile 1:		Zeile 1:
	~~Einfügen einer "~~Unterschrift" mit Datum ~~und Namen~~ in ein Dokument.		Auch wenn es in MS Office oder LibreOffice einen Überarbeitungsmodus gibt, ist es manchmal nötig, eine Unterschrift mit dem aktuellen Datum in ein Dokument einzufügen.

			Hier werden für die verschiedenen Produkte Lösungen des Problems angeboten.

	== Lotus Notes Formula Language ==		== Lotus Notes Formula Language ==

	Die folgende Lotus Notes Formel fügt das Datum und den Namen an der Stelle des Cursors in ein zum Editieren geöffnetes ~~Dokument ein~~. (Formel in einem SmartIcon in einer Symbolleiste definieren.)		Die folgende Lotus Notes Formel fügt das Datum und den Namen an der Stelle des Cursors in ein Dokument ein, das zum Editieren geöffnetes ist. (Formel in einem SmartIcon in einer Symbolleiste definieren.)

	tmpDate:=@Now;		tmpDate:=@Now;
Zeile 12:		Zeile 14:

	== Microsoft Word ==		== Microsoft Word ==

			Einfügen eines blauen Textbaustein "dd.mm.yy - MeinName" in ein MS Word Dokument.

			Tipp: Als Makro auf einen Icon legen.

	Sub Unterschrift()		Sub Unterschrift()

	MyUserName = ~~"Mein Name"~~		MyUserName = Application.UserName

	With Selection		With Selection
Zeile 31:		Zeile 37:

	== MS Excel ==		== MS Excel ==

			Dieses Makro hängt an den Kommentar einer Zelle um Datum und Nutzer. Nützlich um Änderungen ohne Änderungsmodus mit Datum zu verfolgen. Ist kein Kommentar vorhanden, wird ein Kommentar hinzugefügt.

	=== Unterschrift als Kommentar zum selektierten Bereich ===		=== Unterschrift als Kommentar zum selektierten Bereich ===

Thomas: /* Unterschrift als Kommentar zum selektierten Bereich */

2012-01-11T14:57:04Z

Unterschrift als Kommentar zum selektierten Bereich

← Nächstältere Version		Version vom 11. Januar 2012, 14:57 Uhr
Zeile 48:		Zeile 48:
	End If		End If

	End With		End With

	End Sub		End Sub

Thomas: /* Unterschrift als Kommentar zum selektierten Bereich */

2012-01-11T14:56:43Z

Unterschrift als Kommentar zum selektierten Bereich

← Nächstältere Version		Version vom 11. Januar 2012, 14:56 Uhr
Zeile 44:		Zeile 44:
	.Comment.Text Text:=Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"		.Comment.Text Text:=Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
	Else		Else
	.Comment.Text Text:=.Comment.Text & Chr(10) & "---" & Chr(10) & Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"		.Comment.Text Text:= .Comment.Text & Chr(10) & "---" & Chr(10) & _
			Application.UserName & " - " & Format(Now(), "dd.mm.yy") & ":"
	End If		End If

Thomas: /* Unterschrift in selektierten Feld */

2012-01-11T14:56:15Z

Unterschrift in selektierten Feld

← Nächstältere Version		Version vom 11. Januar 2012, 14:56 Uhr
Zeile 54:		Zeile 54:

	Sub Unterschrift()		Sub Unterschrift()

	With Selection		With Selection
	.NumberFormat = "@"		.NumberFormat = "@"
	.Value = Format(Now(), "dd.mm.yy") & " - " & Application.UserName		.Value = Format(Now(), "dd.mm.yy") & " - " & Application.UserName
	End With		End With

	End Sub		End Sub

	[[Kategorie:Lotus Notes]]		[[Kategorie:Lotus Notes]]
	[[Kategorie:MS Word]]		[[Kategorie:MS Word]]

Thomas: /* Unterschrift als Kommentar zum selektierten Bereich */

2012-01-11T14:55:54Z

Unterschrift als Kommentar zum selektierten Bereich

← Nächstältere Version		Version vom 11. Januar 2012, 14:55 Uhr
Zeile 35:		Zeile 35:

	Sub UnterschriftComment()		Sub UnterschriftComment()

	With Selection.Cells(1, 1)		With Selection.Cells(1, 1)

Thomas am 11. Januar 2012 um 14:55 Uhr

2012-01-11T14:55:32Z

@@ Zeile 28: / Zeile 28: @@
     End With
   End Sub
 [[Kategorie:Lotus Notes]]
 [[Kategorie:MS Word]]