ich erbitte Eure Unterstützung bei folger Aufgabe. Ich möchte eine kleine Röntgenbildverwaltung anlegen. Erste Spalte Name, 2. Spalte Geb.Dat. 3. Spalte Aktenzeichen, 4. - 8. Hyperlinks auf die Röntgenbilder.
Nun möchte ich, dass bei Doppelklick in den Spalten 4 - 8 das Fenster erscheint, wie bei Hyperlink, Datei, und dann Dateityp - alle anzeigen. So das hier die entsprechende Datei ausgewählt werden kann und dieser dann in die aktuelle Zelle übernommen wird. Damit hier nicht der ganze Hyperlinkpfad angezeigt wird, wandle ich den angezeigten Pfad um in eine 5, formatiert in ein Windings2 Kästchen.
Was ich eben nicht hinbekomme ist dieser Hyperlin-Kasten.
Folgenden Code habe ich mir bis jetzt zusammengestrickt:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim aktzeile, aktspalte
If ActiveCell.Hyperlinks.Count > 0 Then 'Abfrage, ob Hyperlink vorhanden
Exit Sub
Else:
Hier müsste die Abrage rein
Target.Cells = "5"
With Selection.Font
.Name = "Wingdings 2"
.Size = 16
.ColorIndex = 10
.Bold = True
End With
End If
Cancel = True
End Sub
Vielen Dank für Eure Hilfe.
Gruß Stefan