Schleifenerstellung

Forumthread: Schleifenerstellung

Schleifenerstellung

03.01.2026 12:35:00

Werner

Guten Tag VBA Fachleute!
Ich möchte eine Schleife erstellen, um folgende Berechnung zu ermöglichen.

Werte 3 bis 7 in jeweils eine Zelle und danach Werte 9 bis 19 in weitere Zellen
eintragen.

In Zelle A1 Wert 3, Zelle A2 Wert 4, Zelle A3 Wert 5, Zelle A4 Wert 6, Zelle A5 Wert 7, Zelle A6 Wert 9,
Zelle A7 Wert 10 usw. bis Zelle A16 Wert 19.

Meine Kenntnisse in der Erstellung von Schleifen ist nicht gut.

Kann mir geholfen werden mit evtl. Tipps oder Anregungen?

Schöne Grüße Werner

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schleifenerstellung

03.01.2026 12:53:30

JoWE
AW: Schleifenerstellung

03.01.2026 13:42:04

RPP63
Hier noch eine Version,...

03.01.2026 14:22:24

Case
AW: Schleifenerstellung

03.01.2026 14:40:23

Daniel
AW: Schleifenlos noch

03.01.2026 15:44:58

GerdL
Außer Konkurrenz

03.01.2026 19:42:54

RPP63
Aufbauend auf Gerd

03.01.2026 15:53:24

RPP63
AW: Aufbauend auf Gerd

03.01.2026 15:56:05

RPP63
AW: Schleifenerstellung

03.01.2026 13:46:40

Werner
AW: Schleifenerstellung

03.01.2026 13:09:28

BoskoBiati

AW: Schleifenerstellung

03.01.2026 12:53:30

JoWE

Hallo Werner,
wenn ich die Aufgabe korrekt verstanden habe, wäre eine Möglichkeit diese:
Die Schleife startet in Zeile 1 und schreibt bei jeder Wiederholung bis zur Zeile 19 den
Wert des Schleifenzählers in die Zelle. Also A1 = 1, A2 = 2 usw.
Zu Schluss wird die Zelle A8 geleert!

Option Explicit

Sub schleife()

  Dim ze As Long

  For ze = 1 To 19

    Cells(ze, 1) = ze

  Next

  Cells(8, 1).Clear

End Sub

Gruß
Jochen

AW: Schleifenerstellung

03.01.2026 13:42:04

RPP63

Moin!
Zweizeiler ohne Schleife:

Sub Dingens()

Range("A1:A16") = [row(3:19)]

Range("A6").Delete xlUp

End Sub

Gruß Ralf

Hier noch eine Version,...

03.01.2026 14:22:24

Case

Moin Werner, :-)

... ohne Schleife: ;-)

'Excel 2010

Range("A1:A16").Value = Application.Index(Evaluate("ROW(3:19)"), Evaluate("ROW(1:16)+(ROW(1:16)>=6)"))

'Excel 365

Range("A1:A16").Value = Evaluate("FILTER(ROW(3:19),ROW(3:19)>8)")

Servus
Case

AW: Schleifenerstellung

03.01.2026 14:40:23

Daniel

Hi

Wenn die 8 keine Lücke erzeugen soll:





Dim i as Long 

Dim z as Long



z = 1

For i = 3 to 19

    Select case i

        Case 8

        Case else

            Cells(z, 1) = i

            z = z + 1

     End select

Next

Gruß Daniel

AW: Schleifenlos noch

03.01.2026 15:44:58

GerdL

Hallo Werner!

Sub Unit()



    With Range("A1:A16")

    .Formula = "=ROW() + 2 + (ROW() > 5)"

    .Formula = .Value

    End With



End Sub

Gruß Gerd

Außer Konkurrenz

03.01.2026 19:42:54

RPP63

In aktuellen Excel-Versionen frühstückt man so etwas auch mit einer einzigen Formelzelle ab:

=NACHZEILE(SEQUENZ(16;;3);LAMBDA(s;WENN(s>7;s+1;s)))

	B
1	3
2	4
3	5
4	6
5	7
6	9
7	10
8	11
9	12
10	13
11	14
12	15
13	16
14	17
15	18
16	19

Zelle	Formel
B1	=NACHZEILE(SEQUENZ(16;;3);LAMBDA(s;WENN(s>7;s+1;s)))

Aufbauend auf Gerd

03.01.2026 15:53:24

RPP63

Ich mag ja die Evaluate-Klammern []:

Sub Dingens()

[A1:A16] = [ROW(3:19) + (ROW(3:19) > 7)]

End Sub

AW: Aufbauend auf Gerd

03.01.2026 15:56:05

RPP63

Obiges funktioniert zwar, ist aber nicht sauber ausformuliert.
Deshalb eher:

Sub Dingens()

[A1:A16] = [ROW(3:18) + (ROW(3:18) > 7)]

End Sub

AW: Schleifenerstellung

03.01.2026 13:46:40

Werner

Hallo RPP63,

auch Dein Vorschlag ist super.

Werde ich als eine weitere Möglichkeit ausprobieren.

Schöne Grüße Werner

AW: Schleifenerstellung

03.01.2026 13:09:28

BoskoBiati

Hi,

Werte 3 bis 7
also 3 in A1 eintragen, 4 in A2, dann beide Zellen markieren und nach unten ziehen, bis der gesuchte Wert erreicht ist. Zellen mit ungewünschten Zahlen löschen.

Gruß

Edgar

Forumthread: Schleifenerstellung

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread