Hallo,
ich bin nicht so der VBA Profi, wie kann ich das kürzer schreiben?
If CheckBox6 = True Then
W6 = Sheets("Proto ZFF").Range("T6")
W7 = Sheets("Proto ZFF").Range("T7")
W8 = Sheets("Proto ZFF").Range("T8")
W9 = Sheets("Proto ZFF").Range("T9")
W10 = Sheets("Proto ZFF").Range("T10")
W11 = Sheets("Proto ZFF").Range("T11")
W12 = Sheets("Proto ZFF").Range("T12")
W13 = Sheets("Proto ZFF").Range("T13")
W14 = Sheets("Proto ZFF").Range("T14")
W15 = Sheets("Proto ZFF").Range("T15")
W16 = Sheets("Proto ZFF").Range("T16")
W17 = Sheets("Proto ZFF").Range("T17")
W18 = Sheets("Proto ZFF").Range("T18")
W19 = Sheets("Proto ZFF").Range("T19")
W20 = Sheets("Proto ZFF").Range("T20")
W21 = Sheets("Proto ZFF").Range("T21")
W22 = Sheets("Proto ZFF").Range("T22")
W23 = Sheets("Proto ZFF").Range("T23")
W24 = Sheets("Proto ZFF").Range("T24")
Else
W6 = 0
W7 = 0
W8 = 0
W9 = 0
W10 = 0
W11 = 0
W12 = 0
W13 = 0
W14 = 0
W15 = 0
W16 = 0
W17 = 0
W18 = 0
W19 = 0
W20 = 0
W21 = 0
W22 = 0
W23 = 0
W24 = 0
End If
Mit freundlichen Grüßen
Manuel
PS Ich kann den Text-Editor leider nicht öffnen. |