Re: in einer Spalte Zellen ein
08.05.2003 11:21:23
Dirk
Auch auf die Gefahr hin, dass es peinlich wird hier mein Code:Sub Zellen_einfügen()
Range("E9").Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).Select
Do Until IsEmpty(Selection)
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).Select
Loop
Range("f8").Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).Select
Do Until IsEmpty(Selection)
Selection.Insert Shift:=xlDown
ActiveCell.Offset(2, 0).Select
Loop
End Sub
Verständlicherweise dauert das bei 300 Zellen ziemlich lange. Der Code hat aber den Vorteil, dass nur in dem Bereich Zellen eingefügt werden, die auch tatsächlich belegt sind. Die Zahl der belegten Zellen steht aber auch nochmal in der Tabelle