Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink erstellen

Hyperlink erstellen
02.12.2004 13:36:52
manuel
Hallo,
die Recherche hat mir leider nicht viel geholfen:
in meinem VBA Programm durchläuft eine Variable ein Tabellenblatt. Bei bestimmten Werten wird die Zeile und ein bisschen Text in ein anderes Tabellenblatt geschrieben. Nun nimmt das Suchen viel Zeit weg, die rausgeschriebene Zelle in der ersten Tabelle zu finden. Deswegen möchte ich gern einen Hyperlink, der dann auf die Zelle springt. Könnte mir jemand bei der Realsierung helfen, wie ich die HyperlinkFunktion êrstelle
Vielen Dank
Manuel

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink erstellen
u_
Hallo,
schmeiß mal den Rekorder an.
Gruß
AW: Hyperlink erstellen
02.12.2004 13:42:52
manuel
Hallo,
Es fällt mir schwer, die Hyperlinkfct. zu erstellen. Also Springen vom einem zum anderen Arbeitsblatt. Wenn ich das geschnallt habe, könnt eich mal den Rekorder nutzen.
Viele Grüße
Manuel
AW: Hyperlink erstellen
u_
OK.
Dann poste doch mal deinen Code.
Gruß
AW: Hyperlink erstellen
02.12.2004 13:54:16
Manuel
anbei mein code

Sub suche()
i=5
do
worksheets(1).activate
if cells(i,2) = "Alpha" then
worksheets(2).activate
dataset=worksheets(2).UsedRange.Rows.Count + 1
cells(dataset,1)=i
cells(dataset,2)="Alpha gefunden"
end if
loop until cells(i,1) = "&eof"
End Sub

auf das "i" in worksheets(2) soll ein Hyperlink automatisch kommen, der mich dann "on klick" zu der Zelle führt, die den wert von i trägt.
Gruß
Manuel
Anzeige
AW: Hyperlink erstellen
u_ 

Sub suche()
Dim i As Long, dataset As Long, Wsh1 As Worksheet
i = 5
Set Wsh1 = Worksheets(1)
Do
If Wsh1.Cells(i, 2) = "Alpha" Then
With Worksheets(2)
dataset = .Cells(65536, 1).End(xlUp).Row + 1
.Cells(dataset, 1) = i
.Hyperlinks.Add Anchor:=.Cells(dataset, 2), Address:="", _
SubAddress:=Wsh1.Name & "!" & Wsh1.Cells(i, 2).Address, _
TextToDisplay:="Alpha gefunden"
End With
End If
i = i + 1
Loop Until Wsh1.Cells(i, 1) = "&eof"
End Sub

Danke! war genau das was ich suchte!!!!
03.12.2004 11:10:17
manuel
:-)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige