AW: Warum select nicht ?
16.09.2007 16:47:00
Daniel
Hi
warums einmal geht und einmal nicht geht, hat folgenden Grund:
der Button, mit dem es funktioniert, ist ein Formularfeld und ist mit einem Makro im ALLGEMEINEN Modul verlinkt.
der Button, mit dem es nicht geht, ist ein Steuerelement und hat seinen Code im Modul der jeweiligen Tabelle
der Unterschied zwischen beiden Modulen ist:
im allgemeinen Modul gelten Zellbezüge ohne Sheet-Bezug für das gerade aktive Sheet,
in Modul eines Sheets gelten Zellbezüge onhe Sheet-Bezug immer für Sheet des Moduls.
jetzt kommt noch die Besonderheit hinzu, daß bei einer RANGE, die über Angabe von (CELLS(), CELLS()) definiert wird, der Sheet-Bezug nicht nur für die RANGE, sondern für jede der beiden CELLS einzeln angegeben werden muss, also so:
Shees(x).RANGE(Sheets(x).cells(1,1), Sheets(x).cells(2,2)).select
wenn jetzt innerhalb der Range-Anweisungen für die Cells KEIN Sheet angegeben ist, dann dann beziehen sich die CELLS() auf das Sheet("Start"), weil der Code im Modul vom Sheet("Start") steht, aber die gesamte RANGE bezieht sich durch den Zusatz "ACTIVESHEET.RANGE" auf das Sheet ("ww"), weil das ja gerade aktiv ist.
Somit hast du einen logischen Konflikt in dem Zellbezug, weil 2 verschiedene Sheets angesprochen werden.
das Problem lösen kannst du folgendermassen:
Private Sub CommandButton1_Click()
Sheets("ww").Select
ActiveSheet.Range(ActiveSheet.Cells(21, 2), ActiveSheet.Cells(30, 2)).Select
End Sub
bei dem Code im allgemeinen Modul hast du das Problem nicht, weil hier IMMER gilt "kein Sheet angegeben = aktvies Sheet"
Gruß, Daniel
