Hallo Leute
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

A B C D 6 Interpret Titel Jahr Hyperlink 7 Ike & Tina Turner Nutbush City Limits 1973 IKE & TINA TURNER - NUTBUSH CITY LIMITS 8 Bachman Turner Overdrive You Ain´t Seen Nothin´ Yet 1974 BACHMAN TURNER OVERDRIVE - AIN'T SEEN NOTHIN YET 9 Ike & Tina Turner Nutbush City Limits 1974 IKE & TINA TURNER - NUTBUSH CITY LIMITS 10 Bachman-Turner Overdrive Ain't Seen Nothing Yet 1975 BACHMAN TURNER OVERDRIVE - AIN'T SEEN NOTHIN YET 11 Bachman Turner Overdrive Hey You 1975 BACHMAN TURNER OVERDRIVE - HEY YOU

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
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