Discussion:
Hyperlink über Userform
(zu alt für eine Antwort)
Werner
2003-07-17 17:23:34 UTC
Permalink
Hallo Ihr Experten,

möchte hyperlink über UF (Button) eingeben. Also im UF klick auf Button
("Beschreibung") und Dialog "Datei öffnen" Fenster wird aktiviert.
Ich wähle nun die gewünschte Datei (jpg - Extension), gehe auf ok. Wenn ich
jetzt die Tabelle anschaue, soll ein Hyperlink mit der Bezeichnung
"Beschreibung" in der aktuellen Zeile (z.Bsp. Zeile 5, Spalte 8) stehen.
Und das ganze bei jedem neuen Datensatz. Ansatzweise dachte ich an
ActiveCell.Offset (0, 8) zur Ausgabe. Nur wie ich daß mit dem Hyperlink über
den Button hinbekommen soll, ist mir mom ein Rätsel...

Hintergrund ist eine Videoarchivierung, um bei Durchsicht der Daten auch
gleich auf Videocover und Beschreibung zurückzugreifen.

Ich danke Euch für die Hilfe!

Grüße
Werner
Stefan Onken
2003-07-17 18:27:26 UTC
Permalink
hallo Werner,

um an die nötigen VBA-Befehle zu kommen, nutze den Makrorekorder. Den Code
kannst/mußt du dann anpassen.

In deinen Fall zB:

ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 8), Address:= _
"C:\deineDatei.jpg"

Gruß
stefan
Post by Werner
Hallo Ihr Experten,
möchte hyperlink über UF (Button) eingeben. Also im UF klick auf Button
("Beschreibung") und Dialog "Datei öffnen" Fenster wird aktiviert.
Ich wähle nun die gewünschte Datei (jpg - Extension), gehe auf ok. Wenn ich
jetzt die Tabelle anschaue, soll ein Hyperlink mit der Bezeichnung
"Beschreibung" in der aktuellen Zeile (z.Bsp. Zeile 5, Spalte 8) stehen.
Und das ganze bei jedem neuen Datensatz. Ansatzweise dachte ich an
ActiveCell.Offset (0, 8) zur Ausgabe. Nur wie ich daß mit dem Hyperlink über
den Button hinbekommen soll, ist mir mom ein Rätsel...
Hintergrund ist eine Videoarchivierung, um bei Durchsicht der Daten auch
gleich auf Videocover und Beschreibung zurückzugreifen.
Ich danke Euch für die Hilfe!
Grüße
Werner
Werner
2003-07-17 20:23:35 UTC
Permalink
danke für die schnelle Antwort!

Nur möchte ich im aktiven sheet einen hyperlink erstellen. Allerdings nicht
manuell über einfügen usw. sondern über ein UF und Klick auf Button, Auswahl
Bilddatei, Klick auf öffnen, Platzierung der Bilddatei in der Aktiven Reihe
in Spalte "Info".
D.h. wenn ich meine Liste mit Videos überprüfe und mir eine Filmbeschreibung
oder Cover ansehen möchte gehe ich nur auf z.Bsp. Zeile 156 in Spalte 8 mit
der Bezeichnung "Info" und klicke in der dortigen Zelle entweder ein Bild
oder einen text als Hyperlink an und das Bild öffnet sich über den
Photoeditor. fertig...

Danke nochmal...

Greetings
Post by Stefan Onken
hallo Werner,
um an die nötigen VBA-Befehle zu kommen, nutze den Makrorekorder. Den Code
kannst/mußt du dann anpassen.
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 8), Address:= _
"C:\deineDatei.jpg"
Gruß
stefan
Post by Werner
Hallo Ihr Experten,
möchte hyperlink über UF (Button) eingeben. Also im UF klick auf Button
("Beschreibung") und Dialog "Datei öffnen" Fenster wird aktiviert.
Ich wähle nun die gewünschte Datei (jpg - Extension), gehe auf ok. Wenn
ich
Post by Werner
jetzt die Tabelle anschaue, soll ein Hyperlink mit der Bezeichnung
"Beschreibung" in der aktuellen Zeile (z.Bsp. Zeile 5, Spalte 8) stehen.
Und das ganze bei jedem neuen Datensatz. Ansatzweise dachte ich an
ActiveCell.Offset (0, 8) zur Ausgabe. Nur wie ich daß mit dem Hyperlink
über
Post by Werner
den Button hinbekommen soll, ist mir mom ein Rätsel...
Hintergrund ist eine Videoarchivierung, um bei Durchsicht der Daten auch
gleich auf Videocover und Beschreibung zurückzugreifen.
Ich danke Euch für die Hilfe!
Grüße
Werner
Stefan Onken
2003-07-18 03:54:32 UTC
Permalink
hallo Werner,
erstelle auf dem UserForm einen Button und doppelklicke darauf. Im
Codefenster zum Button dann zB

Private Sub CommandButton1_Click()
Dim Bild
Bild = Application.GetOpenFilename()
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ActiveCell.Row,8), _
Address:=Bild
End Sub

Bei GetOpenFilename() kannst du ua FileFilter setzen, zB für jpg-Dateien:
Bild = Application.GetOpenFilename("*.jpg, *.jpg")

Beim Klick auf dem Hyperlink öffnet sich der Standard-Bildbetrachter.

Gruß
stefan
Post by Werner
danke für die schnelle Antwort!
Nur möchte ich im aktiven sheet einen hyperlink erstellen. Allerdings nicht
manuell über einfügen usw. sondern über ein UF und Klick auf Button, Auswahl
Bilddatei, Klick auf öffnen, Platzierung der Bilddatei in der Aktiven Reihe
in Spalte "Info".
D.h. wenn ich meine Liste mit Videos überprüfe und mir eine
Filmbeschreibung
Post by Werner
oder Cover ansehen möchte gehe ich nur auf z.Bsp. Zeile 156 in Spalte 8 mit
der Bezeichnung "Info" und klicke in der dortigen Zelle entweder ein Bild
oder einen text als Hyperlink an und das Bild öffnet sich über den
Photoeditor. fertig...
Danke nochmal...
Greetings
Post by Stefan Onken
hallo Werner,
um an die nötigen VBA-Befehle zu kommen, nutze den Makrorekorder. Den Code
kannst/mußt du dann anpassen.
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 8), Address:= _
"C:\deineDatei.jpg"
Gruß
stefan
Post by Werner
Hallo Ihr Experten,
möchte hyperlink über UF (Button) eingeben. Also im UF klick auf Button
("Beschreibung") und Dialog "Datei öffnen" Fenster wird aktiviert.
Ich wähle nun die gewünschte Datei (jpg - Extension), gehe auf ok. Wenn
ich
Post by Werner
jetzt die Tabelle anschaue, soll ein Hyperlink mit der Bezeichnung
"Beschreibung" in der aktuellen Zeile (z.Bsp. Zeile 5, Spalte 8) stehen.
Und das ganze bei jedem neuen Datensatz. Ansatzweise dachte ich an
ActiveCell.Offset (0, 8) zur Ausgabe. Nur wie ich daß mit dem Hyperlink
über
Post by Werner
den Button hinbekommen soll, ist mir mom ein Rätsel...
Hintergrund ist eine Videoarchivierung, um bei Durchsicht der Daten auch
gleich auf Videocover und Beschreibung zurückzugreifen.
Ich danke Euch für die Hilfe!
Grüße
Werner
Werner
2003-07-18 11:32:41 UTC
Permalink
Hallo Stefan,

danke dir, werds gleich mal testen *freuuu*

Gruß Werner
Post by Stefan Onken
hallo Werner,
erstelle auf dem UserForm einen Button und doppelklicke darauf. Im
Codefenster zum Button dann zB
Private Sub CommandButton1_Click()
Dim Bild
Bild = Application.GetOpenFilename()
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ActiveCell.Row,8), _
Address:=Bild
End Sub
Bild = Application.GetOpenFilename("*.jpg, *.jpg")
Beim Klick auf dem Hyperlink öffnet sich der Standard-Bildbetrachter.
Gruß
stefan
Post by Werner
danke für die schnelle Antwort!
Nur möchte ich im aktiven sheet einen hyperlink erstellen. Allerdings
nicht
Post by Werner
manuell über einfügen usw. sondern über ein UF und Klick auf Button,
Auswahl
Post by Werner
Bilddatei, Klick auf öffnen, Platzierung der Bilddatei in der Aktiven
Reihe
Post by Werner
in Spalte "Info".
D.h. wenn ich meine Liste mit Videos überprüfe und mir eine
Filmbeschreibung
Post by Werner
oder Cover ansehen möchte gehe ich nur auf z.Bsp. Zeile 156 in Spalte 8
mit
Post by Werner
der Bezeichnung "Info" und klicke in der dortigen Zelle entweder ein Bild
oder einen text als Hyperlink an und das Bild öffnet sich über den
Photoeditor. fertig...
Danke nochmal...
Greetings
Post by Stefan Onken
hallo Werner,
um an die nötigen VBA-Befehle zu kommen, nutze den Makrorekorder. Den
Code
Post by Werner
Post by Stefan Onken
kannst/mußt du dann anpassen.
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 8), Address:= _
"C:\deineDatei.jpg"
Gruß
stefan
Post by Werner
Hallo Ihr Experten,
möchte hyperlink über UF (Button) eingeben. Also im UF klick auf
Button
Post by Werner
Post by Stefan Onken
Post by Werner
("Beschreibung") und Dialog "Datei öffnen" Fenster wird aktiviert.
Ich wähle nun die gewünschte Datei (jpg - Extension), gehe auf ok.
Wenn
Post by Werner
Post by Stefan Onken
ich
Post by Werner
jetzt die Tabelle anschaue, soll ein Hyperlink mit der Bezeichnung
"Beschreibung" in der aktuellen Zeile (z.Bsp. Zeile 5, Spalte 8)
stehen.
Post by Werner
Post by Stefan Onken
Post by Werner
Und das ganze bei jedem neuen Datensatz. Ansatzweise dachte ich an
ActiveCell.Offset (0, 8) zur Ausgabe. Nur wie ich daß mit dem
Hyperlink
Post by Werner
Post by Stefan Onken
über
Post by Werner
den Button hinbekommen soll, ist mir mom ein Rätsel...
Hintergrund ist eine Videoarchivierung, um bei Durchsicht der Daten
auch
Post by Werner
Post by Stefan Onken
Post by Werner
gleich auf Videocover und Beschreibung zurückzugreifen.
Ich danke Euch für die Hilfe!
Grüße
Werner
Werner
2003-07-18 12:43:08 UTC
Permalink
Alle Achtung Stefan,

bist der erste, der mein Problem richtig aufgegriffen hat *freuu*
besteht nun noch die Möglichkeit, statt der direkten Ansicht des
Linkverweises z.Bsp. C.\eigene dateien\bilder\bild1.jpg, sondern dass dort
z.Bsp. Bild steht?

Danke nochmal!!!

Grüße
Werner
Post by Stefan Onken
hallo Werner,
erstelle auf dem UserForm einen Button und doppelklicke darauf. Im
Codefenster zum Button dann zB
Private Sub CommandButton1_Click()
Dim Bild
Bild = Application.GetOpenFilename()
ActiveSheet.Hyperlinks.Add Anchor:=Cells(ActiveCell.Row,8), _
Address:=Bild
End Sub
Bild = Application.GetOpenFilename("*.jpg, *.jpg")
Beim Klick auf dem Hyperlink öffnet sich der Standard-Bildbetrachter.
Gruß
stefan
Post by Werner
danke für die schnelle Antwort!
Nur möchte ich im aktiven sheet einen hyperlink erstellen. Allerdings
nicht
Post by Werner
manuell über einfügen usw. sondern über ein UF und Klick auf Button,
Auswahl
Post by Werner
Bilddatei, Klick auf öffnen, Platzierung der Bilddatei in der Aktiven
Reihe
Post by Werner
in Spalte "Info".
D.h. wenn ich meine Liste mit Videos überprüfe und mir eine
Filmbeschreibung
Post by Werner
oder Cover ansehen möchte gehe ich nur auf z.Bsp. Zeile 156 in Spalte 8
mit
Post by Werner
der Bezeichnung "Info" und klicke in der dortigen Zelle entweder ein Bild
oder einen text als Hyperlink an und das Bild öffnet sich über den
Photoeditor. fertig...
Danke nochmal...
Greetings
Post by Stefan Onken
hallo Werner,
um an die nötigen VBA-Befehle zu kommen, nutze den Makrorekorder. Den
Code
Post by Werner
Post by Stefan Onken
kannst/mußt du dann anpassen.
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(0, 8), Address:= _
"C:\deineDatei.jpg"
Gruß
stefan
Post by Werner
Hallo Ihr Experten,
möchte hyperlink über UF (Button) eingeben. Also im UF klick auf
Button
Post by Werner
Post by Stefan Onken
Post by Werner
("Beschreibung") und Dialog "Datei öffnen" Fenster wird aktiviert.
Ich wähle nun die gewünschte Datei (jpg - Extension), gehe auf ok.
Wenn
Post by Werner
Post by Stefan Onken
ich
Post by Werner
jetzt die Tabelle anschaue, soll ein Hyperlink mit der Bezeichnung
"Beschreibung" in der aktuellen Zeile (z.Bsp. Zeile 5, Spalte 8)
stehen.
Post by Werner
Post by Stefan Onken
Post by Werner
Und das ganze bei jedem neuen Datensatz. Ansatzweise dachte ich an
ActiveCell.Offset (0, 8) zur Ausgabe. Nur wie ich daß mit dem
Hyperlink
Post by Werner
Post by Stefan Onken
über
Post by Werner
den Button hinbekommen soll, ist mir mom ein Rätsel...
Hintergrund ist eine Videoarchivierung, um bei Durchsicht der Daten
auch
Post by Werner
Post by Stefan Onken
Post by Werner
gleich auf Videocover und Beschreibung zurückzugreifen.
Ich danke Euch für die Hilfe!
Grüße
Werner
stefan onken
2003-07-18 13:12:36 UTC
Permalink
hi Werner,
-----Originalnachricht-----
Alle Achtung Stefan,
bist der erste, der mein Problem richtig aufgegriffen
hat *freuu*
besteht nun noch die Möglichkeit, statt der direkten
Ansicht des
Linkverweises z.Bsp. C.\eigene dateien\bilder\bild1.jpg,
sondern dass dort
z.Bsp. Bild steht?
freut mich, dass es läuft!

Cells(ActiveCell.Row, 8).Hyperlinks(1).TextToDisplay
= "Bild!"

Schönes Wochenende, ich gehe nun in selbiges
stefan
Danke nochmal!!!
Grüße
Werner
Post by Stefan Onken
hallo Werner,
erstelle auf dem UserForm einen Button und
doppelklicke darauf. Im
Post by Stefan Onken
Codefenster zum Button dann zB
Private Sub CommandButton1_Click()
Dim Bild
Bild = Application.GetOpenFilename()
ActiveSheet.Hyperlinks.Add Anchor:=Cells
(ActiveCell.Row,8), _
Post by Stefan Onken
Address:=Bild
End Sub
Bei GetOpenFilename() kannst du ua FileFilter setzen,
Bild = Application.GetOpenFilename("*.jpg, *.jpg")
Beim Klick auf dem Hyperlink öffnet sich der Standard-
Bildbetrachter.
Post by Stefan Onken
Gruß
stefan
Post by Werner
danke für die schnelle Antwort!
Nur möchte ich im aktiven sheet einen hyperlink
erstellen. Allerdings
Post by Stefan Onken
nicht
Post by Werner
manuell über einfügen usw. sondern über ein UF und
Klick auf Button,
Post by Stefan Onken
Auswahl
Post by Werner
Bilddatei, Klick auf öffnen, Platzierung der
Bilddatei in der Aktiven
Post by Stefan Onken
Reihe
Post by Werner
in Spalte "Info".
D.h. wenn ich meine Liste mit Videos überprüfe und
mir eine
Post by Stefan Onken
Filmbeschreibung
Post by Werner
oder Cover ansehen möchte gehe ich nur auf z.Bsp.
Zeile 156 in Spalte 8
Post by Stefan Onken
mit
Post by Werner
der Bezeichnung "Info" und klicke in der dortigen
Zelle entweder ein
Bild
Post by Stefan Onken
Post by Werner
oder einen text als Hyperlink an und das Bild öffnet
sich über den
Post by Stefan Onken
Post by Werner
Photoeditor. fertig...
Danke nochmal...
Greetings
Post by Stefan Onken
hallo Werner,
um an die nötigen VBA-Befehle zu kommen, nutze den
Makrorekorder. Den
Post by Stefan Onken
Code
Post by Werner
Post by Stefan Onken
kannst/mußt du dann anpassen.
ActiveSheet.Hyperlinks.Add
Anchor:=ActiveCell.Offset(0, 8), Address:=
_
Post by Stefan Onken
Post by Werner
Post by Stefan Onken
"C:\deineDatei.jpg"
Gruß
stefan
Post by Werner
Hallo Ihr Experten,
möchte hyperlink über UF (Button) eingeben. Also
im UF klick auf
Post by Stefan Onken
Button
Post by Werner
Post by Stefan Onken
Post by Werner
("Beschreibung") und Dialog "Datei öffnen"
Fenster wird aktiviert.
Post by Stefan Onken
Post by Werner
Post by Stefan Onken
Post by Werner
Ich wähle nun die gewünschte Datei (jpg -
Extension), gehe auf ok.
Post by Stefan Onken
Wenn
Post by Werner
Post by Stefan Onken
ich
Post by Werner
jetzt die Tabelle anschaue, soll ein Hyperlink
mit der Bezeichnung
Post by Stefan Onken
Post by Werner
Post by Stefan Onken
Post by Werner
"Beschreibung" in der aktuellen Zeile (z.Bsp.
Zeile 5, Spalte 8)
Post by Stefan Onken
stehen.
Post by Werner
Post by Stefan Onken
Post by Werner
Und das ganze bei jedem neuen Datensatz.
Ansatzweise dachte ich an
Post by Stefan Onken
Post by Werner
Post by Stefan Onken
Post by Werner
ActiveCell.Offset (0, 8) zur Ausgabe. Nur wie
ich daß mit dem
Post by Stefan Onken
Hyperlink
Post by Werner
Post by Stefan Onken
über
Post by Werner
den Button hinbekommen soll, ist mir mom ein
Rätsel...
Post by Stefan Onken
Post by Werner
Post by Stefan Onken
Post by Werner
Hintergrund ist eine Videoarchivierung, um bei
Durchsicht der Daten
Post by Stefan Onken
auch
Post by Werner
Post by Stefan Onken
Post by Werner
gleich auf Videocover und Beschreibung
zurückzugreifen.
Post by Stefan Onken
Post by Werner
Post by Stefan Onken
Post by Werner
Ich danke Euch für die Hilfe!
Grüße
Werner
.
Loading...