Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro zum verschieben von Datensätzen

Makro zum verschieben von Datensätzen
02.03.2022 16:51:37
Datensätzen
Hallo zusammen,
ich brauche nochmal ein wenig Unterstützung bei der VBA Code Erstellung.
Ich benötige für eine Tabelle in meinem Arbeitsblatt, die in verschiedenen Spalten gesperrt und geschützt ist, ein Makro, dass den Datensatz der aktuellen Zellposition im Ganzen (komplette Zeile der Tabelle) um eine Position nach oben, über den darüberstehenden Datensatz bewegt. Dabei soll keine Leerzeileentstehen und auch nichts überschrieben werden. Und analog dazu ein Makro, dass diesen Datensatz nach unten, unter den darunterstehenden Datensatz bewegt.
Das wäre für mich ähnlich, wie ich markiere eine komplette Zeile im Blatt, packe sie am fett markierten Rand, und ziehe sie dahin, wo ich sie brauche..
Den Blattschutz aufheben und wieder setzten bekomme ich soweit hin, nur für das Verschieben des Datensatzes konnte ich die Lösung noch nicht beim durchforsten der Foren finden...
Vielen Dank für Eure Zeit und Mühe :)
Grüße
Steve

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum verschieben von Datensätzen
02.03.2022 17:03:32
Datensätzen
Hallo
es sollte aber immer nur eine Zeile markiert sein

Sub hoch()
ActiveSheet.Unprotect "DeinPasswort"
With Selection.EntireRow
.Cut
Rows(.Row - 1).Insert Shift:=xlDown
End With
ActiveSheet.Protect "DeinPasswort"
End Sub
Sub runter()
ActiveSheet.Unprotect "DeinPasswort"
With Selection.EntireRow
.Cut
Rows(.Row + 2).Insert Shift:=xlDown
End With
ActiveSheet.Protect "DeinPasswort"
End Sub
LG UweD
AW: Makro zum verschieben von Datensätzen
02.03.2022 17:38:55
Datensätzen
Hallo Uwe,
vielen Dank für die superschnelle Antwort. Ich probiere das morgen früh gleich aus.
Viele Grüße
Steve
AW: Makro zum verschieben von Datensätzen
03.03.2022 09:36:16
Datensätzen
Guten Morgen,
der Code macht genau das, was er soll. Vielen Dank :)
Gruß
Steve
Anzeige
Danke für die Rückmeldung (owT)
03.03.2022 09:57:54
UweD

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige