Datenbank mit Listboxen, Textboxen, Checkboxen

Private Sub CommandButton1_Click() Dim cNum As Integer Dim X As Integer Dim nextrow As Range cNum = 58 Set nextrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) For X = 1 To cNum nextrow = Me.Controls("Reg" & X).Value Set nextrow = nextrow.Offset(0, 1) Next For X = 1 To cNum Me.Controls("Reg" & X).Value = "" Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
1.
Mit dem Code kannst du ja keine bestehenden Daten "bearbeiten", sondern nur neue Einträge erzeugen. Somit würde ich die Pflichtfelder definieren und CommandButton1 erst aktivieren (Enable = True), wenn die Pflichtfelder gefüllt sind.
Hier ein Beispiel mit 3 TextBoxen, wobei TextBox 1+3 Pflichtfelder sind.

Private Sub Reg1_Change()
Call PflichtfelderCheck
End Sub

Private Sub Reg3_Change()
Call PflichtfelderCheck
End Sub

Private Sub PflichtfelderCheck()
Dim ar As Variant, i As Integer
ar = Array(1, 3) ' hier weitere ergänzen
For i = 0 To UBound(ar)
If Controls("Reg" & ar(i)) = "" Then Exit Sub
Next i
CommandButton1.Enabled = True
End Sub

2.
Ich vermute du meinst eine ListBox mit Eigenschaft MultiSelect resp. StyleOption. Keine Ahnung wie du dies in die Tabelle übertragen willst (Datenstruktur), aber die ListBox müsste in einer Schleife abgearbeitet werden. Hier ein Beispiel:

Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then MsgBox ListBox1.List(i, 0)
Next i
End Sub

Private Sub CommandButton1_Click()
If InputBox("Passwort")  "Passwort" Then Exit Sub
MsgBox "weiter gehts"
End Sub

cu
Chris

Hallo Chris! :)
Vielen Dank nochmal für deine Mühe! Folgendes:
1. Müsste es aber nicht so gehen? Nur müsste man die Range irgendwie ändern, damit es nicht in einer speziellen Zelle landet sondern wie der rest auch immer in der nächsten Freien. Wie müsste man den Code dann schreiben? Also was müsste dort in Klammer stehen?

Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Tabelle2.Range("B45") = "Käse"
Else
Tabelle2.Range("B45") = "-"
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Tabelle2.Range("C45") = "Schinken"
Else
Tabelle2.Range("C45") = "-"
End If
End Sub

2. Tut mir Leid, ja ich spreche von einer Listbox mit mit StyleOption. Es gibt ja z.B. auch die Möglichkeit eine Dropdownliste mit Mehrfachauswahl zu nehmen und dann jeden ausgewählten Wert in eine Zelle schreiben zu lassen z.B. Käse, Schinken, Wurst. Ich habe bisher aber nur gesehen, dass man dies im regulären Sheet anwenden kann, nicht aber in einer Userform. Ist das in einer Userform möglich?
Danke und liebe Grüße
Mitsue

Private Sub CommandButton1_Click() Dim letzteZeile As Long, X As Integer With Sheet1 letzteZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1 For X = 1 To 58 Select Case X Case 4 If Me.Controls("Reg" & X).Value = True Then .Cells(letzteZeile, X) = "Käse" Else .Cells(letzteZeile, X) = "-" End If Case 5 If Me.Controls("Reg" & X).Value = True Then .Cells(letzteZeile, X) = "Wurst" Else .Cells(letzteZeile, X) = "-" End If Case Else .Cells(letzteZeile, X) = Me.Controls("Reg" & X).Value End Select Next X End With End Sub

Beliebteste Forumthreads (12 Monate)

Datenbank mit Listboxen, Textboxen, Checkboxen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datenbank mit Listboxen, Textboxen, Checkboxen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread