Hyperlink wird nicht Eingefügt
21.05.2021 04:34:23
oraculix
Ich suche in einer Tabelle mit Hyperlinks und die Treffer werden dann in einer anderen Tabelle gelistet.
Leider werden die Hyperlinks nach der Suchanfrage nicht Kopiert sondern nur der Text
Frage: Was muss ich in dem Makro ändern damit auch die Hyperlinks Kopiert werden?
Public Sub AnsehenFindenUndKopieren2(Optional ByVal sWord As String)
Dim Zellen As Range
Application.ScreenUpdating = False
Call GefundenDBLÖSCHEN 'löscht die vorherige suche
ActiveSheet.Range("A2:B500").Interior.ColorIndex = 1
If sWord = vbNullString Then sWord = InputBox(Prompt:="Suchbegriff:", Default:="Filmname")
If sWord vbNullString Then
With Sheets("FilmeAnsehen").UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1Local = "=Wenn(IstZahl(Suchen(""" & sWord & """;ZS1&ZS2&ZS8));1;"""")"
If WorksheetFunction.Sum(.Cells) > 0 Then Set Zellen = .SpecialCells(xlCellTypeFormulas, 1)
.ClearContents
End With
End With
If Zellen Is Nothing Then
MsgBox "Nichts gefunden", vbInformation, "Information"
Else
Zellen.EntireRow.Copy
Sheets("Gefunden").Cells(2, 1).PasteSpecial xlPasteValues
Sheets("Gefunden").Select
End If
End If
Range("A1").Activate
Application.ScreenUpdating = True
End Sub
Anzeige
