Hope This Helps

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