ich habe eine recht umfangreiche Tabelle (27 Spalten und an die 1000 Zeilen).
Über ein Makro mit Advanced Filter verteile ich die Daten anhand eines Suchkriteriums, was sich in Spalte A befindet in unterschiedliche andere Tabellenblätter.
In Spalte L habe ich allerdings Hyperlinks, die dann in der jeweiligen zieltabelle als Text auftauchen.
Da ich leider nur geringe VBA Kenntnisse habe, habe ich es trotz der guten Tips nicht geschafft mein VBA-Makro so anzupassen, dass die Hyperlinks auch als Hyperlinks kopiert werden.
Wäre toll wenn mir jemand helfen kann!
Der Code den ich verwende lautet: (den habe ich natürlich auch nicht selber geschrieben)
Sub tabellen_aktualisieren()
Sub tabellen_aktualisieren()
Dim loLetzte As Long
Dim loLetzteF As Long
Dim loLetzteQ As Long
Dim wksF As Worksheet
Dim wksQ As Worksheet
Set wksF = Worksheets("Filter")
Set wksQ = Worksheets("gesamt")
Application.ScreenUpdating = False
With ActiveSheet
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("A3:AI" & loLetzte).ClearContents
End With
With wksF
wksQ.Range("A2:AI2").Copy .Cells(4, 1)
loLetzteF = .Cells(.Rows.Count, 1).End(xlUp).Row
If loLetzteF