Code funkt in Makro aber nicht in Scahltfläche
14.08.2003 17:15:36
Mark-O
der folgende Code funktioniert, wenn ich ihn als Makro starte. Möchte ich ihn jedoch von einem Command Button aus starten, dann kommt Laufzeitfehler 1004 (Select-Methode des Range-Objektes konnte nicht ausgeführt werden). Der Debugger zeigt mit diese Zeile als Fehler an:
-> Range("E3").Select
Private Sub CommandButton27_Click()
' Auf Seite ("Fertigungsstückliste") wechseln
Sheets("Fertigungsstückliste").Select
Range("E3").Select
ActiveCell.FormulaR1C1 = "='Tabelle1'!C6"
' Spalte B und C auswählen und ausblenden
Columns("B:C").Select
Range("B7").Activate
Selection.EntireColumn.Hidden = True
' Nur Zeilen anzeigen, deren Wert bei (Field 3) größer Null ist
Selection.AutoFilter Field:=3, Criteria1:=">0", Operator:=xlAnd
' Nur Zeilen anzeigen, deren Wert anthrazit NICHT enthält
Selection.AutoFilter Field:=6, Criteria1:="<>*anthrazit*", Operator:= _
xlAnd
' Nur Zeilen anzeigen, deren Wert bei(Field 8) Farb NICHT enthält
Selection.AutoFilter Field:=8, Criteria1:="<>*Farb*", Operator:=xlAnd
' Nur Zeilen anzeigen, deren Wert bei (Field 10) ja NICHT enthält
Selection.AutoFilter Field:=10, Criteria1:="<>*ja*", Operator:=xlAnd
End Sub
Wie geschrieben, über Makro geht, über Schaltfläche nicht. Woran kann das liegen?
Danke und Gruß
Mark