VBA: i = 0 wenn Zelle 0 sonst 3
07.04.2021 17:01:58
Guest
ich habe folgenden Code:
With Worksheets("Import")
z = 1
For q = 3 To letztZeile
i = Cells(q, letztSpalte)
For i = 1 To i
z = z + 1
Range("A" & q & ":C" & q).Copy .Range("A" & z)
Next i
Next q
Nun möchte ich
i = Cells(q, letztSpalte)
an eine Bedingung knüpfen. Wenn der Wert in Cells(q, letztSpalte) >0 ist, dann i = 3 sonst i = 0.
Kann jemand helfen?
LG