title image


Smiley Das IST doch bereits ein (Code-optimiertes) MAKRO !!!
Möchtest Du in jeder 7.Zeile in Spalte A den Wert aus B12 eingetragen haben ?

Das hast Du aber in Deiner Frage nicht geschrieben !!!



Das würde so funktionieren :







Sub KopiereB12InJede7teZeileInSpalteA()

    Application.ScreenUpdating = False

    'Um erste Zeile in A zu variieren einfach auf  z = 3 ändern usw.

    For z = 1 To 20000 Step 7

        Cells(z, 1) =[B12]

    Next

    Application.ScreenUpdating = True

End Sub


Grüße, NoNet

  1,2,3 - kleine Excelei :   Infos + Anmeldung zum Jährlichen Exceltreffen



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: