VBA / Zeile verschieben mit Hyperlink
08.08.2022 15:36:11
Steve
ich versuche es einfach nochmal, evtl. ist meine Anfrage bereits zu weit runter gerutscht (?)..
ich habe ein kleines Problem, welches ich mit meinen VBA Kenntnissen noch nicht selbst lösen kann:
Ich möchte eine komplette Zeile einer Tabelle 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
Funktioniert soweit wie es soll.
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?
Ich habe hierzu auch eine kleine Beispieldatei erstellt, die im wesentlichen meine betroffenen Tabellenblätter wiederspiegelt:
https://www.herber.de/bbs/user/154551.xlsx
Kopieren anstatt Ausschneiden der gesamten Zeile funktioniert hier anscheinend nicht weil sich die Zeile in einer Tabelle befindet, ich bekomme dann einen Laufzeitfehler 1004: "Das wird nicht funktionieren, weil dadurch Zellen in einer Tabelle in Ihrem Arbeitsblatt verschoben würden." Das ist allerdings genau das, was getan werden soll, Zellen in meiner Tabelle verschieben, bzw. ganze Zeilen.
Ich komme hier überhaupt nicht weiter gerade.
Vielen Dank schon mal für Eure Mühe.:)
Viele Grüße
Steve