Import aus Excel 2 Notes - Checkbox abfragen

[ERGE]

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.




Gruss aus Baden CH

Erich

[m3]

http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=2296846&SiteID=1 ?

[ERGE]

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?

[m3]

Code schreibe ich gegen Einwurf großer und kleiner Münzen - je nach Aufwand.

[ERGE]

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?

[Axel]

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

[Demian]

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".

[ERGE]

@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

[Demian]

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

[ERGE]

Hey Demian

das ist noch viel besser so. Funktioniert tadellos. Danke vielmals für deine Unterstüzung!!!!!!!!!!!!!!

Erich

[Axel]

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

[Demian]

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.