For each Schleife
Arne
habe jetzt folgendes Problem..
ich möchte in diejenigen Zellen des Bereichs von E6 bis E36, wo aktuell keine Formel vorhanden ist, den aktuellen Zeilenwert reinschreiben. also wenn in E28 keine Formel steht den Wert 28.
Mit ActiveCell funktioniert das nicht, da er dann einfach nur den Wert nimmt, der bei Ausführung des Makros aktiviert ist.
Könnte mir da wer helfen? Hier der Quelltext:
Sub Nichtausblenden()
Dim MyArr, j, i
Dim zelle As Excel.Range
MyArr = Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", "September" _
_
, "Oktober", "November", "Dezember")
For Each j In MyArr
With Worksheets(j).Range("E6:E36")
.Locked = False
.FormulaHidden = False
End With
For Each zelle In Range("E6:E36")
i = ActiveCell.Row
If zelle.HasFormula = False Then
zelle = i
End If
Next zelle
Next j
End Sub
Arne
Anzeige