Kontrollkästchen ankreuzen mit vba
16.11.2005 13:20:55
PatFox
ích kann mit u.a. Code den Inhalt des Formularfeldes "NettoAuflage" in eine Excel-Vorlage in Zelle B1 schreiben. soweit, so gut!
Jetzt möchte ich zusätzlich den Code an der mit vielen x gekennzeichneten Stellen so erweitern, dass der Wert des Kontrollkästchens "Rand" in ein Excel-Kontrollkästchen/Kontrollfeld "Rand" (je nachdem, was besser geht, hpts. es ist hinterher angekreuzt) übertragen wird. Erklärung verstanden?
Private Sub ExcelSchreiben_Click()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
With objExcel
.Visible = True
.Workbooks.Add "j:\ccc\ccc\testdatei.xlt"
.ActiveWorkbook.Worksheets(1).Range("B1") = (CStr(Me!NettoAuflage))
xxxxxxx
End With
Exit Sub
End Sub
Gruß, Patrick