Autofilter datum
23.02.2014 16:47:53
Michael
ich habe in Excel 2003 ein Makro erstellt in dem aus einer Tabelle die Zeilen mithilfe des Autofilters Date gefiltert werden.Dies funktionierte unter Excel 2003 einwandfrei.Jetzt nach Umstellung in der Firma auf Excel 2010 findet Excel die Zeilen nicht mehr. Nach Tagelangen Recherchen im Inet habe ich nun herausgefunden, das Excel 2010 mit dem Deutschen Datumsformat unter VB nicht umgehen kann.Wie kann ich das Makro mit einigen Umwegen zum laufen bekommen ? Ich habe ein zweites Makro indem ich das Datum per Hand eingeben muss, und dieses funktioniert auch unter Excel 2010 einwandfrei. es liegt also zweifelsfrei an VB. Ich hoffe ihr könnt mir helfen.
Makro:
Sub Drucken_Peter_Morgens()
Worksheets("Tabelle2").Visible = True
Worksheets("Tabelle2").Activate
Range("A1").AutoFilter Field:=1, Criteria1:=Date - 1
Range("A1", Range("H65536").End(xlUp)).Select
x = Application.Dialogs(xlDialogPrint).Show(2, 1, 1, 1, Arg12:=1)
Selection.AutoFilter
Worksheets("Tabelle2").Visible = False
Worksheets("Tabelle1").Activate
End Sub
Michael
Anzeige