Checkbox als Array für Eintrag in Zellen
10.11.2016 10:25:12
Marthma
ich habe eine ziemlich unelegante Lösung für das Eintragen von Inhalten aus Checkboxen in verschiedene Zellen und würde dies gern mit eurer Hilfe optimieren.
Ich habe eine Userform mit zwei Eingabemöglichkeiten: Checkboxen und Textboxen.
Jede Checkbox und jede Textbox soll den Inhalt für genau eine Zelle abfragen und in sie _
hineinschreiben. Das ist im Moment mit sehr vielen If Statements umgesetzt:
If Me.CheckBox1.Value = True Then
Worksheets("Sheet1").Cells(lngZeile, 24).Value = "X"
End If
Oder für Textboxen:
If Me.TextBox12.Value 0 Then
Worksheets("Sheet1").Cells(lngZeile, 20).Value = TextBox12.Value
End If
Ich möchte alle Check-/Textbox als Array speichern, jede Checkbox auf True/False testen und schließlich jeweils den Inhalt der Boxes in die entsprechende Zelle eintragen.
Die Zelle, in welcher die Eintragung vorgenommen werden sollen, wird stets durch eine Zeilennummer (lngZeile) die aus einer anderen Userform übergeben wurde und einer Spalte definiert. Die Spalten erhöhen sich gleich zum Index der Checkbox/Textbox (Inhalt Checkbox1 muss in (lngZeile,1) und Inhalt aus Checkbox2 muss in (lngZeile,2))
Bisher habe ich dafür das:
Dim ArCB(6) As CheckBox
Dim i As Integer
For i = 0 To UBound(ArCB)
ArCB(i) = i
Next
Dim x As Integer
For x = 0 To UBound(ArCB)
Workheets("VWFS").Cells(lngZeile, x + 2).Value = ArCB.Value(x)
Next
Könnt ihr mir vielleicht helfen?
Liebe Grüße