Formel herunterziehen mit VBA

Bild

Betrifft: Formel herunterziehen mit VBA
von: team11team
Geschrieben am: 21.07.2015 09:15:52

Liebes Forum,
ich habe eine Kopierfrage an euch.
Ich würde gerne einzelne Zellen (B8,f8,h8,j8) die Formeln enthalten mit VBA herunterziehen (AutoFill?). Ich hab mir das über den Makrorecorder, für einzelne Zellen schon angeschaut, konnte mir das aber leider nicht so umwandeln das es funktioniert.

Sub Makro1()
'
' Makro1 Makro
    Range("F8").Select
    Selection.AutoFill Destination:=Range("F8:F12"), Type:=xlFillDefault
    Range("F8:F12").Select
End Sub

Des Weiteren soll bloß soweit herunter gezogen werden wie auch Daten in der Zelle C stehen oder alternativ wie viele Tabellenblätter es insgesamt gibt.
Das ist bestimmt nicht so schwer und ich sitz grad bloß wieder auf dem Schlauch.
Danke schon mal für eure Hilfe.
Hans

Bild

Betrifft: AW: Formel herunterziehen mit VBA
von: hary
Geschrieben am: 21.07.2015 09:35:19
Moin
Eine Moeglichkeit.

Dim zelle As Range
For Each zelle In Range("B8,F8,H8,J8")
 zelle.Resize(Cells(Rows.Count, 3).End(xlUp).Row - 7, 1).Formula = zelle.Formula
Next

gruss hary

Bild

Betrifft: Hinweis: Fehlerbehandlung ist da zwingend
von: Matthias L
Geschrieben am: 21.07.2015 09:55:59
Hallo hary
Ohne Fehlerbehandlung kann das schief gehen.
Genau dann, wenn es keine Daten in Spalte(3) ab C8 gibt.
Gruß Matthias

Bild

Betrifft: AW: Hinweis: Fehlerbehandlung ist da zwingend
von: hary
Geschrieben am: 21.07.2015 10:08:25
Moin Matthias
Stimmt, Kaufe ein Max.

 zelle.Resize(Application.Max(8, Cells(Rows.Count, 3).End(xlUp).Row) - 7, 1).Formula = zelle.Formula

gruss hary

Bild

Betrifft: AW: Formel herunterziehen mit VBA
von: Matthias L
Geschrieben am: 21.07.2015 09:41:16
Hallo
Für Spalte("F")

Dim LoLetzte
LoLetzte = Cells(Rows.Count, 3).End(xlUp).Row
If LoLetzte > 8 Then
 Range("F8").AutoFill Destination:=Range("F8:F" & LoLetzte), Type:=xlFillDefault
End If
Gruß Matthias

Bild

Betrifft: AW: Formel herunterziehen mit VBA
von: team11team
Geschrieben am: 21.07.2015 10:18:34
Morgen Matthias,
Morgen Hary,
funktioniert super vielen Dank.
Hilfe auf die man sich verlassen kann.
Schönen Tag.
Hans

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Formel herunterziehen mit VBA"