Makro automat start - Blatt ausblenden
01.03.2007 15:10:20
Florian
ich verzweifle schon einige Zeit an diesem Makro! Sinn soll sein:
- automatischer Start bei Öffen des Files
- das Blatt, welches bearbeitet wird sollte ausgeblendet sein!
Warum findet er das Makro nicht????
Das folgende Makro ist unter "Diese Arbeitsmappe"
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:5"), "CommandButton1_Click()"
Sheets("Blatt4").Visible = False
'Sheets("Blatt1").Visible = False
Sheets("Blatt2").Visible = False
Sheets("Blatt3").Select
End Sub
Private Sub CommandButton1_Click()
Worksheets("Blatt1").Unprotect
ActiveWindow.SmallScroll Down:=-12
Cells.Replace What:="/50", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
Cells.Replace What:="Exyz", Replacement:="xyz", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Cells.Replace What:="Exyz", Replacement:="xyz", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveWindow.SmallScroll Down:=-27
Range("A2").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll Down:=-27
Sheets("Blatt3").Select
Worksheets("Blatt1").Protect
End Sub
Herzlichen Dank,
FLorian