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"