bei folgendem Code funktioniert erhalte ich eine Fehlermeldung - Index ausserhalb des gültigen Bereichs:
Sub ws1()
Dim wb As String
wb = "Vergleich " & Tabelle1.Range("H21") & ".xls"
If Tabelle8.Range("I13") = True Then
Workbooks(ws).Worksheets("info").Range("D1") = True
Tabelle8.Range("P13") = Workbooks(ws).Worksheets("info").Range("S1")
Else
Workbooks(ws).Worksheets("info").Range("D1") = False
End If
End Sub
wb wäre Vergleich x.xls.Das aktive Arbeitsblatt (Tabelle8) ist eine Druckübersicht.
Darin wollte ich anklicken, welche Seiten (einer externen Tabelle) in eine Druckroutine übernommen werden sollen.
Der Code sollte mir mit Click in ein Kontrollkästchen (Bezug auf I13) das Arbeitsblatt "Info" in der Tabelle "Vergleich X.xls ein WAHR in Zelle D1 schreiben und mir dann die Zelle S1 in das Aktive Arbeitsblatt Zelle P13 schreiben.
Kann mir jemand weiterhelfen?
Gruß RainerK