Zellen verschieben per VBA

Bild

Betrifft: Zellen verschieben per VBA von: Hans
Geschrieben am: 16.02.2005 13:55:58

Hi Excelforum,

habe folgendes Makro erstellt um die Zellen nach unten zu verschieben.

Sub verschieben()
    Range("B:L").Select
    ActiveCell.EntireRow.Insert Shift:=xlDown
End Sub


Funktioniert auch soweit ausser das er immer von der ersten Zelle an den Abschnitt nach unten verschiebt und nicht von der Aktiven Zelle aus.
Hoffe ihr könnt mir rat geben

Gruß Hans
Bild


Betrifft: AW: Zellen verschieben per VBA von: harry
Geschrieben am: 16.02.2005 14:31:58

hi,
Range("B:L").Select markiert die kompletten SPALTEN.
ActiveCell.EntireRow.Insert Shift:=xlDown fügt eine ZEILE ein.

irgendetwas stimmt da nicht. was soll eigentlich geschehen?

liebe grüße,
harry


Bild


Betrifft: AW: Zellen verschieben per VBA von: Hans
Geschrieben am: 16.02.2005 15:16:27

Hi, ich wollte in dem bereich B bis L die zeilen nach unten verschieben. In dem Bereic wo die Aktive Zelle ist. Dann soll sich die Zelle A nicht nach unter verschieben.

Gruß Hans


Bild


Betrifft: AW: Zellen verschieben per VBA von: harry
Geschrieben am: 16.02.2005 15:34:47

dann musst du die ZEILE markieren, nicht die ganzen spalten. z.b.
Range("B1:L1").Insert Shift:=xlDown

liebe grüße,
harry


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen verschieben per VBA"