Spezialfilter (VBA) mit Hyperlink anwenden
balesi
habe aus einem älteren Beitrag in diesem Forum einen Spezialfilter in VBA angewendet und angepasst, der mir Daten auf ein anderes Tabellenblatt filtert. Das klappt auch.
Jedoch werden keine Hyperlinks mit auf das Tabellenblatt übertragen sondern lediglich die Formatierung (blau/unterstrichen) bleibt erhalten. Gibt es eine Möglichkeit, die Hyperlinks mit auf das andere tabellenblatt zu übertragen?
Hier der VBA - Code, der bei mir Anwendung findet:
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "QMF-Gesamt" Then Exit Sub
ActiveSheet.Unprotect Password:="&Password"
Application.ScreenUpdating = False
Sheets("QMF-Gesamt").Range("A2:G70").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sh.Range("A2:G3"), _
CopyToRange:=Sh.Range("A5:G5")
Sh.Rows("2:4").Select
Selection.EntireRow.Hidden = True
Application.ScreenUpdating = True
Range("A6").Select
ActiveSheet.Protect Password:="&Password"
End Sub
Anzeige