ich würde gerne Eure Unterstüzung in Anspruch nehmen.
in der 1. UF wird der Hyperlink so abgelegt
Private Sub cmd_Bildsuchen_Click()
Dim r As Variant
r = Application.GetOpenFilename("Bilder / Fotos (*.jpg), *.jpg")
If r False Then
txt_Bildjpg.Text = CStr(r)
End If
End Sub
Private Sub cmd_Bildreihe_Click()
''ausgesuchten Ordnernamen in Textfeld schreiben
Dim strPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "D:\Test\Bilder\"
.Title = "Ordner auswählen"
If .Show Then strPath = .SelectedItems(1)
End With
If strPath vbNullString Then
MsgBox strPath
txt_Bildreihe.Value = strPath
End If
End Sub
Private Sub CommandButton2_Click()
'Daten speichern neuer Datensatz
Dim letzteZeile As Integer
Range("A65365").End(xlUp).Select
letzteZeile = ActiveCell.Row + 1
ThisWorkbook.Sheets("Tabelle1").Cells(letzteZeile, 1) = Vorgabe.Value
ThisWorkbook.Sheets("Tabelle1").Cells(letzteZeile, 2) = Namen.Value
ThisWorkbook.Sheets("Tabelle1").Cells(letzteZeile, 6) = cmbemail.Value
If Len(txt_Bildjpg.Text) > 0 Then
ActiveCell.Offset(1, 3).FormulaLocal = "=HYPERLINK(" & _
Chr(34) & "file:///" & txt_Bildjpg.Text & Chr(34) & ";" & _
Chr(34) & StrReverse(Split(StrReverse(txt_Bildjpg.Text), "\")(0)) & Chr(34) & ")"
If Len(txt_Bildreihe.Text) > 0 Then
ActiveCell.Offset(1, 4).FormulaLocal = "=HYPERLINK(" & _
Chr(34) & "file:///" & txt_Bildreihe.Text & Chr(34) & ";" & _
Chr(34) & StrReverse(Split(StrReverse(txt_Bildreihe.Text), "\")(0)) & Chr(34) & ")"
End If
End If
UserForm1.Hide
Unload UserForm1
End Sub
in der 2. UF möchte ich diese gerne auslesen und AnzeigenPrivate Sub cmdJPG_Click()
'Link in JPG-Spalte öffnen
Dim Zeile As Long
Dim Zelle As Range
Dim jpgFile As String
With Me.ListBox1
If .ListIndex -2 Then
Zeile = .List(.ListIndex, .ColumnCount - 1)
Set Zelle = wksData.Cells(Zeile, 4) 'Zelle mit JPG-Hyperlink
jpgFile = Zelle.Hyperlinks(1).Address
' ShellExecute 0, "open", jpgFile, "", "", 0 '0 = Parameter zur Anzeige
ActiveWorkbook.FollowHyperlink jpgFile
End If
End With
End Sub
Private Sub ListBox1_Click()
'Prüfen ob zum Gerät Hyperlinks vorhanden sind und entsprechende Schaltfläche(n) aktivieren
Dim Zeile As Long
Dim Zelle As Range
Me.cmdPDF.Enabled = False
Me.cmdJPG.Enabled = False
Me.cmdWORD.Enabled = False
Me.cmdPP.Enabled = False
Me.cmdJPGREIHE.Enabled = False
Me.txbPDF = ""
Me.txbJPG = ""
Me.txbWORD = ""
Me.txbPP = ""
Me.txbJPGREIHE = ""
With Me.ListBox1
If .ListIndex -1 Then
Zeile = .List(.ListIndex, .ColumnCount - 1)
' Set Zelle = wksData.Cells(Zeile, 5) 'Zelle mit PDF-Hyperlink
' If Zelle.Hyperlinks.Count > 0 Then
' Me.cmdPDF.Enabled = True
' Me.txbPDF = Zelle.Hyperlinks(1).Address
' End If
Set Zelle = wksData.Cells(Zeile, 4) 'Zelle mit JPG-Hyperlink
If Zelle.Hyperlinks.Count > 0 Then
Me.cmdJPG.Enabled = True
Me.txbJPG = Zelle.Hyperlinks(1).Address
End If
' Set Zelle = wksData.Cells(Zeile, 11) 'Zelle mit Word-Hyperlink
' If Zelle.Hyperlinks.Count > 0 Then
' Me.cmdWORD.Enabled = True
' Me.txbWORD = Zelle.Hyperlinks(1).Address
' End If
' Set Zelle = wksData.Cells(Zeile, 12) 'Zelle mit PP-Hyperlink
' If Zelle.Hyperlinks.Count > 0 Then
' Me.cmdPP.Enabled = True
' Me.txbPP = Zelle.Hyperlinks(1).Address
' End If
Set Zelle = wksData.Cells(Zeile, 5) 'Zelle mit JPGREIHE-Hyperlink
If Zelle.Hyperlinks.Count > 0 Then
Me.cmdJPGREIHE.Enabled = True
Me.txbJPGREIHE = Zelle.Hyperlinks(1).Address
End If
End If
End With
End Sub
Es wird mir in der 2. UF der File in der Listbox angezeigt aber in den Textfeldern nicht und somit kann ich keine Bilder usw ansehen.Im Voraus schon mal vielen Dank für die Hilfe.
könnte auch wenn nötig eine Musterdatei erstellen.
Gru? Richard