Auto Fill Down
12.06.2007 10:52:27
pbm
möchte eine bestimmte Range (Formeln) nach unten auffüllen, bis das Ende der Tabelle erreicht ist.
Bis dato habe ich folgendes, nur leider werden 2 Zeilen zu viel angefügt.
Sub zellen_auffuellen()
Dim i As Integer
Application.ScreenUpdating = False
ActiveCell.Offset(1, 0).Select 'Auswahl der Startzelle
Range(Selection, Selection.End(xlToRight)).Copy 'Kopieren bis Ende Zeile, Befehl Copy'
'Die Schleife guckt in alle Zellen in Spalte B einmal hinein, bis zur letzten beschriebenen.
'Wenn in der jeweiligen Zelle was steht, wird der kopierte Bereich ab DV eingefügt.
For i = 1 To Sheets("data").Range("B65536").End(xlUp).Row
If Not (Sheets("data").Cells(i, 2) = "") Then
ActiveCell.Offset(1, 0).PasteSpecial
End If
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
Call pivot
End Sub