ich habe eine Liste, in der die Daten des aktuellen Jahres
untereinander stehen. Nun möchte ich, daß man per Klick
auf einen Button (oder per Shortcut) direkt auf das aktuelle
Datum springen kann. Wie kann ich das am besten erreichen,
vielleicht per Makro?
Besten Dank im voraus,
Marcus Leibe
---"Marcus Leibe" <mar...@leibe.com> schrieb ...
> ich habe eine Liste, in der die Daten des aktuellen Jahres
> untereinander stehen. Nun möchte ich, daß man per Klick
> auf einen Button (oder per Shortcut) direkt auf das aktuelle
> Datum springen kann. Wie kann ich das am besten erreichen,
> vielleicht per Makro?
Ab der Version Excel 97 kannst du dazu die HYPERLINK-Tabellenfunktion
einsetzen:
=HYPERLINK("[Hyperlinkheute.xls]Tabelle1!A" &
VERGLEICH(HEUTE();A:A;0);"Heute")
Im gezeigten Beispiel wird angenommen, dass die Daten in der Spalte A des
Tabellenblattes "Tabelle1" der Mappe "Hyperlinkheute.xls" stehen. Diese
Bezüge musst du daher an deine eigenen Namen und Bereiche anpassen.
Anmerkungen:
(1) Die Tabellenfunktion VERGLEICH sucht hier in der Spalte A (ggf.
anpassen) nach dem heutigen Datum und gibt die Zeilennummer des Treffers
zurück. Mit dem letzten Parameter (0) wird eine Fehlermeldung #NV! gezeigt,
wenn das heutige Datum nicht gefunden wird. Je nach Bedarf kannst du hier
auch auf -1 oder 1 umstellen (siehe Onlinehilfe - dann aber Sortierung
beachten!).
(2) Mit dem Verkettungszeichen & wird an den übrigen vollständigen (!) Bezug
die so ermittelte Zeilennummer angehängt.
--
In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen
Servus aus Wien,
-Robert Gelbmann-
---
MS MVP für Excel
EML: rgel...@mvps.org
Neu erschienen: "Excel für Rechnungswesen und Controlling", 3. Auflage
Mehr Infos unter: http://www.roehrenbacher.at/publikat/xl3/
habe sowas ähnliches mal gemacht, dabei wird schon beim Öffnen der Datei auf das
richtige Arbeitsblatt(davon gibt es 12/pro Monat eines) und dann das aktuelle
Datum in Spalte B ermittelt und positioniert.
Klicke die Tastenkombination ALT + F11, um in die Entwicklungsumgebung zu
gelangen, führe dann einen Dopelklick auf den Eintrag DieseArbeitsmappe durch und
erfasse folgendes Makro:
Private Sub Workbook_Open()
Dim dat As String
dat = Mid(Date, 4, 2)
Select Case dat
Case "01"
Sheets("Januar").Select
Case "02"
Sheets("Februar").Select
Case "03"
Sheets("März").Select
Case "04"
Sheets("April").Select
Case "05"
Sheets("Mai").Select
Case "06"
Sheets("Juni").Select
Case "07"
Sheets("Juli").Select
Case "08"
Sheets("August").Select
Case "09"
Sheets("September").Select
Case "10"
Sheets("Oktober").Select
Case "11"
Sheets("November").Select
Case "12"
Sheets("Dezember").Select
Case Else
MsgBox "Es konnte kein gültiger Monat ermittelt werden!"
End Select
Columns("B:B").Select
On Error Resume Next
Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 2).Select
End Sub
Viele Grüße
Bernd
--------------------------------------------------------
Die MacHero EXCEL Homepage unter anderem
mit meinem Excel-VBA-Kompendium (Excel97/2000),
700 Makros für die Praxis Schritt für Schritt erklärt
unter http://members.aol.com/Machero
--------------------------------------------------------
--
__________________________________________________________
News suchen, lesen, schreiben mit http://newsgroups.web.de