AW: Formate werden nicht eingehalten
20.07.2005 10:28:39
Slugger
Hallo,
so sieht es aus:
Private Sub CommandButton2_Click()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect ("fcn")
Columns("C:C").Select
Selection.EntireColumn.Hidden = False
Columns("F:G").Select
Selection.EntireColumn.Hidden = False
'Columns("J:J").Select
'Selection.EntireColumn.Hidden = False
Columns("L:R").Select
Selection.EntireColumn.Hidden = False
Columns("T:X").Select
Selection.EntireColumn.Hidden = False
Columns("Z:AF").Select
Selection.EntireColumn.Hidden = False
Columns("AH:BE").Select
Selection.EntireColumn.Hidden = False
Columns("BH:BI").Select
Selection.EntireColumn.Hidden = False
Columns("CW:CX").Select
Selection.EntireColumn.Hidden = False
Workbooks.Open "H:\FT13\ARTIKELDATENBANK\Administrator\Datenbank\Musterblaetter.xls"
Workbooks("Excelauswertung.xls").Sheets("Tabelle1").Range("A9:CX10009").Copy
Workbooks("Musterblaetter.xls").Sheets("Tabelle1").Range("A2:CX10000").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("Musterblaetter.xls").Save
Workbooks("Musterblaetter.xls").Close
Columns("C:C").Select
Selection.EntireColumn.Hidden = True
Columns("F:G").Select
'Selection.EntireColumn.Hidden = True
'Columns("J:J").Select
Selection.EntireColumn.Hidden = True
Columns("L:R").Select
Selection.EntireColumn.Hidden = True
Columns("T:X").Select
Selection.EntireColumn.Hidden = True
Columns("Z:AF").Select
Selection.EntireColumn.Hidden = True
Columns("AH:BE").Select
Selection.EntireColumn.Hidden = True
Columns("BH:BI").Select
Selection.EntireColumn.Hidden = True
Columns("CW:CX").Select
Selection.EntireColumn.Hidden = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Range("A1").Activate
ActiveSheet.Protect ("fcn"), AllowFiltering:=True, userinterfaceonly:=True
ActiveSheet.EnableOutlining = True
MsgBox "Vorgang beendet!", vbInformation
End Sub
gruß Slugger