Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 05:06:02
Mahjong gratis: gioco di puzzle senza tempo
04.10.2025 05:04:16
Mahjong gratuito: gioco di puzzle senza tempo
03.10.2025 22:18:19
Dropdown
03.10.2025 20:19:48
Formatierung bei Zelländerung
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1940to1944
1940to1944
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahl in A erhöhen

Forumthread: Zahl in A erhöhen

Zahl in A erhöhen
07.08.2023 19:31:53
Andreas
Hallo,
mit folgenden Code wird die Zahl in Spalte A eine Zeile unter der aktiven Zeile um eins erhöht, wenn diese nicht leer ist.

Nun würde ich gern, das mit dem Code 3 Zeilen unter der aktiven Zeile ausgefüllt werden.

Z.B. -befinde mich in Zelle A14 wo auch eine 14 als Zahl steht. Nach dem Ausführen soll in A15 die 15 ; A16 die 16 und A17 die 17 stehen.

Was muss ich ändern? 

If Cells(ActiveCell.Row + 1, 1).Value = "" Then                   ' erhöhe in A die Zahl um +1

   Cells(ActiveCell.Row + 1, 1).Value = Cells(ActiveCell.Row, 1).Value + 1


Gruß Andreas
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zahl in A erhöhen
07.08.2023 19:47:01
daniel
Hi
beispielsweise: 
With ActiveCell.Offset(1, 0).Resize(3, 1)

    .FormulaR1C1 = "=R[-1]C+1"

    .Formula = .Value

end with



oder als eleganter Einzeiler 
ActiveCell.Resize(4).DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1

das verwendet die Excelmenüfunktion Start - Bearbeiten - Füllbereich - Reihe
(das kann man dann mit dem Recorder aufzeichnen, falls man sich den Befehl und die Parameter nicht merken will)

Gruß Daniel
Anzeige
AW: Zahl in A erhöhen
07.08.2023 21:48:52
Andreas
Hallo Daniel,

das funktioniert hervorragend.
Könnte man dies noch so abändern, das das Weiterzählen in der Spalte A auch dann funktioniert, wenn ich mich in der Spalte C befinde- ohne erst die Spalte A zu markieren.

Z.B. -befinde mich in Zelle C14 und nach dem Ausführen soll in A15 die 15 ; A16 die 16 und A17 die 17 stehen.

Grüße Andreas

Anzeige
AW: Zahl in A erhöhen
07.08.2023 22:01:48
Daniel
In meinem Code ist ActiveCell die Ausgangszelle (also die, wo die Zahl drin steht)
Du kannst statt ActiveCell hier jede andere Zellreferenz einstellen, also auch das, was du schon hast: Cells(ActiveCell.row, 1)

Gruß Daniel
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige