Hope This Helps

Problem:

An einem PC sollen per Skript (Logon-Skript) die Outlook-Mailsignatur entfernt werden.

Lösung:

Dieses Skript setzt die Mail-Signatur von Outlook auf "leer", sowohl bei "neue Nachricht" als auch bei "Antworten.."

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()

Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions

Set objSignatureObject = objEmailOptions.EmailSignature

objSignatureObject.NewMessageSignature = ""
objSignatureObject.ReplyMessageSignature = ""

set objSignatureObject = nothing
set objEmailOptions = nothing
set objSelection = nothing
set objDoc = nothing
set objWord = niothing

Problem:

Man möchte wissen, welcher Benutzer sich wann das letzte mal an der AD angemeldet hat.

Lösung:

Das nachfolgende Skript erzeugt eine Datei c:\lastlogogn.txt. In dieser wird der Benutzer inkl. OU und das letzte Anmeldedatum gespeichert.
Die Daten sind mittels Semikolon (;) getrennt und können so einfach in Excel importiert werden.

Benutzer dei ein Logon-Datum vom 01.01.1601 haben sind deaktiviert und können so einfach herausgefiltert werden!

Der Pfad und der Name des Logs kann im Skript geändert werden. Hier gibt es eine Variable:
logPfad = "C:\lastlogon.txt"

Diese einfach nach Wunsch ändern!

Download : lastlogon.zip

Problem

Man hat zwei Daten in einer Excel-Tabelle und möchte gerne die Differenz in Monate anzeigen z.B.:

01.08.2004 - 01.03.2007 = Monate??

Lösung

Folgende Formel berechnet einen die Monatsdifferenz aus:
=DATEDIF(A$4;B$4;"M")

Wobei im Feld A4 das erste Datum und im Feld B4 das zweite stehen muß - kann natürlich beliebig angepaßt werden!

Das nachfolgende Makro für Excel überprüft und legt ggf. einen Ordner mit ensprechenden Monatsnamen und Unterordner an und öffnet das "Speichern unter"-Dialogfeld

ordner = MonthName(Month(Date))

MsgBox ordner

pfad = "e:\filme\" & ordner

MsgBox pfad

Datei = InputBox("Bitte Dateinamen eingeben", "Dateinamen angeben", "test
xls")

If Dir(pfad, vbDirectory) = ordner Then _

MsgBox "Verzeichnis existiert bereits" Else _

MkDir pfad

ActiveWorkbook.SaveAs pfad & "\" & Datei

Möchten Sie bspw. das Makro "Test_Makro" über die Tastenkombination [Strg] + [t] starten, dann können Sie dies mit dem OnKey-Befehl dann gehen Sie wie folgt vor:

Public Sub starten()
'Das Makro Test_Makro mit [Strg] + [t] starten
Application.OnKey "^t", "Test_Makro"
End Sub

Die Tastencodes für die einzelnen Tasten entnehmen Sie bitte der nachfolgenden Tabelle:



Quelle : http://www.excel-inside.de/.../tastencodes-fuer-die-funktion-onkey.html

Setzt alle Autofilter zurück

Sub Filter_aus()
On Error Resume Next
ActiveSheet.ShowAllData
End Sub