Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1488to1492
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
Inhaltsverzeichnis

VBA,Datum-Hyperlink erstellen, Sprung zu entsp. Tg

VBA,Datum-Hyperlink erstellen, Sprung zu entsp. Tg
15.04.2016 09:55:02
Peter
Hallo zusammen
Ich habe einen Ferienplan mit vier Datumseingaben (C6:C40, F6:F40, I6:I40, L6:L40). In Zeile 5, Bereich N5:BUS5 ist das Datum des jeweiligen Tages eingetragen (Format nur den Tag, TT).
Gesucht: Wenn ein Datum eingeben wird, soll ein Hyperlink erstellt werden (jedoch wenn mölgich ohne blauer und unterstrichener Schrift). Der Hyperlink soll auf das jeweilige Datum in der 5. Zeile führen. Alternativ, anstatt einen Hyperlink der zum entsprechenden Datum springt, könnte ich mir auch ein Doppelklick auf das Datum, der den Sprung auslöst, vorstellen.
Meine xlsm: https://www.herber.de/bbs/user/104928.xlsm
Wie könnte ich das realisieren?
Vielen Dank
Viele Grüsse,
Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA,Datum-Hyperlink erstellen, Sprung zu entsp. Tg
15.04.2016 10:20:22
Beverly
Hi Peter,
vielleicht so:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngDatum As Range
If Not Intersect(Target, Range("N5:BUS5")) Is Nothing Then
Set rngDatum = Range("C6:C40, F6:F40, I6:I40, L6:L40").Find(Target.Value, _
lookat:=xlWhole, LookIn:=xlFormulas)
If Not rngDatum Is Nothing Then
Cancel = True
rngDatum.Select
End If
End If
End Sub


Korrektur
15.04.2016 10:29:51
Beverly
Hi Peter,
sorry, ich hatte deine Frage genau anders herum verstanden - so sollte es korrekt sein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngDatum As Range
Dim varSpalte As Variant
If Not Intersect(Target, Range("C6:C40, F6:F40, I6:I40, L6:L40")) Is Nothing Then
varSpalte = Application.Match(CLng(Target.Value), Range("N5:BUS5"), 0)
If IsNumeric(varSpalte) Then
Cancel = True
Cells(5, varSpalte + 13).Select
End If
End If
End Sub


Anzeige
AW: Korrektur
15.04.2016 14:32:14
Peter
Hallo Karin,
Super, funktioniert bestens!
Sehr nett, Danke Dir.
Gruss,
Peter

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige