Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auto Fill Down

Forumthread: Auto Fill Down

Auto Fill Down
12.06.2007 10:52:27
pbm
Hallo,
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


Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auto Fill Down
12.06.2007 11:57:00
pbm
Keiner eine Idee?
Verwende auch gerne einen andere Code.
phil

AW: Auto Fill Down
13.06.2007 19:23:00
Thorsten_Z
Hallo Phil,

Sub Formel()
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("F2").Formula = "=DeineFormel"
Range("F2:F" & iRow).FillDown
End Sub


Fügt die Formel ab F2 ein. Habe ich auch hier aus dem Forum.
Rückmeldung wäre nett
Gruß
Thorsten

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige