Fehlermeldung beim Excel-Export

[Alexis]

Hallo Forum,

beim Excel-Export erhalte ich die folgende Fehlermeldung:

Microsoft Office Excel: Die AutoFilter-Eigenschaft des Range-Objektes kann nicht festgelegt werden.

Trotzdem wird brav die Filterfunktion im Excel-Sheet gebracht.

Der Code-Abschnitt endet mit:

Code

xlApp.Application.Selection.Autofilter = True

Kann mir jemand sagen, wie die Range-Angabe heissen muss?


Alexis

[ZaLudtske]

Bitte kompletten Code-Abschnitt posten.

Rainer

[Alexis]

Hier der betreffende Abschnitt:

Code

'Erste Reihe Spaltenbeschriftung
	xlApp.application.Rows("1:1").Select
	With xlApp.application.Selection
		.Font.bold = True
		.Font.ColorIndex = 0
		.Font.Name = "Arial"
		.Font.Size = 10
		.Interior.ColorIndex = 0
	End With
	' ---------------------------------------------------------------------------------
'Fenster fixieren
	xlApp.application.Rows("2:2").Select
	xlApp.application.ActiveWindow.FreezePanes = True
	
'Aussehen der Spalten und Kopfzeile
	xlApp.cells.select
	xlApp.selection.Columns.AutoFit 
	xlApp.application.rows("1:1").Select
	xlApp.ActiveSheet.PageSetup.centerheader = "&""Arial Black,Fett"" Database: Plant System Inventory"  + "  Export created on: " +  Format(Now,"dd/MM/yyyy HH:MM")	
	xlApp.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1"
	xlApp.ActiveSheet.PageSetup.PrintGridlines = True
	xlApp.ActiveSheet.PageSetup.Orientation = 2
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "[" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "]" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "(" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace ")" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "<" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace ">" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	
	xlApp.Application.DisplayAlerts = False
	xlApp.Application.EnableEvents = False
	xlApp.Cells.Replace "'" , "" 
	xlApp.Application.EnableEvents = True
	xlApp.Application.DisplayAlerts = True
	xlApp.Application.ScreenUpdating = True
	
	xlApp.Application.Selection.Autofilter = True

Alexis

[Axel]

Versuch's mal so:

   xlApp.Application.Selection.Autofilter

Die AutoFilter-Eigenschaft ist nämlich schreibgeschützt.


Was mir noch aufgefallen ist, sind die vielen EnableEvents- und DisplayAlerts-Anweisungen. Meines Erachtens kannst du dir die sparen.

Code

...
xlApp.Application.DisplayAlerts = False
xlApp.Application.EnableEvents = False
xlApp.Cells.Replace "[" , "" 
xlApp.Cells.Replace "]" , "" 
xlApp.Cells.Replace "(" , "" 
xlApp.Cells.Replace ")" , "" 
xlApp.Cells.Replace "<" , "" 
xlApp.Cells.Replace ">" , "" 
xlApp.Cells.Replace "'" , "" 
xlApp.Application.EnableEvents = True
xlApp.Application.DisplayAlerts = True
xlApp.Application.ScreenUpdating = True
...

Axel

[just.do.it]

beim Excel-Export erhalte ich die folgende Fehlermeldung:

Microsoft Office Excel: Die AutoFilter-Eigenschaft des Range-Objektes kann nicht festgelegt werden.

Trotzdem wird brav die Filterfunktion im Excel-Sheet gebracht.

Der Code-Abschnitt endet mit:

Code

xlApp.Application.Selection.Autofilter = True

Kann mir jemand sagen, wie die Range-Angabe heissen muss?

Autofilter ist eine Methode und keine Eigenschaft. Es muss also heißen

xlApp.Application.Selection.Autofilter
Gruß
Dirk

[Axel]

Autofilter ist eine Methode und keine Eigenschaft. Es muss also heißen

Es gibt auch eine AutoFilter-Eigenschaft. Du hast aber Recht, in diesem Fall geht's um die Methode.


Axel

[Alexis]

Hallo,

Danke für Eure Tipps.

DAS war's!

Alexis

[just.do.it]

Autofilter ist eine Methode und keine Eigenschaft. Es muss also heißen

Es gibt auch eine AutoFilter-Eigenschaft. Du hast aber Recht, in diesem Fall geht's um die Methode.

Richtig, die Worksheet-Klasse hat eine AutoFilter-Eigenschaft, während die Range-Klasse eine entsprechende Methode hat.  (*klugscheiß*) 

Gruß
Dirk