AW: Checkbox
12.05.2004 08:48:46
Oberschlumpf
Hi Pit
Du musst in jedes Klick-Ereignis der jeweiligen CheckBox den Code reinschreiben, der passieren soll, wenn eine Ch'Box angeklickt ist.
Bei Deiner Frage könnte das so aussehen:
Private Sub CheckBox1_Click()
Workbook("DeinWorkbook").Sheets("DeinTabellenBlatt").Range("DeineZelle").Value = CheckBox1.Name
End Sub
Private Sub CheckBox2_Click()
Workbook("DeinWorkbook").Sheets("DeinTabellenBlatt").Range("DeineZelle").Value = CheckBox2.Name
End Sub
Private Sub CheckBox3_Click()
Workbook("DeinWorkbook").Sheets("DeinTabellenBlatt").Range("DeineZelle").Value = CheckBox3.Name
End Sub
Da Du nicht geschrieben hast, WO denn der Name der Checkbox stehen soll, und WIE Deine Checkboxen, Dein Tabellenblatt und die Excel-Tabelle heißt, hab ich an der entsprechenden Stelle "Platzhalter" gesetzt, die jetzt erklärt werden.
CheckBox1 - CheckBox3 = hierfür musst Du DEN Namen eintragen, den Du den Checkboxen gegeben hast
DeinWorkBook = hier musst Du den Dateinamen DER Exceltabelle eintragen, in dem der Name der Checkbox erscheinen soll.
DeinTabellenblatt = hier musst Du DEN Namen des Blattes eintragen
DeineZelle = hier musst Du DIE Zelle eintragen, in dem der Name erscheinen soll.
Konnte ich helfen?
Ciao
Thorsten