Hyperlink mit kopieren
13.10.2021 15:09:47
Eisi
hier komme ich nicht weiter. Alles funktioniert nur die Hyperlinks werden nicht kopiert und als Hyperlink nicht wieder eingefügt.
Im Zellbereich (Name: Schluss_kurz) sollen 3 Hyperlinks aus 3 verschiedenen Zellen mit in das andere Blatt übertragen werden.
Mit xlPasteAll funktioniert es zwar, aber dann fehlt mit das Datum und die Werte aus den Zellen, die mit Formeln hinterlegt sind.
Vielen Dank für die Unterstützung.
VG Eisi :-)
'_________________________________________________________
Sub Schlusstext_kurz_holen()
Dim lastrow As Long
Range("Schluss_kurz").Copy ' Kopiere den Bereich, den ich mit Formelnamen festgelegt habe
'Letzte Zelle in Spalte 2 (B) suchen und den kopierten Bereich 2 Zellen darunter einfügen
With tbl_2_Positionen
lastrow = .Cells(.Rows.Count, 2).End(xlUp).Row + 2 'Letzte Zelle in Spalte 2 (B) finden + 2 Zeilen darunter einfügen
.Cells(lastrow, 2).PasteSpecial Paste:=xlValues 'Fügt die kopierten Werte ein.
.Cells(lastrow, 2).PasteSpecial Paste:=xlPasteFormats 'Überträgt die Formatierung.
' PROBLEM ?
'Hyperlink wird übertragen, aber ohne Werte aus den Zellen mit Formeln. Auch das Datum aus der kopierten Zelle fehlt
.Cells(lastrow, 2).PasteSpecial Paste:=xlPasteAll
' .Cells(lastrow, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End With
Application.CutCopyMode = False
End Sub