habe mal 'ne Frage, wo ich einen einfacheren Weg suche. Und zwar habe ich auf einem Blatt ("Ergebnisse) 60 Checkboxen. Wenn auf eine das Häkchen setze (bzw. es wegnehme) ändern sich auf einem anderen Blatt ("Spielzettel") die Reihenhöhen. Hier mal der Code für die Checkbox1:
Private Sub CheckBox1_Click()
With Worksheets("Spielzettel")
If CheckBox1.Value = False Then
.Rows("1:22").RowHeight = 0
ElseIf CheckBox1.Value = True Then
.Rows("1:3").RowHeight = 10.5
.Rows("4").RowHeight = 19.5
.Rows("5:6").RowHeight = 12.75
.Rows("7").RowHeight = 24.75
.Rows("8:9").RowHeight = 13.5
.Rows("10").RowHeight = 7.5
.Rows("11").RowHeight = 12.75
.Rows("12").RowHeight = 13.5
.Rows("13").RowHeight = 7.5
.Rows("14").RowHeight = 12.75
.Rows("15").RowHeight = 13.5
.Rows("16").RowHeight = 7.5
.Rows("17").RowHeight = 12.75
.Rows("18").RowHeight = 13.5
.Rows("19").RowHeight = 7.5
.Rows("20:21").RowHeight = 12.75
.Rows("22").RowHeight = 7.5
End If
End With
End Sub
So, nun habe ich zwei Fragen dazu:
1.
Man sieht ja, dass bei verschiedenen Zellen, oft die gleiche Höhe verwendet wird (z.B. 10 und 13). Kann man das in einem Befehl zusammenfassen um den Quelltext da etwas zu minimieren?
2.
Und hier die wichtigere bzw. interessantere Frage für mich: Das ja nun die Checkbox1. Nun habe ich noch weitere 59 Checkboxen, die eigentlich genau gleich aussehen, nur das pro Checkbox alles um 22 Zeilen verschoben ist. Heißt als z.B. für Checkbox2 das aus Zeile 1 nun Zeile 23, aus Zeile 2 die 24, usw....bei Checkbox3 geht es dann natürlich bei Zeile 45 los.
Hat da jemand 'nen Plan wie ich das am besten als Quelltext zusammenfassen kann, denn nun 60 mal den gleichen Text schreiben mit etwas anderen Zeilenwerten. Hat da jemand 'ne Idee?