anders gefragt
12.11.2002 10:15:18
Gerrit
Warum läuft der Code nicht?Private Sub CommandButton1_Click()
Pfad = Application.GetSaveAsFilename("Bestellung_ttmmjj")
If Pfad = False Then
Else
Range("A1:B1").Select
Sheets("Rondo").Copy
ActiveSheet.Protect Password:=gerrit, DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.SaveAs Filename:=Pfad, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("C1:G6").Select ' Hier hält er an!
Selection.Copy
Range("C1:G6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("O1:Q6").Select
Selection.Copy
Range("O1:Q6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.Close
Sheets("Rondo").Select
End If
End Sub