Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Starten Hyperlink ausführen

Beim Starten Hyperlink ausführen
04.05.2015 11:46:38
Robert
Hallo Zusammen,
ich habe ein meiner Ansicht nach für euch sehr einfach zu lösendes Problemchen, nur leider habe ich nicht viel Ahnung von VBA...
In Spalte A habe ich eine unendliche Anzahl an Daten (z.b. 01.01.2015). Nun möchte ich beim Öffnen der Excel-Datei den heutigen Tag angezeigt bekommen. Das heißt es soll automatisch der aktuelle Tag angesprungen werden. Dafür habe ich bereits in Zelle A1 eine Formel gebaut: =HYPERLINK("#A"&VERGLEICH(HEUTE();A:A);"Heute")
Nun habe ich leider keine Ahnung wie ich Excel in VBA sage, dass es diesen Link oder meinetwegen auch den Wert der Zelle A1 beim Starten ausführen soll.
Ich habe unter vielem anderen bereits Folgendes ausprobiert; leider erscheint eine _
Fehlermeldung: 

Sub Workbook_open()
ActiveWorkbook.FollowHyperlink ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value
End Sub

Danke für euere Hilfe!!!

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim Starten Hyperlink ausführen
04.05.2015 12:02:58
Klaus
Hallo Robert,
am einfachsten so:
Stelle erstmal mittels Formel fest, in welche Zeile du willst. Das könnte so aussehen:
in B1 =VERGLEICH(HEUTE();A:A;FALSCH)
Jetzt steht in B1 zum Beispiel eine 27, weil "heute" ab Zeile 27 losgeht.
Dann per VBA einfach Zelle 27,1 ansprechen, wobei die 27 aus der Zelle kommt:

Private Sub Workbook_Open()
Sheets("Tabelle1").Activate
Cells(Range("B1").Value, 1).Select
End Sub

Ordentlicher, aber etwas schwieriger: Übernimm die VERGLEICH-Formel direkt in das VBA, so brauchst du keine Hilfszelle mehr.
Grüße,
Klaus M.vdT.

Anzeige
AW: Beim Starten Hyperlink ausführen
04.05.2015 14:03:52
Robert
Hallo Klaus,
das ist eine sehr gute Idee, die ich auch erstmal so anwenden werde.
Und das mit der Übernahme der VERGLEICH-Formel in VBA war genau mein Problem. Habe die Syntax da nämlich noch nicht so ganz verstanden. Ich werde es aber mal weiter versuchen...
Danke für deine Antwort!!

AW: Beim Starten Hyperlink ausführen
05.05.2015 07:54:26
Klaus
In VBA geht es so:
Sub VergleichFormel()
x = Application.WorksheetFunction.Match(Range("B1"), Columns("A"), False)
MsgBox x
End Sub
Eine kleine Fehlerkorrektur sollte aber dazu, falls Match nichts findet.
Grüße,
Klaus M.vdT.

Anzeige
AW: Beim Starten Hyperlink ausführen
05.05.2015 12:28:59
Robert
Aber das setzt ja wieder B1 als Hilfszelle voraus. Damit bin ich ja dann genauso weit wie mit deinem ersten Tipp :)
Und wenn ich das richtig verstanden habe, dann vergleicht er jetzt die Zahl die in B1 steht mit jedem Wert in Spalte A. Da wird er nichts finden, weil in Spalte A verschiedene Kalendertage stehen und nicht etwa Zahlen. Oder seh ich das falsch?
Schön wäre es anstatt Range("B1") da etwas stehen zu haben, was mir direkt das heutige Datum ausgibt. Und dieses Datum dann mit jedem Wert in Spalte A vergleicht und dann dort hinspringt.
Folgendes funktioniert nicht (Laufzeitfehler '1004'):
Private Sub Vergleich()
x = Application.WorksheetFunction.Match(Date, Columns("A"), False)
MsgBox x
Cells(x, 1).Select
End Sub
(Die Kalendertage in Spalte A sind natürlich auch als Datum formatiert)
Danke nochmals für deine Hilfe!! :)

Anzeige
Application.Match und DATE ?
05.05.2015 18:31:00
Klaus
Hi,
auch ich bekomme es mit "date" im VBA-Script nicht zum laufen. Keine Ahnung woran es liegt. Match-e ich auf einen String den es gibt, komme ich in die richtige Zelle. Nur DATE will nicht .... Ich stell mal auf offen!
Damit du nicht im Regen stehst: folgende Lösung funktioniert zumindest: 
Sub TestMe()
Dim r As Range
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Row
For Each r In Range("A1:A" & lRow)
If r.Value = Date Then
r.Select
Exit For
End If
Next r
End Sub

Aber schön oder elegant ist natürlich etwas anderes ... und warum dies geht, aber MATCH nicht, kann ich auch nicht erklären.
Nebenbei: du nennst es:
Private Sub Vergleich()
VERGLEICH ist bereits der Name einer Excelformel. Auch wenn es dieses Mal gut ging, vermeide es aus Prinzip Variablen oder Programme mit bereits belegten Namen zu belegen! Als Namen sind Sachen wie SUMME, Long, integer, Sub .... tabu!
Grüße,
Klaus M.vdT.

Anzeige
AW: Application.Match und DATE ?
05.05.2015 19:14:18
Daniel
Hi
"Date" ist nicht nur die VBA-Funktion für das aktuelle Datum, sonden auch ein (neuer) Datentyp für Datumswerte.
Wie er genau spezifiert ist und wie die automatische Typumwandlung damit umgeht weiss ich auch nicht, auf jeden Fall hat Excel da noch ein Problem.
Datumswerte liegen in Exceln normalerweise als Ganzzahl vor, eine Klassifizierung als Datum erfolgt in Excel allen über das Zahlenformat.
Wenn man sicher gehten will, wandelt man die Datumswerte in ihren Ganzzahlwert um:
x = Application.WorksheetFunction.Match(Clng(Date), Columns("A"), False)


If CLng(r.Value) = Clng(Date) Then
Gruß Daniel

Anzeige
AW: Application.Match und DATE ?
05.05.2015 21:58:42
Robert
Das Problem scheint gelöst zu sein und ich kann leider nicht erklären warum. Oder doch?
Ich habe nun Daniels Tipp angewendet und den Datentyp von Date definiert.
Der finale Code:
Sub VergleichFormel()
x = Application.WorksheetFunction.Match(CLng(Date), Columns("A"), False)
Cells(x, 1).Select
End Sub
Ich bin mir hundertprozentig sicher, dass ich das mit dem Datentyp in genau dieser Art und Weise schon vor Daniels Kommentar ausprobiert hatte und einen "Typenfehler" bekam (Fehler 13 oder so?). Nach mehrfachem rumspielen mit dem Datentyp mit Clng und Cdate dann wieder Fehler 1004.
Dieses Mal hab ich allerdings den Code komplett neu von Hand geschrieben und es ging auf anhieb. Was der Unterschied zwischen jetzt und vorher ist, ist mir ein Rätsel. Zuerst dachte ich, dass es wie Klaus sagte an der Benennung des Subs liegt, aber auch wenn ich es wieder (fälschlicherweise) einfach Vergleich() nenne, funktioniert es.
Der jetzige Code ist denkbar einfach und gefällt mir so.
Ich danke euch sehr für eure Hilfe!
Falls ihr irgendeine Vermutung habt, warum es jetzt funktioniert und vorher nicht, ich höre sie mir sehr gerne an!
Anzeige

305 Forumthreads zu ähnlichen Themen

Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Anzeige
Datei mit ungültigem Blattnamen per Makro öffnen
sile1234

Hallo liebe Herber Gemeinde,
ich habe eine *.xls Datei die von einem Programm exportiert wird. Diese möchte ich gerne mit Excel weiterbearbeiten und mit einem Makro dort diverse Informationen herausziehen. Leider wird der Blattname mit Zeichen exportiert mit denen Excel 2003 nichts anfangen...
07.08.2009 14:14:42
Thread-ID: 1094255
4 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Anzeige
Blatt öffnen - Makro ausführen
Frank

Hallo Zusammen!
Meine Frage: Wenn ich z.B. in einer Arbeitsmappe Tabelle5 öffne soll ein Makro ausgeführt werden. Wie muss die Befehlzeile hierfür aussehen?
Ich hoffe, es weiß jemand Rat!!! Danke!!!
Gruß Frank H.
10.09.2009 09:49:43
Thread-ID: 1101676
3 Beiträge
Visio Datei öffnen und makro ausführen
Thomas

Hallo liebe VBA Gemeinde
Diesmal habe ich ein Schnittstellenproblem. Und zwar möchte ich aus Excel über einen Button eine Visio Datei aufrufen/öffnen (ist im gleichen Verzeichnis) und ein dort gespeichertes Makro ausführen (call Auswahl).
Das Makro benötigt die Variable "AKZ" die von E...
29.09.2009 12:14:45
Thread-ID: 1106163
4 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Makro beim Blattwechsel ausführen ..
WalterK

Hallo,
den Code in der beigefügten Mappe habe ich aus diesem Forum, es wird das Blatt INHALT angelegt und dort werden dann alle Blätter aufgelistet. Funktioniert auch tadellos.
https://www.herber.de/bbs/user/65643.xls
Ich hätte es jetzt gerne so, dass der Code immer beim Öffnen der...
07.11.2009 02:34:11
Thread-ID: 1115131
4 Beiträge
Datei mit bestimmten Namen öffnen
Holla

Ich hab ein makro, dass auf Knopfdruck auffordert eine Datei zu öffnen.
Wie kann man es verhindern, dass die falsche ausgewählt wird. Die Namen der Dateien sind immer in folgender Form: XMLVJT2_JJJJ_Qx.xls , wobei JJJJ und X variabel sind.
Kann man da eine Fehlermeldung einbauen, wenn m...
13.11.2009 12:40:42
Thread-ID: 1116875
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
10
3
5
3
2
3
1
3
5
3
2
3
10
5
2
14
2
2
3
2
5
4
15
6