Optimierung dieses VBA-Codes
12.08.2003 08:22:05
Tobias Müller
hätte vielleicht ein VBA - King Lust mal in diesen Code reinzuschauen, ob ich etwas einfacher gestalten könnte, bzw was weglassen kann!
Const Datei2 = "\\server-spunk\LH_PQ35_V1.0.xls"
Const Datei2Tab1 = "Steuergeräte"
Const Datei2Tab2 = "Systemschaltpläne"
Const Tabellenname1 = "Steuergeraete" 'Name der Tabellen
Const Tabellenname2 = "Systemschaltplaene" 'Name der Tabellen
Private Sub Workbook_Open()
Application.DisplayAlerts = False
On Error Resume Next
Sheets(Tabellenname1).Delete
Sheets(Tabellenname2).Delete
Application.DisplayAlerts = True
'Application.DisplayFullScreen = True
On Error GoTo 0
Workbooks.Open FileName:=Datei2, ReadOnly:=True
Workbooks("LH_PQ35_V1.0.xls").Sheets(Datei2Tab2).Copy After:=Workbooks("BenutzerLH.xls").Sheets(Workbooks("BenutzerLH.xls").Sheets.Count)
Workbooks("LH_PQ35_V1.0.xls").Sheets(Datei2Tab1).Copy After:=Workbooks("BenutzerLH.xls").Sheets(Workbooks("BenutzerLH.xls").Sheets.Count)
Workbooks("LH_PQ35_V1.0.xls").Saved = True
Workbooks("LH_PQ35_V1.0.xls").Close
Sheets(Worksheets.Count - 1).Name = Tabellenname2
Sheets(Worksheets.Count).Name = Tabellenname1
Worksheets("Steuergeraete").Columns("R:W").Hidden = True 'Spalten ausblenden
Worksheets("Steuergeraete").Columns("Y:AB").Hidden = True 'Spalten ausblenden
Worksheets("Steuergeraete").Columns("AG:AK").Hidden = True 'Spalten ausblenden
Worksheets("Tabelle1").Activate 'Zeilennummern
ActiveWindow.DisplayHeadings = False 'ausblenden
Worksheets("Systemschaltplaene").Activate
ActiveWindow.DisplayHeadings = False
Worksheets("Steuergeraete").Activate
ActiveWindow.DisplayHeadings = False
ActiveWorkbook.Saved = True
End Sub
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Anzeige