Jeg er kommet lidt videre, bla. grundet en design ændring.

 

Følgende løkke virker, men ikke efter hensigten.

Jeg vil gerne have den til at gentage en løkke 12 gange, og den ene løkke vil jeg gerne have gentaget x gange, men hele tiden på et ny område.

Og data hver gang en 12'er løkke startes skal $f$1 tælle 1 op.

Sub ChangeRowData()

Dim i As Variant
Dim j As Variant

 Sheets("SCRIPTFILE").Select
  Range("A1").Select
 
 ' For i = 1 To Sheets("count").Range("AB4").Value
 

  For j = 1 To 12
    ActiveCell.Replace What:="$F$1", Replacement:="$F$1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.FindNext(After:=ActiveCell).Activate
 Next j

 
  For j = 1 To 12
    ActiveCell.Replace What:="$F$1", Replacement:="$F$2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
   Cells.FindNext(After:=ActiveCell).Activate
Next j

For j = 1 To 12
      ActiveCell.Replace What:="$F$1", Replacement:="$F$3", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
  Cells.FindNext(After:=ActiveCell).Activate
 Next j
  
  For j = 1 To 12
       ActiveCell.Replace What:="$F$1", Replacement:="$F$4", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
   Cells.FindNext(After:=ActiveCell).Activate
 Next j
   
    'osv op til i
 
End Sub

 

Og nej, jeg er ikke en haj.

Jeg har lært en masse, men endnu ikke fundet de vise sten.

 

Håber en af jer kan vise mig vejen.

 

Her er mit nye tiltag.

 

Sub Script_Generate_Add_Data()
Dim MitArray(1 To 10000) As Variant
Dim iCount As Integer
Dim j As Integer

' Copy IP range x times in next free cell, based on value sheet subnet cell AB5

 'Jeg vil gerne indsætte en reference Generate_Range!f1
 'Start referencen vil være denne placering Generate_Range!f1
 'Denne reference skal så tælle 1 op per i
 'Eks
 'Generate_Range!f1
 'Generate_Range!f2
 'Generate_Range!f3

 
Sheets("SCRIPTFILE").Select
Range("G1").Select

 

' Denne del virker ikke :-(

For iCount = 1 To Sheets("Count").Range("AB5").Value
   MitArray(iCount) = Generate_Range!F & iCount + 1

 

 

' Denne del virker :-)
' Denne del indsætter Generate_Range!f1 12 gange
For j = 1 To 12

ActiveSheet.Paste
ActiveCell.Offset(1, 0).Select
Next j

ActiveCell.Offset(2, 0).Select
Next iCount

End Sub