Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1524to1528
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

Hyperlink für Aktive Zelle

Hyperlink für Aktive Zelle
21.11.2016 21:26:41
Vent
Hallo,
ich möchte ein Hyperlink von der Aktiven Zelle in eine definierte (Festgelegte)Zelle als VBA. Meine Tabelle hat eine Menge Namen Daten und ich möchte in der letzten Spalte ein Link zum nächsten Eintrag mit gleichem Namen (in Spalte B). Ich bin Betriebsrat und es geht um Verlängerungen.
es wäre schön wenn mir jemand helfen kann.
PS.: Wie kann man VBA Befehle Üben und gleichzeitig sehen was passiert.
Danke

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

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink für Aktive Zelle
22.11.2016 01:52:08
fcs
Hallo Vent,
ich würde hier das Tabellenblatt nicht mit Hyperlinks zupflastern sondern dynamisch nach dem Namen weiter unten in der Liste in Spalte B suchen.
z.B. nach Klick per rechter Maustaste auf den Namen in Spalte B. Nachfolgend ein entsprechendes Ereignis-Makro, das du im VBA-Editor unter dem Tabellenblatt mit der Liste einfügen musst.
PS.: Wie kann man VBA Befehle Üben und gleichzeitig sehen was passiert.
Die normalen Makros kann man im Schrittmodus starten via Menü Ansicht--&gtMakros (nächster Befehl dann immer mit F8). Bei verkleinertem VBA-Editor-Fenster sieht man dann was ggf. in den Tabellen passiert.
Du kannst im VBA-Editor auch Haltepunkte in Makros setzen, um dann ab der Code-Zeile mit F8 zeilenweise das Makro weiter abzuarbeiten.
Hast du Variablen deklariert, dann kannst du im VBA-Edior via Menü "Ansicht" das Lokal-Fenster einblenden und im Schrittmodus die Werte der Variablen verfolgen. Außerdem kannst du via "Debuggen" Überwachungen hinzufügen, um die Werte von Ausdrücken oder Variablen zu verfolgen und ggf. auch das Makro anhalten.
LG
Franz
'Ereignismakro unter dem Tabellenblatt mit der Liste
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim varName
Dim ZeileL As Long, Zeile As Long
Select Case Target.Column
Case 2 'spalte B
Select Case Target.Row
Case Is >= 3  '3 = 1. Zeile mit einem Namen
varName = Target.Value
If varName  "" Then
Cancel = True 'verhindert, dass Rechte-Maus-Menü eingeblendet wird
ZeileL = Cells(Rows.Count, 2).End(xlUp).Row 'letzte Zeile mit Wert in  _
Spalte B
Zeile = Target.Row
Do
Zeile = Zeile + 1
If Zeile > ZeileL Then
MsgBox "Keine weiteren Einträge zu dem Namen: " & varName
Exit Do
End If
If Cells(Zeile, Target.Column).Value = varName Then
Cells(Zeile, Target.Column).Select
ActiveWindow.ScrollRow = Zeile - 2
Exit Do
End If
Loop
End If
End Select
End Select
End Sub

Anzeige
AW: Hyperlink für Aktive Zelle
22.11.2016 19:00:19
Vent
Hallo Franz,
sorry ich natürlich Horst.
Super Vorschlag. Habe deinen Code gleich ausprobiert. Wenn ich in Zeile B2 bin und rechte Maustaste drücke kommt das Menü, aber ab Zeile B3 geht es dann. Echt Super Danke.
AW: Hyperlink für Aktive Zelle
22.11.2016 19:26:05
fcs
Hallo Horst,
wenn du das Makro ein klein wenig studierst, dann solltest du herausfinden, wo du ändern musst, damit ab Zeile 2 die Suche beginnt.
LG
Franz
AW: Hyperlink für Aktive Zelle
22.11.2016 20:01:46
Horst
Hallo Franz,
Ok,ich nehme die Aufgabe an.
Melde mich wieder.
bis dann
Horst
AW: Hyperlink für Aktive Zelle
22.11.2016 20:14:38
Horst
Hallo Franz,
schau mal........
Userbild
Ich freue mich auf unser nächstes mal.
Danke Horst
Anzeige
Der Kandidat hat 100 Punkte owt
23.11.2016 06:08:13
fcs
..

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige