Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehreren hyperlinks in der tabelle makros anhängen

mehreren hyperlinks in der tabelle makros anhängen
26.09.2003 10:40:26
Edeltraud
Liebe Excel-Kollegen,

ich habe ein Problem, das ich auch nach längerem Suchen im Forum nicht selber lösen kann. Vielleicht liegts am falschen Suchtext.
Und zwar habe ich mehrere Hyperlinks in einem Tabellenblatt erstellt. Beim Anklicken der Hyperlinks soll ein Makro ablaufen, wie z.B. ein bestimmtes Tabellenblatt mit speziell ausgeblendeten Spalten.
Das funktioniert unter Verwendung einer Textmarke beim ersten Hyperlink ganz gut, aber ich komme einfach nicht drauf, wie ich im Makro die verschiedenen Hyperlinks voneinander unterscheiden kann, damit jeder HLink ein anderes Makro startet.
Hat da jemand einen Tipp, oder einen Verweis, sofern es dazu schon einen Bericht gibt?
Ich wäre Euch wirklich sehr dankbar.
Schöne Grüße
Edeltraud

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehreren hyperlinks in der tabelle makros anhängen
26.09.2003 12:57:18
xXx
Hallo,
da bin ich aber neugierig. Wie startet man mit einem Hyperlink ein Makro?
Warum nimmst du nicht Zeichnungselemente? Da kannst du Makros dranhängen, wie du willst. Oder eine eigene Symbolleiste?

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen!
AW: mehreren hyperlinks in der tabelle makros anhängen
26.09.2003 13:08:02
Edeltraud
Hallo Udo,

ich hab dem Hyperlink eine Textmarke zugeordnet und dann folgendes Makro in die Tabelle geschrieben:


Private Sub worksheet_followHyperlink(ByVal Target As Hyperlink)
Sheets(1).Columns("C:E").EntireColumn.Hidden = True
End Sub


Das hat ganz gut funktioniert, aber eben nur bei EINEM Hyperlink in der Tabelle.
Das mit den Zeichnungselementen stimmt, da hast Du recht. Die Hyperlinks sind halt schon drin und die Kollegen würden das auch gerne so belassen.
Ich dachte nur, wenn es mit einem geht, dann fehlt bestimmt nur eine Kleinigkeit, um zwischen verschiedenen zu unterscheiden.
Schöne Grüße
Edeltraud.
Anzeige
AW: mehreren hyperlinks in der tabelle makros anhängen
26.09.2003 13:34:48
xXx
Hallo,
werte doch die TextToDisplay-Eigenschaft (angezeigter Text des HL) aus.

Private Sub worksheet_followHyperlink(ByVal Target As Hyperlink)
select Case target.texttodisplay
case "Makro1"
Call Makro1
case "Makro2"
Call Makro2
End Select
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen!
AW: mehreren hyperlinks in der tabelle makros anhängen
26.09.2003 15:22:51
Edeltraud
Hallo Udo,
das ist für mich als VBA-"Anfänger" (ich stelle das immer mehr fest) wieder mal eine ganz neue Perspektive. Wenns funktioniert hat, melde ich mich am Montag.
Vielen Dank für den Tipp und ein schönes Wochenende!!
Gruß Edeltraud
Anzeige
AW: mehreren hyperlinks in der tabelle makros anhängen
01.10.2003 15:16:54
Edeltraud
Hallo Udo,

die Idee mit TextToDisplay war nicht schlecht.
Mein Makro sieht jetzt so aus und läuft auch.


Private Sub worksheet_followHyperlink(ByVal Target As Hyperlink)
Select Case Target.TextToDisplay
Case "Wareneingangsprüfung"
Call Makro1
Case "Fertigungsbegleitende Prüfung"
Call Makro2
End Select
End Sub


Es ginge auch mit einem Trick, wenn ich über meinen HL ein unsichtbares Objekt zeichne und dem dann das Makro zuweise. Aber mir ist diese Variante lieber.

HERZLICHEN DANK für Deine Hilfe!!!!!
Gruß Edeltraud
Anzeige

302 Forumthreads zu ähnlichen Themen


Hallo Leuts,
ich möchte gern die spalten B, D und F als Text formatieren. Habe da aber irgendeinen fehler drin.
ActiveSheet.Columns("B:B,D:D,F:F").NumberFormat = "@"
Das Format ändert sich leider nicht in Text.
Grúß
Steffen

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige