Hyperlink ändern und wieder speichern
28.12.2018 13:53:49
Richard
ich bitte Euch noch einmal um Hilfe mit einer zusätzlichen Erklärung.
ich rufe einen gespeicherten Datensatz mit einer suche in einer UF mit Lst auf und lasse diese Daten in Textboxen zum bearbeiten einlesen.Unter anderem ist auch ein Hyperlink enthalten.
Der code für den geänderten Hyperlink ist folgender:
Private Sub cmd_suchen_jpg_Click()
Dim r As Variant
r = Application.GetOpenFilename("Bilder / Fotos (*.jpg), *.jpg")
If r False Then
txt_Bildpfad.Text = CStr(r)
End If
End Sub
Ich habe aber nur den Code für eine neue Zeile:
Private Sub cmd_uebernehmen_Click()
Dim neueZeile As Long
neueZeile = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1
'letzteZeile = ActiveCell.Row
With Sheets("Tabelle1")
.Cells(neueZeile, 1) = cbo_Gerätename.Text
If Len(txt_Bildpfad.Text) > 0 Then
With Worksheets("Tabelle1")
.Cells(neueZeile, 10).Hyperlinks.Delete
.Hyperlinks.Add Anchor:=.Cells(neueZeile, 10), Address:="file:///" & txt_Bildpfad.Text, _
TextToDisplay:=StrReverse(Split(StrReverse(txt_Bildpfad.Text), "\")(0))
End With
End If
End With
'und Maske schließen
Unload Me
End Sub
Verständnisfrage: Wenn in der LstBox ein Datensatz markiert ist und ich die Daten auslesen lasse ist diese Zeile immer aktiv oder muss man die immer zuerst ansprechen?
Vielen Dank schon einmal im voraus