Schleife erstellen

Forumthread: Schleife erstellen
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Schleife erstellen

Schleife erstellen

23.09.2022 19:43:38

Manuel

Hallo zusammen,
ich habe eine Excel welche eine Bestandsliste ist.
Ich habe 3 Zellen welche miteinander addiert und subtrahiert werden.
In der 1 Zeile funktioniert es super.
Nun möchte ich aber die gleiche Rechnung in einer Schleife zur nächsten Zeile geht und dort das selbe ausrechnet und dann wieder zur nächsten Zeile bis Zeile 218.
Wie mache ich das?
LG


Sub rechnen()
Dim Punkte
Dim Verfügbar
Dim Entnohmen
Dim Hinzugefügt
Verfügbar = Sheets("Bestandsentnahmeliste").Range("E5")
Entnohmen = Sheets("Bestandsentnahmeliste").Range("D5")
Hinzugefügt = Sheets("Bestandsentnahmeliste").Range("F5")
Punkte = Hinzugefügt + Verfügbar - Entnohmen
Sheets("Bestandsentnahmeliste").Range("E5").Value = Punkte
Sheets("Bestandsentnahmeliste").Range("D5").Clear
Sheets("Bestandsentnahmeliste").Range("F5").Clear
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schleife erstellen

23.09.2022 19:57:14

onur
AW: Schleife erstellen

23.09.2022 20:24:36

GerdL

AW: Schleife erstellen

23.09.2022 19:57:14

onur


Dim z
With Sheets("Bestandsentnahmeliste")
for z= 5 to 218
.cells(z,5) = .cells(z,5).value + .cells(z,6).value - .cells(z,4).value
.cells(z,4)=""
.cells(z,6)=""
next z
end with

AW: Schleife erstellen

23.09.2022 20:24:36

GerdL

Hallo Manuel,
so ist es egal, ob Variablen als als Variant deklariert sind oder passender. :-)


Sub Unit()
With Sheets("Bestandsentnahmeliste")
With .Range("E5:E218")
.FormulaR1C1 = "=RC[1]-RC[-1]"
.Formula = .Value
End With
.Range("D5:D218,F5:F218").ClearContents
End With
End Sub

Gruß Gerd