wenn "x" dann die nächsten 25 zeilen übertragen

[LuckyJoe]

Hi,

probiere das mal:

Option Explicit

Sub Test()

    Dim letzteZeile
    Dim i
    
    letzteZeile = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 1 To letzteZeile
        If Range("A" & i) = "x" Then
            Range("B" & i + 2, "B" & i + 27).Copy Destination:=Range("C" & i + 2, "C" & i + 27)
        End If
    Next

End Sub

[schauan]

Hallöchen,

ich denke eher so was :

Code:

Option Explicit

Sub Makro1()
'Variablendeklaration - Long
Dim iCnt&, kCnt&
    'erste Formel setzen
    Range("C3:C27").FormulaR1C1 = "=IF(R1C1=""x"",RC[-1],"""")"
    'Schleife ab 50 bis 799*50 mit Schrittweite 50
    kCnt = 799& * 50&
    For iCnt = 50 To kCnt Step 50
       '3 Zeilen weiter und 25 Zeilen lang Formel eintragen
       Cells(iCnt + 3, 3).Resize(25, 1).FormulaR1C1 = "=IF(R" & icnt & "C1=""x"",RC[-1],"""")"
    'Ende Schleife ab 50 bis 799*50 mit Schrittweite 50
    Next
    MsgBox "Fertig bei Zeile " & iCnt
End Sub

[Werner.M]

Hallo an alle,

die ganzen Antworten dürften wohl alle Makulatur sein.
Der Beitragsersteller hat das wohl flächendeckend gestreut. Bei Herber gibt es eine Beispielmappe dazu, allerdings mit völlig anderen Gegebenheiten als hier im Eingangsbeitrag geschildert.

Zudem scheint es der Beitragersteller nicht für nötig zu halten auf angebotene Hilfe zu reagieren.

Schätze mal, dass hier wohl auch nichts mehr komen wird.

Außer bei Herber und hier wird das auch noch im VBA-Forum dargeboten - wer weiß wo sonst noch überall.


Gruß Werner

[LuckyJoe]

@Werner: Danke für den Hinweis, das hatte ich mir auch schon gedacht. Da braucht man dann auch nicht darüber senieren, ob die Steps nach 50 Zeilen kommen oder ob das nur oberflächliche Beispielangaben sind, die nachher doch wieder relativiert werden. Der TE  hat auf die Crosspost-Hinweise auch nicht einmal reagiert - ich bin raus.