VBA Zugriff auf Checkbox in anderer Datei

19/01/2009 - 13:31 von Anja Renard | Report spam
Hallo,
ich habe folgendes Problem mit Excel 2003 SP3:
ich habe eine Quelldatei mit Checkboxen und Optionbuttons auf dem Sheet
"Quelle".
Ich habe eine Zieldatei, von der aus ich über VBA-Code die Werte der
Checkboxen und Optionbuttons der Quelldatei auslesen und ins Sheet "Ziel"
übertragen möchte.

Grundsàtzlich geht der Code zwar, aber nur, wenn ich die Quelldatei mit
aktivierten Makros geöffnet habe. Habe ich die Datei mit deaktivierten Makros
geöffnet, dann bekomme ich beim Zugriff auf die Checkbox/Optionbox die
Fehlermeldung:
"Objekt unterstützt diese Methode oder Eigenschaft nicht"

Der Code, der in der Datei "ziel.xls" steht, sieht folgendermaßen aus:

Sub BerichtInfoInÜbersichtEintragen()

Dim SheetQuelle As Variant
Dim strDateiname As String

strDateiname = "testquelle.xls"
Windows(strDateiname).Activate
Set SheetQuelle = Workbooks(strDateiname).Sheets("Quelle")

With ThisWorkbook.Worksheets("Ziel")
'Zellwertauslesen
.Cells(2, 1) = SheetQuelle.Range("Feld_Name").Value

'Checkbox auslesen
If SheetQuelle.Checkbox_test1.Value = True Then 'Hier gibt es den
beschriebenen Fehler
.Cells(2, 2).Value = "ja"
Else
.Cells(2, 2).Value = "nein"
End If

'Optionbutton1 auslesen
If SheetQuelle.OptionButton_Test1.Value = True Then
.Cells(2, 3).Value = "ja"
Else
.Cells(2, 3).Value = "nein"
End If

'Optionbutton2 auslesen
If SheetQuelle.OptionButton_Test2.Value = True Then
.Cells(2, 4).Value = "ja"
Else
.Cells(2, 4).Value = "nein"
End If
End With
Exit Sub

End Sub



Gibt es vielleicht eine bessere Möglichkeit, auf die
Checkboxen/Optionbuttons zuzugreifen?
 

Lesen sie die antworten

#1 Andreas Killer
19/01/2009 - 14:42 | Warnen spam
On 19 Jan., 13:31, Anja Renard
wrote:

Grundsàtzlich geht der Code zwar, aber nur, wenn ich die Quelldatei mit
aktivierten Makros geöffnet habe. Habe ich die Datei mit deaktivierten Makros
geöffnet, dann bekomme ich beim Zugriff auf die Checkbox/Optionbox die
Fehlermeldung:
"Objekt unterstützt diese Methode oder Eigenschaft nicht"


Ist logisch, wenn keine Makro's aktiv sind, dann wird kein VBA-Code
ausgeführt und dementsprechend werden auch die Objekte (Checkbox/
Optionbox) nicht initialisiert.

Gibt es vielleicht eine bessere Möglichkeit, auf die
Checkboxen/Optionbuttons zuzugreifen?


Nein.

Andreas.

Ähnliche fragen