ich habe ein weiteres Problem. Und zwar will ich wenn eine Bedingung erfüllt ist die Aktuelle Zeile in ein array schreiben. Anschließend dann zu einem späteren Zeitpunkt in Spalte I (9) aller im Array gespeicherten Zeilen "0" einfügen und das Array wieder leeren.
Also ungefähr so:
Sub Auswerten()
**Array Leeren**
For Zeile = 1 To 1000
If Cells(Zeile, 2).Value = "Wahr" Then
**Füge Zeilennummer (Variable Zeile) in ein Array hinzu**
End If
Next Zeile
End Sub
Sub Späterer Zeitpunkt()
Cells(**Zeilen aus Array**, 9).Value = "0"
**Array Leeren**
End Sub
Wäre sehr dankbar um Hilfe! Danke!
Gruß,
Theo