AW: Makro funktioniert erst beim 2.mal
25.01.2007 17:58:18
holger
hi horst
da ist noch ne ganze menge...
Private Sub Workbook_Activate()
meineansicht
UserForm1.Show
End Sub
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'normalansicht
'End Sub
'
Private Sub Workbook_Deactivate()
'normalansicht
'End Sub
Sub speichern()
Dim Dateiname
ChDir "G:\USER\WB5\Bewohner"
Dateiname = Application.GetSaveAsFilename(InitialFilename:="PZB " & Date & ".xls", fileFilter:="alle Dateien (*.*), *.*")
If Dateiname False Then
MsgBox "Speichern unter " & Dateiname
ThisWorkbook.SaveAs Dateiname
End If
normalansicht
End Sub
Sub Abbruch()
ThisWorkbook.Saved = True
Application.Quit
normalansicht
End Sub
Private Sub workbook_open()
meineansicht
End Sub
Sub normalansicht()
Dim I As Integer
Application.ScreenUpdating = False
For I = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(I).Activate
ActiveWindow.DisplayHeadings = True
Next I
Application.ScreenUpdating = True
Sheets(1).Activate
Application.DisplayFullScreen = False
Application.DisplayStatusBar = True
'bildlaufleiste und Karteireiter
Application.DisplayScrollBars = True
'Menü
Application.CommandBars("Worksheet Menu Bar").Enabled = True
'kontextmenü_maus
Application.CommandBars("Cell").Enabled = True
End Sub
Sub meineansicht()
' alle Spalten- und Zeilenköpfe ausblenden
Dim I As Integer
Application.ScreenUpdating = False
For I = 1 To ActiveWorkbook.Worksheets.Count
Worksheets(I).Activate
ActiveWindow.DisplayHeadings = False
Next I
Application.ScreenUpdating = True
Sheets(1).Activate
Application.DisplayFullScreen = True
Application.DisplayStatusBar = False
Application.DisplayScrollBars = False
Application.DisplayFormulaBar = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.CommandBars("Cell").Enabled = False
End Sub
...das ist jetzt alles...hilft Dir das...?und Mir dann auch...smile...?