VBA / Zeile verschieben mit Hyperlink
05.08.2022 17:13:09
Steve
ich habe ein kleines Problem, welches ich mit meinen VBA Kenntnissen noch nicht selbst lösen kann:
Ich möchte eine komplette Zeile eine Zeile nach oben verschieben (Zeile darüber befindet sich danach unter der verschobenen Zeile) mit folgendem Makro:
Private Sub Hoch_Click()
If Not Intersect(Selection, Range("B19:S2500")) Is Nothing Then
ActiveSheet.Unprotect "***"
With Selection.EntireRow
.Cut
Rows(.Row - 1).Insert Shift:=xlDown
End With
ActiveSheet.Protect Password:="***", AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, userinterfaceonly:=True
Else
MsgBox "Aktive Zelle befindet sich nicht in der Tabelle"
End If
End Sub
Private Sub Runter_Click()
If Not Intersect(Selection, Range("B18:S2500")) Is Nothing Then
ActiveSheet.Unprotect "***"
With Selection.EntireRow
.Cut
Rows(.Row + 2).Insert Shift:=xlDown
End With
ActiveSheet.Protect Password:="***", AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, userinterfaceonly:=True
Else
MsgBox "Aktive Zelle befindet sich nicht in der Tabelle"
End If
End Sub
Nun zu meinem Problem: In Spalte C befinden sich, jedoch nur teilweise, Hyperlinks. Der Text der Hyperlinks entspricht nicht dem Link selbst. Nun wird beim ausschneiden und einfügen der "angezeigte Text" ausgeschnitten und verschoben und nicht wie gewünscht der Hyperlink. Nach dem verschieben ist dieser unbrauchbar. Wie kann ich das am besten lösen?
Vielen Dank schon mal für Eure Mühe.:)
Viele Grüße
Steve
Anzeige