Clever-Excel-Forum

Hallo zusammen,

eine Userform enthält verschiedene Steuerelemente, u.a. 14 Checkboxen (hier: Tätigkeit), um die es geht.

Der momentane Code gibt die Werte bei Mehrfachauswahl in nur einer Zelle aus und trennt diese mit einem Komma.

Wie kriege ich es hin, dass nun jede Auswahl in einer neue Zeile erscheint? Gleichzeitig sollen die restlichen Werte unverändert ebenfalls in der neuen Zeile erscheinen.

Das Problem wird hoffentlich anhand der Beispieldatei deutlicher!!? Confused

Besten Dank!!

Hallo,
ich hoffe, Dich richtig verstanden zu haben. Die Änderung liegt in der Bestimmung der letzten Zeile.
Dazu habe ich noch ein paar Codekürzungen gemacht...

Hallo AlterDresdner,

danke für die Unterstützung.

Ich habe mich nicht ganz klar ausgedrückt denke ich.

Anhand der PDFs dürfte es klarer werden?!

Hallo,

ersetze Deinen Code für die Befehlsschaltfläche so:

Code:
Private Sub button_eingabe_Click()

'Erste freie Zeile ausfindig machen

Dim i As Long, n As Long

Dim lngLast As Long

Dim strgText As String

lngLast = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1

If opt_hd_früh.Value = True Then strgText = "HD früh"

If opt_hd_spät.Value = True Then strgText = "HD spät"

If opt_hd_nacht.Value = True Then strgText = "HD Nacht"

For i = 1 To 14

   If Me.Controls("CheckBox" & i) = True Then

      Cells(lngLast, 2).Value = strgText                       'Schicht

      Cells(lngLast, 3).Value = combobox_klient.Value          'Klient

      Cells(lngLast, 4) = Me.Controls("CheckBox" & i).Caption  'Tätigkeit

      Cells(lngLast, 5).Value = textbox_besonderheit.Value     'Besonderheiten/Auffälligkeiten

      lngLast = lngLast + 1

   End If

Next i

End Sub

atilla: Wahnsinn, vielen Dank!!

DN_89

AlterDresdner

DN_89

atilla

DN_89