wie kann ich einem Zellbereich eine
Sub zuweisen?
Hier meine Sub:
Sub BereichAuswählen()
Dim Wert as Integer
For z = 0 to 34
For s = 0 to 50
If Range("D7".Offset(z, s).Value = 1 Then
Range("Kalkulation!F7").Offset(z, s).Value = HIER SOLL ALLEN
ZELLEN EINE
Sub ZUGEWIESEN WERDEN, WO DIESE BEDINGUNG ZUTRIFFT
End Sub
Dankbar für jeden Tip
Thanx