ich habe ein Problem, welches ich einfach nicht ohne Hilfe lösen kann. Ich habe eine Userfom erstellt, mit deren Hilfe Analysen mittels Checkboxen ausgewählt werden können. Falls es neue Analysen gibt, wird die Userform natürlich durch zusätzliche Checkboxen erweitert. Bei dem Code stört mich total, dass die Analysen der Reihenfolge nach in dem Auftragsformular eingefügt werden.
Ich erläutere mein Problem an einem Beispiel:
Ich wähle in der Userform folgendes aus:
- Dicke (Checkbox1)--> wird in Zelle B 12 eingetragen
- Reibung (Checkbox3)--> wird in Zelle B 13 eingetragen
Wenn mir später auffällt, dass ich doch noch gerne das Flächengewicht hätte, ist dieser Code nicht ideal dafür.
Checkbox 2 ist das Flächengewicht und wird deswegen in B13 eingetragen und die Reibung rutscht in Zelle B14.
Also so:
B12 --> Dicke (Checkbox1)
B13 --> Flächengewicht (Checkbox2)
B14 --> Reibung (Checkbox3)
Ich hätte es gerne in der Reihenfolge, wie ich die Analysen ausgewählt habe. Also unabhängig von der Nummerierung der Checkboxen:
B12 --> Dicke (Checkbox1)
B13 --> Reibung (Checkbox3)
B14 --> Flächengewicht (Checkbox2)
Den folgenden Code habe ich mit Hilfe von Foren erstellt bekommen. Wenn ich ehrlich bin, verstehe ich den Code auch nicht wirklich, aber für mich war es ausreichend. Jetzt werden mehrere Personen mein Auftragsformular verwenden und dann sollte das geändert werden. Private Sub CommandButton2_Click() ActiveSheet.Unprotect Password:="xxx" Dim lR As Long, lC As Long Dim ctrl As Object lR = 12 lC = 2 For Each ctrl In Me.Controls If Left(ctrl.Name, 8) = "CheckBox" Then If ctrl.Value Then ActiveSheet.Cells(lR, lC) = ctrl.Caption lR = lR + 1 If lR > 28 Then lR = 12: lC = lC + 2 End If End If Next ctrl ActiveSheet.Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True, _ _ _ AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True Unload Me End Sub
Ich bedanke mich jetzt schon mal für das Lesen meines Beitrages!
Liebe Grüße und einen schönen Tag.
SA