Einfaches Befüllen von Zeilen

Ljonja · 6. September 2021, 09:41

Moin, ich bin grade dabei das Verständnis für VBA zu erlernen und tue mich recht schwer damit.
Ich möchte eine Range von A1 bis F5 mit X befüllen und das soll alles in einer Schleife passieren.
Ich verstehe nicht ganz wie das geht und würde mich um ein wenig Hilfe echt freuen.
Vielen Dank schon einmal
:rolleyes:

petaod · 6. September 2021, 10:07

Entweder

Visual Basic-Quellcode

Dim c As Range
For Each c in Range("A1:F5")
c.Value = "X"
Next

Oder

Visual Basic-Quellcode

Range("A1:F5").Value ="X"

Ljonja · 6. September 2021, 10:18

Moin und Danke!
Muss man groß etwas verändern, wenn man "x" und "y" z.b. abwechseln möchte?

petaod · 6. September 2021, 10:25

Das ist jetzt etwas theoretisch.
Nach welchem Algorithmus willst du abwechseln?

Visual Basic-Quellcode

Dim c As Range
For Each c in Range("A1:F5")
If (c.Row + c.Column) Mod 2 = 0 Then c.Value = "X" Else c.Value = "Y"
Next

Aber vielleicht beschreibst du mal deine tatsächlichen Anforderung.

Ljonja · 6. September 2021, 10:54

ich habe 4 Zeilen mit "x" befüllt und jetzt möchte ich, dass Zeile 2 und 4 "y" einfügt.

petaod · 6. September 2021, 11:07

Visual Basic-Quellcode

Dim c As Range
For Each c in Range("A1:F5")
If c.Row Mod 2 = 0 Then c.Value = "Y" Else c.Value = "X"
Next

Ljonja · 6. September 2021, 13:13

ich verstehe diese "Mod" Funktion nicht ganz, wie funktioniert die ?

Dksksm · 6. September 2021, 14:30

Die Funktion Mod ist wie "geteilt durch", allerdings wird nur der Rest zurückgegeben.
7 Mod 2 = 1 Weil 7/3 = 2 Rest 1
6 Mod 2 = 0, weil es gibt keinen Rest
docs.microsoft.com/de-de/dotne…ce/operators/mod-operator

Einfaches Befüllen von Zeilen

Einfaches Befüllen von Zeilen

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben