ich benötige nochmal eure Hilfe:
In meiner Datei möchte ich per Schaltfläche die Tabelle "Auswertung" in eine separate Excel-Datei abspeichern (nur Werte nicht Formeln kopieren) und anschließend einen Blattschutz darüber legen.
Mit Hilfe des Makrorekorders habe ich es bis hier hin geschafft (siehe unten stehenden Code). Jetzt möchte ich aber noch, dass sich das "Speichern unter" Feld öffnet (am besten mit vorgegebenen Pfad und Dateiname). Wenn ich das versuche aufzuzeichnen hängt sich alles komplett auf :D *arrrgh
Hat jemand eine Idee?
Danke im Voraus.
Sub Schaltfläche1_Klicken()
Sheets("Auswertung").Copy 'Blatt in neue Mappe kopieren
With ActiveWorkbook
Call Nur_Werte
ActiveSheet.Protect ("PW")
' .Open
End With
End Sub
Sub Nur_Werte()
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub