Hope This Helps

Problem:
Hier noch die Ermittlung der letzten Zeile/Spalte unter VBS in Excel

Lösung:

VBS
'letzte Zeile in "A" suchen
Zeilenanzahl = objXLS.Cells(objXLS.Rows.Count, 1).End(xlUp).Row

'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = LZ = objXLS.Cells(objXLS.Columns.Count, 1).End(xlUp).Column

Selbstverständlich benötigen wir hierzu noch das entsprechende Objekt und eine Excel Workbook:

'Excel-Objekt und Workbook erstellen
set objXLS = CreateObject("Excel.Application")
set objWB = objXLS.Workbooks
objWB.Add

Problem:
Weil ich es mir nicht merken kann...hier die Ermittlung der letzten Zeile/Spalte unter VBA in Excel

Lösung:

VBA
'letzte Zeile in "A" suchen
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

'letzte Spalte in Zeile 1 suchen
Spaltenanzahl = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

Quelle: schmittis-page.de: Letzte Zeile/Spalte eines Datenbereiches finden

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