Habe unteres Makro das mir meine Mappe nach Werte durchsucht,für meine MP3 Sammlung
HTML 3.0 Download
In allen Sheets in D:D steht ein Hyperlink der MP3.
Nur beim Suchmakro wird der Hyperlink in Spalte D als Wert angezeigt.
Könnte man nicht diesen auch als Hyperlink anzeigen ?
Gruß Heinz
Suche | |||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||
Option Explicit
Private Sub SuchenButton_Click() Const z1 = 3 'erste Suchzeile Dim shK As Worksheet Dim z As Long, z0 As Long, i As Long, lz As Long Dim blatt As Integer Dim L As Hyperlink Dim Interpret As String, Jahr As String, Titel As String, Hyperlink As String z0 = 7 'erste Ausgabezeile in "Suche" Me.Rows(z0 & ":" & Rows.Count).ClearContents Columns("E:F").Hidden = True 'ab Blatt 2 bis zum letzten (1 ist wohl das Suchblatt) For blatt = 2 To ThisWorkbook.Sheets.Count Set shK = Sheets(blatt) With shK z = z1 lz = .Cells(Rows.Count, 1).End(xlUp).Row Do 'Datensatz ermitteln: On Error Resume Next Interpret = .Cells(z, 1) If Err.Number > 0 Then MsgBox "Fehler in Blatt " & .Name & ", Zeile" & z Exit Sub End If On Error GoTo 0 Titel = .Cells(z, 2) Jahr = .Cells(z, 3) Hyperlink = .Cells(z, 4) Do z = z + 1 Loop Until .Cells(z, 1) "" Or z > lz 'Filter: If (InStr(UCase(Interpret), UCase(Range("Suchtext"))) + InStr(UCase(Titel), UCase(Range(" _ Suchtext")))) > 0 Then Cells(z0, 1) = Interpret Cells(z0, 2) = Titel Cells(z0, 3) = Jahr Cells(z0, 4) = Hyperlink z0 = z0 + 1 End If Loop Until z > lz End With Next blatt End Sub