Excel Vba in schleife?

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

Answer 1

[Iamiam]

Bin zwar auch ein Fän von For Each...next, aber es geht auch mit einer leichter verständlichen For 1 to ...-Schleife, und zwar so (sofern deine Formel ok ist, hab zwar IIf schon gesehen, ist mir aber nicht geläufig):

• Sub VarZ1_20()
• Dim Z as Integer
• For Z = 1 to 20
• Worksheets("Tabelle1").Range("C"&Z) = IIf((IsEmpty(Range("A"&Z)) + IsEmpty(Range("B"&Z))) <> 0, "", (Range("A"&Z) - Range("B"&Z) + 1))
• next
• End Sub

kannst du hier kopieren (die dicken Aufzählungspunkte werden von VBA ignoriert)

Answer 2

[User637236]

Da brauchst du Variablen. Du kannst es dann mit "for each" machen.

Dim rg as Range, r as Range

Set rg = Range("A1:A20") ' Wenn du 20 Zeilen ausrechnen willst

For each r in rg

.....

Next r

Im Innern der Schleife verweist dann r nacheinander auf Range("A1"), Range("A2")....Range("A20")

Spalten B und C kannst du mit Offset ansprechen.

r.Offset(0,1) spricht die Zellen in Spalte B an, und r.Offset(0,2) die in Spalte C.

Comments

[Ahoy12]

Kann nur etwas damit anfangen,weiß nicht wo was hin geht.Bin Absoluter Anfänger :)

[User637236]

@Ahoy12

Lies dir am besten durch wie "For each" geht, und wie Variablen in VBA gehen.

Ist alles auf dem Blatt "Worksheets("Tabelle1") oder nur Spalte "C". Hatte jetzt angenommen es war alles auf einem Sheet.

Du hast nur ganz am Anfang 'Worksheets("Tabelle1")' geschrieben. Das muss bei den anderen Ranges dann auch hin. (Geht auch mit "With"-Statement ganz am Anfang, aber nur zur Abkürzung. Funktioniert genauso)