Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Siva am Dezember 20, 2017, 20:40:58 Nachmittag

Titel: Office 2016 Makro um Zahlen automatisch einzufügen
Beitrag von: Siva am Dezember 20, 2017, 20:40:58 Nachmittag

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

Titel: Antw: Office 2016 Makro um Zahlen automatisch einzufügen
Beitrag von: gmg-cc am Dezember 20, 2017, 20:43:54 Nachmittag

Na, da habe ich doch eine passende Lösung (http://www.excel-ist-sexy.de/forenhilfe/eilt-wichtig/) für dich...

Titel: Antw: Office 2016 Makro um Zahlen automatisch einzufügen
Beitrag von: Siva am Dezember 20, 2017, 21:14:37 Nachmittag

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.

Titel: Antw: Office 2016 Makro um Zahlen automatisch einzufügen
Beitrag von: steve1da am Dezember 20, 2017, 21:20:41 Nachmittag

Hola,

zur Info....

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

Titel: Antw: Office 2016 Makro um Zahlen automatisch einzufügen
Beitrag von: Kapt.Ulrich am Dezember 21, 2017, 14:06:52 Nachmittag

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

Titel: Antw: Office 2016 Makro um Zahlen automatisch einzufügen
Beitrag von: RPP63 am Dezember 22, 2017, 09:21:28 Vormittag

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