Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA Checkbox neue Zeile
#1
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!!


Angehängte Dateien
.xlsm   Beispiel.xlsm (Größe: 24,65 KB / Downloads: 5)
Antworten Top
#2
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...


Angehängte Dateien
.xlsm   Beispiel_AD.xlsm (Größe: 25,24 KB / Downloads: 7)
Gruß der AlteDresdner (Win11, Off2021)
Antworten Top
#3
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?!


Angehängte Dateien
.pdf   So sieht es aus.pdf (Größe: 193,26 KB / Downloads: 9)
.pdf   So soll es aussehen.pdf (Größe: 193,57 KB / Downloads: 8)
Antworten Top
#4
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
Gruß Atilla
Antworten Top
#5
atilla: Wahnsinn, vielen Dank!!
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste