AW: 1004: Formulierung: setze Zeile 1 auf höhe 90
14.07.2005 16:25:49
Frank
https://www.herber.de/bbs/user/24722.doc
OB DAS WAS MIT DEM BLATTSCHUTZ ZU TUN HAT?
(habe in der Zeile die Sperre entfernt)
Sub speichern()
Dim Datum As String
Datum = Format(Now, "dd.mm.yyyy_hh.mm")
ActiveWorkbook.SaveAs FileName:= _
"U:\Wiehe\Fertigungssteuerung\save\Datei_" & Datum & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Sheets("Grafik").Rows(1).RowHeight = 90
Range("B1").Select
Sheets("Kapazitätsplanung").Select
ActiveSheet.Shapes("Picture 24").Select
Selection.Cut
Sheets("Grafik").Select
ActiveSheet.Paste
Selection.ShapeRange.ScaleWidth 1.01, msoFalse, msoScaleFromTopLeft
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Selection.Cut
Sheets("Kapazitätsplanung").Select
Range("A1").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -20.25
Sheets("Grafik").Select
Rows("1:1").Select
Selection.RowHeight = 5
Sheets("Reihenfolge").Select
ThisWorkbook.save
Application.Quit
End Sub