Hyperlinks kopieren mit Advanced Filter

Hallo,
ich habe ein Tabelle, die ich über eine Advanced Filter Routine in ein anderes Tabellenblatt innerhalb der gleichen Excel Datei filtere. Als VBA Laie habe ich mir die benötigten Makros aus diversen Foren zusammenkopiert und meine Tabellen "drum herum" gebaut. Funktioniert einwandfrei und ich bin happy...
...ausser dass beim Filtern/Kopieren die Hyperlinks auf der Strecke bleiben:
in der Ursprungstabelle (ca. 300 Zeilen) steht in einer Spalte das Wort "Link!" und auf dem Wort liegt jeweils ein Hyperlink auf eine Internet-Seite, die auch prima aufgeht, wenn ich auf "Link!" klicke. (also 300 verschiedene Links)
dieses "Klick-auf-"Link!"-und-Seite-geht-auf-Feature" hätte ich natürlich auch gerne in der gefiltert/kopierten Tabelle. Dort tauch nach erfolgreichem Filter-kopieren aber nur das (blau unterstrichene) Wort "Link!" auf, die Hyperlink-Info existiert nicht mehr
im Makro steht die Filter-Routine folgendermaßen:
...
Range("DataStart").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=.Range(.Range("DataCrit").Row & ":" & lngRows), _
CopyToRange:=.Range("DataGoal"), _
Unique:=False
...
kann mir jemand diese Routine so aufpeppen, dass auch die Hyperlink-Info mit übertragen wird, oder hat eine von Euch ne Idee, wie ich das anders schaffe? (so dass ich es auch mit Bordmitteln hinbekomme)
Vielen Dank schon mal für Eure Anregungen!
Gruss
Oliver

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Oliver,
mit den Einsellungen des Spezialfilters ist da meines Wissens nichts zu machen.
Da müssten ggf. in einem 2. Durchlauf die gefilterten Datenzeilen im Gesamtbestand gesucht werden und dann die Zellen mit den Links kopiert werden.
Das geht relativ einfach, wenn in beiden Listen (Gesamt und gefiltert) in einer Spalte ein eindeutiger Eintrag (Schlüsselfeld) ist, der jede Zeile eindeutig kennzeichnet. Es ist etwas komplizierter, wenn die eindeutige Identifizierung der Zeile nur durch Kombination mehrerer Spalten möglich ist.
Gruß
Franz
Hier ein Beispiel, das du an deine Tabelle(n) anpassen muss, falls eindeutiger Schlüssel vorhanden.


Sub HyperlinksKopieren()
Dim wksGesamt As Worksheet, wksGefiltert As Worksheet
Dim ZeileGesamt As Long, ZeileFilter As Long, Zelle
Dim SpSchluessel_G As Long, SpLinkGesamt As Long, varSchluessel
Dim SpSchluessel_F As Long, SpLinkFilter As Long
Set wksGesamt = Worksheets("Tabelle1") 'Tabellenblatt mit Gesamtliste
Set wksGefiltert = Worksheets("Tabelle2") 'Tabellenblatt mit Filterliste
SpSchluessel_G = 1  'Spalte mit Schlüssel in Gesamtliste
SpLinkGesamt = 6        'Spalte mit Link in Gesamtliste
SpSchluessel_F = 1  'Spalte mit Schlüssel in gefilterter Liste
SpLinkFilter = 6        'Spalte mit Link in gefilterter Liste
With wksGefiltert
For ZeileFilter = 2 To .Cells(.Rows.Count, SpSchluessel_F).End(xlUp).Row
varSchluessel = .Cells(ZeileFilter, SpSchluessel_F).Value
'Schlüssel in Gesamtliste suchen
With wksGesamt
'Letzte Zeile der Gesamtliste
ZeileGesamt = .Cells(.Rows.Count, SpSchluessel_G).End(xlUp).Row
'Schluessel suchen
Set Zelle = .Range(.Cells(2, SpSchluessel_G), .Cells(ZeileGesamt, SpSchluessel_G)) _
.Find(what:=varSchluessel, LookIn:=xlValues, lookat:=xlWhole)
If Zelle Is Nothing Then
MsgBox "Schlüssel """ & varSchluessel & """ nicht gefunden!"
Else
'Zelle mit Link kopieren
.Cells(Zelle.Row, SpLinkGesamt).Copy _
Destination:=wksGefiltert.Cells(ZeileFilter, SpSchluessel_F)
End If
End With
Next
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Hyperlinks kopieren mit Advanced Filter

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hyperlinks kopieren mit Advanced Filter

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread