Checkbox in UserForm zurück schreiben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nathalie,
Du meinst, in einem von diesen Aktionen passt irgendwas nicht?
Private Sub Btn_Aendern_Click()
Private Sub Button_Eingabe_Click()
Private Sub Cbo_Blattname_Change()
Private Sub Cbo_Suche_Change()
Private Sub ComboLaden()
Private Sub CommandButton1_Click()
Private Sub CommandButton2_Click()
Es sind weiterhin 180 Zeilen Code...
Tipp: Jede Element (ComboBox, ChechBox, usw) hat eine Property "Tag". Darin kann man etwas speichern und auch lesen.
z.B.: Bad_Einzelbecken oder Bad_Doppelbecken, Küche_Einbauküche
So kannst Du in Schleife darauf gehen:


Private Sub Ablegen()
Dim C As Control
For Each C In Me.Controls
Select Case Split(C.Tag, "_")(0)
Case "Bad"
Case "Küche"
Case Else
End Select
Next
End Sub

(positioniere den Cursor auf "Split" und drücke Strg+F1. Du kommst damit auf die Online-Hilfe. Die Code-Beispiele sind immer ein paar Minuten Beachtung wert.)
Coding, das sich wiederholt, kann man in einem sepraten Prozedure ablegen:


Private Sub Zurückschreiben(BlattName As String, Zeile As Long, Feld As String, Info As String)
Dim Sp As Range 'Spalte
With Worksheets(BlattName)
Set Sp = .Rows("13:13").Find(What:=Feld)
If Not varSpaltenName Is Nothing Then .Cells(lz, Sp.Column) = Info
End With
End Sub

Abruf durch (in Button_Eingabe_Click):


Zurückschreiben .Name, lz, "Telefax", TextBoxTelefax

VG
Yal

Private Sub CommandButton2_Click() Dim vntROW, cbx As Object, strOUT As String, strSHEET As String strSHEET = Cbo_Blattname.Value For Each cbx In Frame100.Controls If LCase(cbx.Name) Like "checkbox*" Then If cbx = True Then strOUT = strOUT & "; " & cbx.Caption End If End If Next If Len(strOUT) Then strOUT = Mid(strOUT, 3) If TextBoxNr "" Then x = TextBoxNr * 1 vntROW = Application.Match(x, Sheets(strSHEET).Columns(2), 0) If IsError(vntROW) Then vntROW = Sheets(strSHEET).Cells(Rows.Count, 2).End(xlUp).Row + 1 'neuer Kunde End If End If Sheets(strSHEET).Cells(vntROW, 14) = strOUT End If End Sub

Hallo Rudi,
vielen Dank für deine Rückmeldung.
Ich habe in der Datenbank ca. 100 verschieden Checkboxen. Die derzeit alle eben separat in die Datenbank eingefügt werden. Mal werden mehrere in eine Zeile geschrieben mal nur eine Checkbox in eine Zeile, je nach Überpunkt.
Gerne würde ich um Fehler zu vermeiden "falls Zeilenname etc." verschoben wird, die Daten suchen lassen und eintragen lassen.
Wenn ich die UserForm dann aufrufe und denn Kunde suche, sollte die Checkbox wieder angehakt werden, um den Überblick zu behalten und ggf. Änderungen vorzunehmen. Die Daten sollen wenn geändert überschrieben werden und falls es ein neuer Kunde ist neu angelegt werden. Derzeit bekomme ich dies nur mit den TextBoxen hin. Mit einer ListBox habe ich auch schon versucht zu arbeiten, da stell ich mich leider nur gleich an wie mit den Checkboxen.
Da habe ich leider noch meine Probleme.
Vielen Dank im Voraus für eure Hilfe und Viele Grüße

If Len(strOUT) Then strOUT = Mid(strOUT, 3) If TextBoxNr "" Then vntROW = Application.Match(TextBoxNr * 1, Sheets(strSHEET).Columns(2), 0) If IsError(vntROW) Then vntROW = Sheets(strSHEET).Cells(Rows.Count, 2).End(xlUp).Row + 1 'neuer Kunde End If End If Sheets(strSHEET).Cells(vntROW, 14) = strOUT End If

Beliebteste Forumthreads (12 Monate)

Checkbox in UserForm zurück schreiben

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Checkbox in UserForm zurück schreiben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread