Fehlermeldung mit Match(CDbl)
28.10.2008 10:27:44
CaOs1979
bekomme folgende Fehlermeldung beim Öffnen meiner Excel-Datei, seit ich eine Funktion eingebaut habe, die dazu dient, von vier Tabellenblättern in der Mappe auf den ersten zwei Tabellenblättern die Spalte mit dem aktuellen Datum bei öffnen automatisch auszuwählen:
Laufzeitfehler 1004:
Die Match-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.
Was mache ich falsch bzw. weiß jemand Rat?
Hier mein Code:
Private Sub Workbook_Open()
''#Alle Arbeitsblätter zur Benutzung wieder freigeben
'For Each ws In Worksheets
' ws.Unprotect Password:=("?_?")
' ws.EnableAutoFilter = True 'ermöglicht Autofilter
' ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
'Next ws
''#Prozedur zum Spalten ausblenden
'For Each ws In Worksheets
' ws.Columns("GN").EntireColumn.Hidden = True
' ws.Columns("GP").EntireColumn.Hidden = True
' ws.Columns("GR").EntireColumn.Hidden = True
' ws.Columns("GT").EntireColumn.Hidden = True
' ws.Columns("GV").EntireColumn.Hidden = True
' ws.Columns("GX").EntireColumn.Hidden = True
'Next ws
''#Prozedur für Blattschutz setzen und das Ermöglichen von Gruppierungen und Autofiltern
'For Each ws In Worksheets
' ws.EnableAutoFilter = True 'ermöglicht Autofilter
' ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
' ws.Protect Password:=(?_?"), userinterfaceonly:=True, DrawingObjects:=False, Contents:= _
True, AllowFormattingCells:=True
'Next ws
''#Blendet die Zeilen- und Spaltenbeschriftungen aus
'ActiveWindow.DisplayHeadings = False
''#Blendet die Bearbeitungsleiste aus
'Application.DisplayFormulaBar = False
'#aktiviert die Spalte mit dem aktuellen Datum
Dim aktuell As Integer
With Worksheets(IIf(Month(Date) > 6, 2, 1) & ". HJ " & Year(Date))
aktuell = WorksheetFunction.Match(CDbl(Date), .Rows(2), 0)
Application.GoTo .Cells(5, aktuell), True
End With
End Sub
Danke für jede, schnelle Hilfe!
Carsten