Makro-Formel/Format für bestimmte Zellen nach unten kopieren

Hallo zusammen,

ich möchte gerne die Formel und das Format in den Zellen K12 bis DB12 per Makro bis zum Tabellenende nach unten kopieren, jedoch nur wenn in Spalte I "Projected Inventory" steht. Könnt ihr mir hierzu weiterhelfen?

Unter dem folgenden Link findet ihr die Beispieldatei: https://www.herber.de/bbs/user/171665.xlsx
Die Anzahl der Zeilen sind jedoch von Datei zu Datei unterschiedlich.

Ich hatte es schon mit dem folgenden Code ausprobiert, allerdings übernimmt es mir in jeder zweiten Zeile die Formel nicht richtig:

Sub test()

    Range("K12").Select

    ActiveCell.FormulaR1C1 = "=RC[-1]-R[-3]C+R[-2]C"

    Range("K12").Select

    Selection.AutoFill Destination:=Range("K12:DB12"), Type:=xlFillDefault

    Range("K12:DB12").Select

   

    ActiveSheet.Range("$I$1:$I$849").AutoFilter Field:=1, Criteria1:= _

    "Projected Inventory"

    Range("K12:DB12" & Cells(Rows.Count, 9).End(xlUp).Row).FormulaR1C1 = Range("K12:DB12").FormulaR1C1

    ActiveSheet.ShowAllData



End Sub

Viele Grüße
Ashley

Hallo Ashley,

meinst du sowas?

Sub test()

    Dim lastRow As Long

    Dim currentRow As Long

    Dim sourceRange As Range

    Dim destinationRange As Range

    

    ' Letzte Zeile in Spalte I ermitteln

    lastRow = Cells(Rows.Count, "I").End(xlUp).Row

    

    ' Ausgangsbereich für die Formeln und Formate (K12:DB12)

    Set sourceRange = Range("K12:DB12")

    

    ' Schleife durch alle Zeilen ab Zeile 12 bis zur letzten Zeile

    For currentRow = 12 To lastRow

        ' Überprüfen, ob in Spalte I "Projected Inventory" steht

        If Cells(currentRow, "I").Value = "Projected Inventory" Then

            ' Zielbereich für die aktuelle Zeile festlegen

            Set destinationRange = Range("K" & currentRow & ":DB" & currentRow)

            ' Formeln und Formate kopieren

            sourceRange.Copy

            destinationRange.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats

        End If

    Next currentRow

    

    ' Kopiermodus deaktivieren

    Application.CutCopyMode = False

End Sub

Gruß
Christian

Makro-Formel/Format für bestimmte Zellen nach unten kopieren

Forumthread: Makro-Formel/Format für bestimmte Zellen nach unten kopieren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Makro-Formel/Format für bestimmte Zellen nach unten kopieren

Forumthread: Makro-Formel/Format für bestimmte Zellen nach unten kopieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread