Ich möchte gerne mit einem Button suchen folgendes erreichen. Es soll in einem Textfeld nur der Ordnername abgespeichert werden.
in diesem Ordner befinden sich ca. 3-5 jpg Bilder diese sollen später über einen klick in einem Listenfeld aufgerufen werden.
mein bisheriges Makro schaut so aus
Private Sub cmd_suchen_Bildreihe_Click()
Dim r As Variant
r = Application.GetOpenFilename("Bilder / Fotos (*.jpg), *.jpg")
If r False Then
txt_Bildreihe.Text = CStr(r)
End If
End Sub
bzw
If Len(txt_Bildpfad.Text) > 0 Then
ActiveCell.Offset(0, 8).FormulaLocal = "=HYPERLINK(" & _
Chr(34) & "file:///" & txt_Bildpfad.Text & Chr(34) & ";" & _
Chr(34) & StrReverse(Split(StrReverse(txt_Bildpfad.Text), "\")(0)) & Chr(34) & ")"
End If
hier wird mir aber immer der komplette Pfad abgelegt.
es wäre nett wenn mir jemand eine Erklärung abgeben könnte
Vielen Dank im voraus