AW: Änderung der Caption einer checkbox
30.01.2023 10:25:57
Hilbman
Das Ändern der Caption für eine Checkbox funktioniert einwandfrei innerhalb einer Excel-Datei:
Sub Caption_ändern()
Dim xx As Worksheet, yy As Worksheet
Set xx = Worksheets("Tabelle1")
Set yy = Worksheets("Tabelle2")
yy.Cells(1, 2) = xx.Cells(4, 2) | funktioniert
yy.Cells(2, 2) = xx.Cells(5, 2)
CheckBox1.Caption = xx.Cells(4, 2) | funktioniert
CheckBox2.Caption = xx.Cells(5, 2)
End Sub
Sowohl das Ändern der Zellen eines anderen Arbeitsblattes als auch das Ändern der Caption der checkboxen funktioniert.
Wenn aber die Checkboxen auf einem Arbeitsblatt einer anderen (zweiten) Excel-Datei sind funktioniert die Änderung der Caption aus der ersten Exceldatei nicht.
Private Sub cmd_Datei_Click()
Dim Datei As String
Dim WBQ As Workbook
Dim xx As Worksheet, yy As Worksheet
Datei =Pfad & "\" & Dateiname
Set xx = Worksheets("Tabelle1") | in Excel-Datei 1
Set WBQ = Workbooks.Open(Datei)
Set yy = WBQ.Worksheets("Termine") | in Excel-Datei 2
yy.cells(1,2) = xx.cells(4, 2) | funktioniert
yy.cells(2,2) = xx.cells(5 ,2)
Checkbox1.Caption = xx.Cells(4, 2) | funktioniert nicht
Checkbox2.Caption = xx.Cells(5, 2)
End Sub
Grüße Hilbman