Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink einfügen?

Hyperlink einfügen?
Mark
Hallo Leute,
ich habe eine wichtige frage bezüglich Hyperlink einfügen. Ich habe in meiner Exceltabelle eine aufreihung von IMG_0001, IMG_0002, IMG_0003 .. usw. bis IMG_0080.
desweiteren habe ich einen Ordner in dem genau diese Bilder und mit der selben beschriftung drin sind.
ich will nun nicht jedes einzelne bild den Hyperlink zuweisen. Gibt es eine vereinfachte Methode in dem ich die Bilder automatisch zu jedem hinzufüge?
Mit freundlichen Grüßen
Mark

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Hyperlink einfügen?
11.11.2010 10:04:33
Martin
Hallo Mark,
habe dir schnell einen Code geschrieben. Den Dateipfad musst du natürlich noch anpassen:
Sub Makro1()
Dim i As Long
With ActiveSheet
For i = 3 To 80
.Hyperlinks.Add .Cells(i, 1), "C:\Bilder\IMG_00" & Format(i, "00") & ".jpg",  _
TextToDisplay:="C:\Bilder\IMG_00" & Format(i, "00") & ".jpg"
Next i
End With
End Sub
Viele Grüße
Martin
AW: Hyperlink einfügen?
11.11.2010 10:32:03
Mark
Hallo Martin,
Danke erstmal für deine Hilfe, ich bin mir sicher das dein Code richtig ist, nur will es nicht genau funktionieren. ich hab dir mal die Datei hochgeladen um die den aufbau meiner Tabelle zu erläutern. Mein Code Lautet so:
  • 
Sub Makro1()
Dim i As Long
With ActiveSheet
For i = 2026 To 2048
.Hyperlinks.Add .Cells(i, 13), "P:\Mark\Servicelager NEU\100CANON\IMG_20" & Format( _
i, "20") & ".jpg", _
TextToDisplay:="P:\Mark\Servicelager NEU\100CANON\IMG_20" & Format(i, "20") & ".jpg"
Next i
End With
End Sub

    • Hab die ausversehen Falsche Bildnamen geschrieben sie lauten so: IMG_2026 - IMG_2048
    https://www.herber.de/bbs/user/72250.xls
    Anzeige
    AW: Hyperlink einfügen?
    11.11.2010 10:46:51
    Martin
    Hallo Mark,
    ich habe die Schleife nur auf die Schnelle geschrieben. Bitte schau mal in Zeile 2026, denn da sollten die Links jetzt stehen. Als ich gesehen hatte, dass die Bilder mit der Nr. 3 beginnen, habe die Zeile mit "Cells(i, 1)" entsprechend der Bildnummer übernommen. Du könntest auch "Cells(i, 1)" durch Cells(i - 2025, 1) ersezten, dann werden die Bilder ab Zeile 1 eingefügt.
    Viele Grüße
    Martin
    AW: Hyperlink einfügen?
    11.11.2010 10:52:15
    Mark
    Hallo Martin,
    ja das hab ich auch verstanden, nur beginnt die zeile (wie im Anhang) bei 1, nur das bild in reihe eins heisst IMG_2026 und nicht IMG_2001
    Die Zeilen in der liste: FOR i = 2026 sind falsch ich hab das geändert mit 1 to 19
    Viele grüße
    Mark
    Anzeige
    AW: Hyperlink einfügen?
    11.11.2010 11:02:35
    Martin
    Hallo Mark,
    leider kann ich mit deiner Datei nicht viel anfangen, hast du vielleicht die falsche Datei hochgeladen?
    Du hast einen Fehler in deinem Code, es muss heißen Format(i, "00") statt Format(i, "20").
    Viele Grüße
    Martin
    AW: Hyperlink einfügen?
    11.11.2010 11:10:38
    Mark
    Hallo Martin,
    kein problem, ich weiss das der fehler irgendwie bei mir im code steckt, ich würde nun so vorgehen und bräuchte dabei deine hilfe.
    in meiner exceltabelle sind die bilder in der spalte 13 beschriftet (untereinander) die Reihenfolge ist nicht immer dieselbe. das heisst so: IMG_2026, IMG_2031, IMG_2032, IMG_2055 ... usw.
    ich würde das nun so vorschlagen das ich excel den pfad angebe wo die bilder sind, und excel tut die bilder den beschriftungen einsortieren und übernehmen.
    d.h. er nimmt das bild IMG_2026 und sucht in der spalte die beschriftung: IMG_2026 und übernimmt es.
    Nur wie?
    Viele Grüße
    Mark
    Anzeige
    AW: Hyperlink einfügen?
    12.11.2010 11:56:31
    Mark
    Brauche dringend rat!
    AW: Hyperlink einfügen?
    16.11.2010 10:06:43
    Ralf_P
    Hallo Mark,
    um den Link zu generieren reicht doch eigentlich 
    Sub link()
Set Bereich = Range("M1:M500")
For Each cell In Bereich
link = "P:\Mark\Servicelager NEU\100CANON\" & cell.Value
ActiveSheet.Hyperlinks.Add Anchor:=cell, Address:=link
Next cell
End Sub
    Oder habe ich etwas falsch verstanden?
    VG, Ralf

    299 Forumthreads zu ähnlichen Themen

    Hyperlink Formel auf Gültigkeit prüfen
    zapultin

    Hallo Forum!
    Ich verwende die Hyperlinkformel in Excel. Nun möchte ich gerne wissen, ob der berechnete Hyperlink funktioniert (es kann nämlich sein, daß die Datei, auf die gelinkt wird noch nicht existiert).
    Wie kriege ich das OHNE ein VBA Makro hin? Gibt es gar keine Möglichkeit dies z...
    15.08.2008 15:49:14
    Thread-ID: 1002228
    3 Beiträge
    Anzeige
    Hyperlinks - Korrektur ?
    Petra

    Hallo Excelianer(innen)
    Ich prüfe (per VBA) eine große Liste auf Fehlereintragungen, bei Auffinden eines solchen generiere ich eine Fehlerliste (Hyperlinks auf die fehlerhafte Zelle). Klappt alles wunderbar.
    Jetzt mein Problem: es kommt vor, das vom Anwender eine Zeile (auf die ein Hyp...
    19.08.2008 13:02:24
    Thread-ID: 1002903
    4 Beiträge
    Email per Hyperlink aus Zelle mit Formel
    Frank

    Hallo und schönen guten Morgen zusammen,
    neues kleines Problem!
    Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
    Soweit so gut und kein Problem!
    Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
    Sverweises aus ein...
    21.08.2008 09:22:45
    Thread-ID: 1003367
    3 Beiträge
    Anzeige
    Hyperlinks aktualisieren
    Lars

    Hallo zusammen,
    ein Kollege von mir hat eine Excel Datei mit Hyperlinks. Die Hyperlinks liegen auf einem anderen Netzlaufwerk als die Excel Datei. Wenn der Server umbenannt wird, sind somit alle Hyperlinks ungültig. Gibt es eine schnelle Möglichkeit, alle in der Excel-Datei vorhandenen Link...
    29.08.2008 14:38:00
    Thread-ID: 1005841
    3 Beiträge
    ThisWorkbook.FollowHyperlink Address - Makros akt.
    Peter

    Guten Abend
    Kann ich bei nachfolgendem Code eine Ergänzung anbringen, damit allfällig vorhandene Makros einer zu öffnenden Datei automatisch aktiviert werden?
    Wenn ja, wie?
    Danke für jede Hilfe.
    Gruss, Peter
    If Dir(strPath & "\" & strFile) "" Then
    Cancel = True<...
    02.09.2008 22:09:05
    Thread-ID: 1006962
    3 Beiträge
    Hyperlinks
    Bernd

    Hallo, ich möchte folgendes Problem lösen.
    In einer Formularerstellung mit Excel wird ein Formular ausgefüllt.
    Danach wird dieses Formular in einer seperaten Datei gespeichert und Daten aus dem Formular werden in einem anderen Worksheet gespeichert.
    Der Dateiname und Speicherort ist...
    15.09.2008 08:22:03
    Thread-ID: 1009649
    6 Beiträge
    Hyperlink auf Server
    andreas

    Hallo zusammen,
    folgendes Problem, ich füge in einer Tabelle einen Hyperlink mit Verweis auf einen Ordner auf dem Server.
    Dieser funktioniert solange die Tabelle nicht abgespeichert ist. Nach dem Abspeichern funktioniert der Hyperlink nicht mehr weil die Adresse vom System umgeschrieben...
    23.09.2008 11:56:31
    Thread-ID: 1011680
    3 Beiträge
    Hyperlink freigeben
    chrisss

    Hallo
    Ich habe eine Excel-Datei 1, die Daten aus einer anderen Excel-Datei 2 bezieht. Wenn ich nun die Daten in Datei 1 aktualisieren möchte, geht immer eine Sicherheitswarnung auf, "Die automatische Aktualisierung von Hyperlinks wurde deaktiviert". Über Optionen kann ich dann den "Inhalt...
    24.09.2008 12:59:34
    Thread-ID: 1012043
    2 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
    2
    1
    3
    2
    2
    2
    2
    5
    2
    1
    1
    2
    5
    2
    9
    4
    5
    3
    3
    6
    4
    7
    9
    10
    2