Markierten Bereich verschieben - per VBA

Forumthread: Markierten Bereich verschieben - per VBA
9 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Markierten Bereich verschieben - per VBA

23.12.2025 17:06:25

Lutz

Hallo,
ich möchte per VBA einen markierten Bereich nach Spalte A verschieben ohne dass Daten, Formeln oder Formatierungen mitgenommen werden.
Von z.B. D5:D10 nach A5:A10
Von z.B. F7:H9 nach A7:A9 (nicht A7:C9)

Für einen Code bedanke ich mich.

Gruß Lutz

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Markierten Bereich verschieben - per VBA

23.12.2025 17:31:56

Yal
AW: Markierten Bereich verschieben - per VBA

23.12.2025 18:06:15

Onur
AW: Markierten Bereich verschieben - per VBA

23.12.2025 18:36:59

Lutz
AW: Markierten Bereich verschieben - per VBA

23.12.2025 18:15:21

Onur
AW: Markierten Bereich verschieben - per VBA

23.12.2025 19:11:44

Daniel
jo, eine qualitative steigerung, nicht bloß eindampfen owt

23.12.2025 19:17:38

emkaes
AW: Markierten Bereich verschieben - per VBA

23.12.2025 17:38:52

Lutz
ein Schuss ins Blaue

23.12.2025 17:55:43

emkaes
AW: Markierten Bereich verschieben - per VBA

23.12.2025 20:39:00

GerdL

AW: Markierten Bereich verschieben - per VBA

23.12.2025 17:31:56

Yal

Hallo Lutz,

???
was muss dann überhaupt noch verschoben werden, wenn weder Daten, Formeln noch Formatierung mitverschoben werden sollen?

VG
Yal

AW: Markierten Bereich verschieben - per VBA

23.12.2025 18:06:15

Onur

Range(Cells(Selection.Row, 1), Cells(Selection.Row + Selection.Rows.Count - 1, 1)).Select

AW: Markierten Bereich verschieben - per VBA

23.12.2025 18:36:59

Lutz

Danke!

AW: Markierten Bereich verschieben - per VBA

23.12.2025 18:15:21

Onur

Oder so:

    With Selection

        Range("A" & .Row & ":A" & .Row + .Rows.Count - 1).Select

    End With

AW: Markierten Bereich verschieben - per VBA

23.12.2025 19:11:44

Daniel

Intersect(Columns(1), Selection.EntireRow).Select

Das sollte sogar dann funktionieren, wenn der markierte Bereich aus mehreren, nicht zusammenhängenden Teilbereichen besteht.

Gruß Daniel

jo, eine qualitative steigerung, nicht bloß eindampfen owt

23.12.2025 19:17:38

emkaes

AW: Markierten Bereich verschieben - per VBA

23.12.2025 17:38:52

Lutz

Nur die Markierung soll nach Spalte A "springen".

ein Schuss ins Blaue

23.12.2025 17:55:43

emkaes

Hi,

meinst du das so???

Sub moveSelection()

 Dim startzeile&, anzZeilen&

 

 startzeile = Selection.Cells(1).Row

 anzZeilen = Selection.Rows.Count

 

 Cells(startzeile, 1).Resize(anzZeilen).Select

 

 End Sub

und wenn nicht, dann mußt du noch etwas erzählen, wie die Unterscheidung der Markierungen im Code zu berücksichtigen ist

emkaes

AW: Markierten Bereich verschieben - per VBA

23.12.2025 20:39:00

GerdL

Moin,

es geht noch: