Microsoft Excel

Herbers Excel/VBA-Archiv

Hyperlinks kopieren

Betrifft: Hyperlinks kopieren von: harti
Geschrieben am: 13.10.2020 10:55:13

Hallo Excel-Gemeinde,

in einer von mir zu bearbeitenden Datei habe ich ein kleines Problem mit Hyperlinks.

In der angefügten Datei wird mittels Makros im Blatt aktuell alles gelöscht und im Blatt archiv
angefügt. Das funktioniert alles perfekt. Nur die in den Spalten K und L eingetragenen Hyperlinks sind anschließend im Blatt Archiv nicht mehr aufrufbar...das Dokument ist da nicht mehr verlinkt.

Wie müsste ich das Makro abändern damit nach dem "Umkopieren" die Links immer noch aufrufbar bleiben?

Public Sub Archivierung()
Dim loLetzteQuelle As Long, loLetzteZiel As Long

Application.ScreenUpdating = False

With Worksheets("aktuell")
    loLetzteQuelle = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range(.Cells(11, "A"), .Cells(loLetzteQuelle, "M")).Copy
    With Worksheets("archiv")
        loLetzteZiel = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row
        If loLetzteZiel < 11 Then loLetzteZiel = 11
        .Cells(loLetzteZiel, "A").PasteSpecial Paste:=xlPasteValues
        .Cells(loLetzteZiel, "A").PasteSpecial Paste:=xlPasteFormats
        .Activate
        .Range("A11").Select
    End With
    .Range(.Cells(11, "A"), .Cells(loLetzteQuelle, "M")).ClearContents
    .Activate
    .Range("A11").Select
End With

Application.CutCopyMode = False
End Sub

https://www.herber.de/bbs/user/140851.xlsm

Wahrscheinlich ist es nur eine winzige Änderung am Makro...
Danke schon einmal für jede Hilfe.
tobi

Betrifft: AW: Hyperlinks kopieren
von: Nepumuk
Geschrieben am: 13.10.2020 11:03:36

Hallo tobi,

klar, wenn du nur Werte und Formate einfügst sind die Hyperlinks tot.

Ersetze diese Zeilen:
        .Cells(loLetzteZiel, "A").PasteSpecial Paste:=xlPasteValues
        .Cells(loLetzteZiel, "A").PasteSpecial Paste:=xlPasteFormats
damit:
.Paste Destination:=.Cells(loLetzteZiel, "A")

Gruß
Nepumuk

Betrifft: AW: Hyperlinks kopieren
von: harti
Geschrieben am: 13.10.2020 11:29:25

Hallo Nepumuk,

vielen Dank. Klappt :-)

Das mit dem .Paste Destination:=. hätte ich nicht gewusst.