Date funktion funktioniert nicht mehr

26/03/2008 - 12:48 von Lissy | Report spam
Hallo liebe NG,


(WinXP und Office2003)
als ich heute meine Tabellen von 2007 auf 2008 umstellen wollte,
taucht folgendes Problem auf_ ueber einen Button konnte ich mir immer
die Zelle mit dem aktuellen datum anzeigen lassen:
jetzt sagt Excel das die Biblothek oder Objekt nicht gefunden wird
hier der code dazu:

Private Sub Workbook_Open()
Application.Caption = ActiveSheet.Parent.FullName
Worksheets("Dateneingabe").Activate
Dim rngCell As Range
Set rngCell = Worksheets("Dateneingabe").Cells _
.Find(What:=Date, LookIn:=xlValues)
If Not rngCell Is Nothing Then
rngCell.Select
Else
MsgBox "Das Datum " & Date & " wurde nicht gefunden"
Range("A" & [MATCH(MIN(ABS(A1:A65000-TODAY())),ABS(A1:A65000-TODAY()),
0)]).Select
End If

End Sub


fàllt euch dazu ne Lösung ein?
Bin fuer jeden Tipp dankbar
liebe Gruesse Lissy
 

Lesen sie die antworten

#1 thomas.ramel
26/03/2008 - 13:38 | Warnen spam
Grüezi Lissy

On 26 Mrz., 12:48, Lissy wrote:
Hallo liebe NG,

(WinXP und Office2003)
als ich heute meine Tabellen von 2007 auf 2008 umstellen wollte,
taucht folgendes Problem auf_ ueber einen Button konnte ich mir immer
die Zelle mit dem aktuellen datum anzeigen lassen:
jetzt sagt Excel das die Biblothek oder Objekt nicht gefunden wird



Wurde die Datei zwischenzeitlich mit einer höheren Excel-Version
bearbeitet und gespeichert?

Schau mal im VBA-Editor unter Extras/Verweise nach ob dort gebrochene
(Nicht gefunden) vorhanden sind und entferne diese gegebenenfalls.

Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

Ähnliche fragen