Spalte mit aufsteigenden Zahlen füllen per VBA

[zabulon]

Hallo,

wie kann ich mit einem möglichst einfachen und leicht verständlichen Makro die Spalte E70 - E 114 aufsteigend von 1 - 45 füllen ?

[Der Steuerfuzzi]

Hallo,

das wäre zum Beispiel eine Möglichkeit:

PHP-Code:

Sub ZahlenEintragen()
With ActiveSheet.Range("E70:E114")
    .FormulaR1C1 = "=row(R[-69]C[-4])"
    .Value = .Value
End With
End Sub 


[Kuwer]

Hallo,

Code:

Sub Makro2()
  With Range("E70")
    .Value = 1
    .AutoFill Destination:=.Resize(45), Type:=xlFillSeries
  End With
End Sub

Gruß Uwe

[zabulon]

Hallo Uwe,

Dein Vorschlag klappt leider nicht. Es werden 15x die 1, 15 mal die 2 und 15 mal die 3 eingetragen. Komisch,oder?

[Kuwer]

Hallo,

ja ist komisch. Vielleicht dann noch so:

Code:

Sub Makro3()
  With Range("E70")
    .Value = 1
    .Offset(1).Value = 2
    .Resize(2).AutoFill Destination:=.Resize(45), Type:=xlFillSeries
  End With
End Sub

Gruß Uwe

[RPP63]

Moin!
Ich biete einen Einzeiler an:

Code:

[E70:E114] = [Row(1:45)]

Wenn Dir das zu kryptisch ist, alternativ:

Code:

Sub Reihe()
With Range("E70:E114")
  .Formula = "=ROW(X1)"
  .Formula = .Value
End With
End Sub

Gruß Ralf

[snb]

ssisch Excel:

Code:

Sub M_snb()
  [E70] = 1
  [E70].AutoFill [E70:E114], 9
End Sub

[BoskoBiati]

Hi,

soweit ich das gesehen habe, funktionieren alle hier vorgestellten Makros ohne Probleme:


  Makro__Vergleich.xlsm (Größe: 21,59 KB / Downloads: 2)