Clever-Excel-Forum

Seiten: 1 2

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

Hallöchen,

ich denke eher so was Smile

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

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

@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.

Seiten: 1 2

LuckyJoe

schauan

Werner.M

LuckyJoe