Hallo zusammen,
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)
Code habe ich mit Hilfe von Foren erstellt bekommen. Bin eher Laie auf dem Gebiet.
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 |