|
Hallo zusammen,
bin ziemlich lange raus aus vba. Ich habe hier einen Code, der soweit auch funktioniert. Das Ganze geht aber so weiter bis Zeile 766. Wie kann ich dies alles denn in eine Schleife packen, also bei jedem Durchlauf die Zeilennummer um 1 erhöhen? Vielen Dank im Voraus!!!
Sub Schaltfläche4_Klicken()
[O7:BE7].Select
For Each Zelle In Selection
If Zelle.Interior.Pattern = xlSolid Then Zelle.Formula = Range("L7")
Next
[O8:BE8].Select
For Each Zelle In Selection
If Zelle.Interior.Pattern = xlSolid Then Zelle.Formula = Range("L8")
Next
[O9:BE9].Select
For Each Zelle In Selection
If Zelle.Interior.Pattern = xlSolid Then Zelle.Formula = Range("L9")
Next
End Sub |