Suche VBA Hilfe

02/01/2008 - 19:18 von Andrea Steidten | Report spam
Hallo liebe NG Gemeinde,
erstmal allen ein GESUNDES NEUES JAHR noch wuensche
und dann meien FRage:

Bisher hat dieser Code geklappt:

Private Sub HeutigesDatum_Click()
Dim rngCell As Range

Set rngCell = Worksheets("Dateneingabe").Cells _
.Find(What:=Date, LookIn:=xlValues)

If Not rngCell Is Nothing Then
rngCell.Select 'Resize(1, 26).Select
Else
MsgBox "Das Datum " & Date & " wurde nicht gefunden"
End If
End Sub

und nu da ich die Tabelle auf 2008 umgestellt habe bringt VBA mir nen
Fehler bei "Date"
"Projekt oder Bibliothek nicht gefunden" ist die Meldung.
Weiss jemand warum das nicht funzt.
Brauch dringend eure Hilfe
liebe Gruesse Andrea
 

Lesen sie die antworten

#1 Andrea Steidten
02/01/2008 - 19:40 | Warnen spam
Zusatz:
ich verwende Excel 2003 und 2007
und in keinem funktioniert es
lg Andrea


"Andrea Steidten" schrieb im Newsbeitrag
news:
Hallo liebe NG Gemeinde,
erstmal allen ein GESUNDES NEUES JAHR noch wuensche
und dann meien FRage:

Bisher hat dieser Code geklappt:

Private Sub HeutigesDatum_Click()
Dim rngCell As Range

Set rngCell = Worksheets("Dateneingabe").Cells _
.Find(What:=Date, LookIn:=xlValues)

If Not rngCell Is Nothing Then
rngCell.Select 'Resize(1, 26).Select
Else
MsgBox "Das Datum " & Date & " wurde nicht gefunden"
End If
End Sub

und nu da ich die Tabelle auf 2008 umgestellt habe bringt VBA mir nen
Fehler bei "Date"
"Projekt oder Bibliothek nicht gefunden" ist die Meldung.
Weiss jemand warum das nicht funzt.
Brauch dringend eure Hilfe
liebe Gruesse Andrea


Ähnliche fragen