Hallo Wolfgang,
ja, damit kann ich schon einiges anfangen.
Post by W. VölkelIch möchte in einer Tabelle zum aktuellen Datum gelnagen.
Ich habe dies über ein Makro versucht. Eine Zelle
beinhaltet =heute(),
Range("B3").Select
Selection.Copy
[...]
Post by W. VölkelCells.Find(What:="13. Sep.",
Warum hast Du die Zelle B3 kopiert? Ich gehe davon
aus, dass dort das aktuelle Datum drin steht? Kopieren
funktioniert damit jedoch nicht, denn Du kopierst den
"13. Sep." Das ist zwar heute, aber morgen wird der
Inhalt nicht mehr stimmen.
Ausserdem "schaust" Du nach einem Wert (xlValues).
Es handelt sich bei "=Heute()" jedoch um eine Formel
(xlFormulas).
Ich bin mir nicht sicher, ob das Suchen nach Formeln in
der Version 2000 bereits möglich ist ... Drück mal die
Tastenkombination "Strg + F". Das Dialofenster "Suchen"
wird geöffnet.
Gib in der Zeile "Suchen nach:" die Formel "=Heute()" ein.
Unter XP ist in dem Dialogfenster ein DropDown-Feld
"Suchen in" verfügbar. Stelle dort den Wert auf "Formeln" um.
Wenn Du das Ganze aufzeichnest, erhältst Du in etwa diesen
Code:
Sub Makro1()
Cells.Find(What:="=Heute()", _
After:=ActiveCell, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False).Activate
End Sub
Der Code hier kann unter Umständen von Deinem abweichen,
da Du eine andere Version verwendest als ich.
Wichtig jedoch ist, dass Du in der der ersten Codezeile
das "=Heute()" durch "=Today()" ersetzt, sonst kriegst
Du in VBA einen Sprachkonflikt.
Wenn das nicht funktioniert, dann könntest Du alternativ
auch etwas in der Art verwenden:
Sub test()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.FormulaR1C1 = "=TODAY()" Then
c.Select
End If
Next c
End Sub
--
Es liebs Grüessli
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch (Office Help Desk)
http://excel.codebooks.de (Das Excel-VBA Codebook)
"Wolfgang" <***@gwdg.de> schrieb im Newsbeitrag news:047c01c37a21$7ccf0f80$***@phx.gbl...
Hallo Marion !
Ich arbeite mit Excel 2000.
Der Code:
Tastenkombination: Strg+j
'
Range("B3").Select
Selection.Copy
Range("D12").Select
Cells.Find(What:="13. Sep.", After:=ActiveCell,
LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:= _
False).Activate
End Sub
Kannst Du damit etwas anfangen ?
Gruß
Wolfgang
Post by W. Völkel-----Originalnachricht-----
Hallo Wolfgang,
hast Du den untenstehenden Code, den ich Dir hier
geschickt habe, ausprobiert? Wenn nicht, dann schick
hier mal Deine Codezeilen.
Mit welcher Excel-Version arbeitest Du? Ich arbeite
mit Excel XP (also 2002). Der Code funktioniert
einwandfrei.
--
Es liebs Grüessli
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch (Office Help Desk)
http://excel.codebooks.de (Das Excel-VBA Codebook)
ich bekomme die Fehlermeldung: Laufzeitfehler "91"
wenn ich das Makro "suche ein bestimmtes Datum" starte
Danke!
Wolfgang
-----Originalnachricht-----
Hallo W.
<<<
Ich möchte in einer Tabelle zum aktuellen Datum gelnagen.
Ich habe dies über ein Makro versucht. Eine Zelle
beinhaltet =heute(), was mir das aktuelle Datum
liefert.Ich zhabe nun versucht folgendes Makro zu
Makro aufnehmen: Aktuelles Datum in Suchen kopiert und
suchen. Cursor springt zum Datum in der Tabelle. - So
soll
Post by W. Völkeles sein - Suchen schließen und Makro beenden.
Wenn ich das Makro jetzt aufrufe, bekomme ich eine
Fehlermeldung...
VBA ist in engl. Sprache. Ersetzte das "Heute"
durch "Today",
dann sollte es funktionieren.
Sub test1()
Cells.Find(What:="=TODAY()", _
LookIn:=xlFormulas).Activate
End Sub
--
Es liebs Grüessli
Monika Weber [Microsoft MVP für Excel]
http://www.jumper.ch (Office Help Desk)
http://excel.codebooks.de (Das Excel-VBA Codebook)
.
.