Hyperlink über Userform
17.07.2003 21:55:35
Werner
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.
Folgenden Code verwende ich:
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub ok_Click()
Dim iCounter As Integer
Dim sTag As String
Rows(1).Clear
For iCounter = 1 To 3
sTag = Controls("CommandButton" & iCounter).Tag
Cells(1, iCounter).Value = Controls("TextBox" & iCounter).Text ' hier gibts probleme
If sTag <> "False" And sTag <> "" Then
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(1, iCounter), _
Address:=sTag
End If
Next iCounter
Unload Me
End Sub
Private Sub cmdbild_Click()
cmdbild.Tag = SelectPicture
End Sub
Private Function SelectPicture()
Dim var As Variant
var = Application.GetOpenFilename("Bild-Dateien (*.jpg), *.jpg")
If var = False Then
SelectPicture = "False"
Else
SelectPicture = var
End If
End Function
Den Code habe ich vom Forum oder einer newsgroup, weis schon gar nich mehr wo mir der kopf steht, der raucht schon den ganzen tach...
... Anfänger halt :-)
Ich danke Euch für die Hilfe!
Grüße
Werner
Anzeige