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 ?
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
Hallo Uwe,
Dein Vorschlag klappt leider nicht. Es werden 15x die 1, 15 mal die 2 und 15 mal die 3 eingetragen. Komisch,oder?
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
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
Hi,
soweit ich das gesehen habe, funktionieren
alle hier vorgestellten Makros ohne Probleme:
[
attachment=48348]