title image


Smiley Re: Jede 8. Zelle verschieben
Hi,versuch mal folgendes Makro.Zunächst wird die aktuelle Spalte ermittelt. Anschließend wird die letzte Zeile dieser Spalte ermittelt.Du brauchst Dich also nur in die jeweile Spalte positionieren, die die Werte beinhaltet. anschl. startest Du das Makro.Sub Versatz()A = ActiveCell.Column 'AktiveSpalteCells(1, A).SelectL = ActiveSheet.Cells(Rows.Count, A).End(xlUp).Row 'Letzte Zeile der SpalteActiveCell.Offset(7, 0).SelectWhile ActiveCell.Row - 1 AZeil = ActiveCell.Row ASpal = ActiveCell.Column Application.CutCopyMode = False Selection.Cut Destination:=Cells(AZeil, ASpal + 1) ActiveCell.Offset(8, 0).SelectWendEnd SubGrußRalf

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: