Das Notes Forum
Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: ERGE am 28.11.07 - 16:05:56
-
Kurze Frage,
habe ein Excelsheet mit Zellen und sogenannten CheckBoxen. Lese diese Daten nun mittels Script in ein Notesdoc ein.
Positionierung auf Excel Zelle kein Problem xlsheet.range("XYZ").value
Wie krieg ich nun die Finger auf so ne Checkbox resp. kann gucken ob da nun True oder False
drin steht.
(http://)
Gruss aus Baden CH
Erich
-
http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2296846&SiteID=1 ?
-
Danke m3
aber dies hilft mir nicht ganz weiter. Möchte eigentlich nur wissen wie ich den Code zu schreiben habe, dass ich auf diese Checkboxen zugreifen kann.
'====================================================================
' Allgemeine Deklaration
'====================================================================
Dim xlapp As Variant
Dim xlsheet As Variant
Call L_AdrInfo( xlapp, xlsheet )
Function L_AdrInfo( xlapp, xlsheet )
xlapp.Sheets( xls1 ).Select
Feld1 = xlapp.Range( "C11" ).Value
Feld2 = xlapp.Range( "C12" ).Value
Feld3 = xlapp.Range( "C13" ).Value
Feld4 = HIER NUN DER ZUGRIFF AUF DIE CHECKBOX?
End Function
Wie geht das?
-
Code schreibe ich gegen Einwurf großer und kleiner Münzen - je nach Aufwand.
-
Code schreibe ich gegen Einwurf großer und kleiner Münzen - je nach Aufwand.
Nun ich möchte ja keinen Code mit X Zeilen von dir, möchte nur wissen wie die Selection in der entsprechenden Zeile heissen soll. xlapp.wie gehts weiter ("Checkbox1") .value oder wie den?
-
So aus den Stegreif habe ich auch keine Lösung. Was ist denn das für eine Excel-Version. Ich habe das mal testhalber versuchen wollen, aber die Funktion EINBETTEN gibt's bei mir nicht.
Ich kann nur eine Checkbox auf das Tabellenblatt ziehen. Die lässt sich aber wie es aussieht in keinster Weise programmiertechnnisch ansprechen. Das einzigste was ich gefunden habe ist, dass du die Checkbox mit einer Tabellenzelle verknüpfen kannst. In der entsprechenden Zelle steht dann je nach Status der Checkbox Wahr oder Falsch. Den Zellinhalt abzufragen sollte dann ja kein Problem mehr darstellen.
Axel
-
Moin Erich,
hatte das auch mal und dann glaube ich einfach mal nen Makro aufgezeichnet, und das Häkchen in der Box gesetzt.
Den aufgezeichneten Code habe ich mir entsprechend angepasst:
ex.ActiveSheet.Shapes("Werkzeuglager").Select
ex.Selection.Value = True
ex.ActiveSheet.PrintOut
ex.Selection.Value = False
Gruß
Demian
EDIT: Bei mir waren es die Kontrollkästchen aus "Formular" nicht aus "Steuerelementtoolbox".
-
@Demian und @Axel
Danke euch für den Typ, das mit dem verlinken in eine Zelle war der absolute Treffer für meine Umsetzung um an den Inhalt zu kommen.
Vielen Dank und Gruss
Erich
-
der Vollständigkeit halber:
Die Checkbox aus Steuerelementtoolbox lässt sich über OleObjects abfragen:
ex.ActiveSheet.OLEObjects("CheckBox1").Select
MsgBox ex.Selection.Object.Value
Gruß
Demian
-
Hey Demian
das ist noch viel besser so. Funktioniert tadellos. Danke vielmals für deine Unterstüzung!!!!!!!!!!!!!!
Erich
-
der Vollständigkeit halber:
Die Checkbox aus Steuerelementtoolbox lässt sich über OleObjects abfragen:
ex.ActiveSheet.OLEObjects("CheckBox1").Select
MsgBox ex.Selection.Object.Value
Gruß
Demian
Super. Das kannte ich auch noch nicht.
Axel
-
ich bis gestern auch nicht. Makrorekorder an, und Checkbox aus der Leiste hinzugefügt. Ja der Makrorekorder ist ne feine Sache, auch wenn er viel "Müll" aufzeichnet.