|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Reihenfolge unabhängig von Checkboxen |
25.04.2017 17:03:12 |
Sa |
|
|
|
25.04.2017 17:32:24 |
Mackie |
|
|
|
25.04.2017 18:36:41 |
Gast33813 |
|
|
|
26.04.2017 16:56:14 |
Sa |
|
|
|
26.04.2017 20:16:38 |
Gast99181 |
|
|
Von:
Sa |
Datum:
25.04.2017 17:03:12 |
Views:
1143 |
Rating:
|
Antwort:
|
Thema:
Reihenfolge unabhängig von Checkboxen |
|
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 |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Reihenfolge unabhängig von Checkboxen |
25.04.2017 17:03:12 |
Sa |
|
|
|
25.04.2017 17:32:24 |
Mackie |
|
|
|
25.04.2017 18:36:41 |
Gast33813 |
|
|
|
26.04.2017 16:56:14 |
Sa |
|
|
|
26.04.2017 20:16:38 |
Gast99181 |
|
|