AW: Mit Checkbox ein x in eine Zelle eintragen
10.07.2017 14:37:34
fcs
Hallo Doll,
ich kann dir kaum weiterhelfen, ja weder deine Datei kenne noch den Code wie du die Textboxen füllst bzw. die Inhalte aus dem Userform in ein Tabellenblatt zurückschreibst.
In meinem Beispiel ist für das Einlesen in die Userform-Checkbox folgende Zeile zuständig
Me.CheckBox1 = LCase(.Cells(Zeile, 4).Text) = "x"
für das zurückschreiben in das Tabellenblatt der Block
If Me.CheckBox1 = True Then
.Cells(Zeile, 4).Value = "X"
Else
.Cells(Zeile, 4).ClearContents
End If
Me steht als Vertreter für das Userform - Der Code muss dann im Userform-Codemodul stehen. Ansonsten musst du Me durch den Namen des Userforms ersetzen.
vor .Cells musst du das Tabellenblatt einfügen, Zeile ist die Variable für die Zeilennummer aus der eingelesen bzw. in die geschrieben wird, 4 ist entsprechend die Nummer der Spalte.
Könnte dann so aussehen:
Me.CheckBox1 = LCase(WorkSheets("MeineTabelle").Cells(MeineZeile,_
MeineSpalte).Text) = "x"
bzw.
If Me.CheckBox1 = True Then
WorkSheets("MeineTabelle").Cells(MeineZeile, MeineSpalte).Value = "X"
Else
WorkSheets("MeineTabelle").Cells(MeineZeile, MeineSpalte).ClearContents
End If
"MeineTabelle", MeineZeile und MeineSpalte musst du dann entssprechend ersetzen.
Statt WorkSheets("MeineTabelle") könntest du ggf. auch ActiveSheet verwenden, analog dazu, wie du es bei den Textboxen umgesetzt hast.
Gruß
Franz