Heiko S. - nachgefragt
30.06.2005 10:52:07
R.Schmitt
nochmals danke für diesen Code :
Sub checkboxes2()
Dim objO As OLEObject
' Alle OLEObjecte im aktiven Arbeitsblatt durchlaufen.
For Each objO In ActiveSheet.OLEObjects
' Wenn dabei eine Combobox gefunden wird dann darauf die Aktion ausführen.
If TypeName(objO.Object) = "CheckBox" Then
If objO.Visible = True Then
objO.Object.Value = False
End If
End If
Next objO
End Sub
Versuche gerade ihm beizubringen, daß er, falls die Zelle links neben
der LinkedCell den Wert "Referenz" hat, die Checkbox auf true setzt,
kommer aber mit
If objO.LinkedCell.offset(0;-1).value = "Referenz" Then
objO.Object.Value = True
nicht wesentlich weiter.
Syntaxfehler ?
Ich glaub´ich geh´heute besser heim ;-)
Gruß
R.Schmitt
Anzeige