Office 2016 Makro um Zahlen automatisch einzufügen

[Siva]

Hallo,

ich bräuchte dringend ein Makro um automatisch zahlen für ein bestimmten Hauptwert einzufügen. Zwischen jeden Hauptwert sind 6 freie zeigen und werden mit entsprechend der Zahlenreihe gefüllt(s. Anhang).

Ich bedanke mich schon vorab.

Danke

[gmg-cc]

Na, da habe ich doch eine passende Lösung für dich...

[Siva]

es tut mir leid ,wenn ich mich falsch ausgedrückt habe. Dies hindert mich grad an meiner Masterarbeit weiter zuarbeiten, deshalb "dringend" erwähnt, sonst ist mir bewusst, dass alle ehrenamtlich helfen.

[steve1da]

Hola,

zur Info....

http://www.vba-forum.de/forum/View.aspx?ziel=41934-Makro_um_automatisch_Zahlen_hinzuf%C3%BCgen
Gruß,
steve1da

[Kapt.Ulrich]

Hallo,
vielleicht habe ich es falsch verstanden, aber wenn es nur darum geht , diese Zahlenreihe weiter nach unten zu vervollständigen, dann wäre ein schnelles Mittel "Auto-Vervollständigen":
In Deinem Beispiel die Zellen B2 bis B15 markieren und dann das kleine Viereckchen unten rechts an der Markierung anfassen und weiter nach unten ziehen. Dann macht Excel automatisch immer 7 leere Zellen und dann eine um 7 größere Zahl. Das geht dann zwar nicht automatisch, aber "voll schnell"
Gruß und schönes Fest
UL

[RPP63]

Moin!
Sie möchte ja die Leerzellen auffüllen.
Damit dieser Thread die nebenan akzeptierte Lösung als Abschluss erhält:
Ich nutze SpecialCells, eine simple Formel und Formel durch Wert ersetzen.
Edit: Da hier eine andere Datenbasis vorliegt, habe ich den Code jetzt angepasst.

Sub RPP()
Dim a As Range
With Tabelle1
  With Range(.Cells(1, 2), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1)).SpecialCells(xlCellTypeBlanks)
    .FormulaR1C1 = "=R[-1]C2+1"
    For Each a In .Areas
      a.Copy: a.PasteSpecial xlPasteValues
    Next
  End With
End With
Application.CutCopyMode = False
End Sub

Gruß Ralf