ich habe hier folgenden Codeschnipsel der auch funktioniert:
Sub Blatt_als_Datei()
datname = InputBox("Dateiname:")
ActiveSheet.Copy
ActiveWorkbook.SaveAs datname
ActiveWorkbook.Close
End Sub
Wie muss ich den Code nun ändern das ich keine Aufforderung bekomme wie die neue Datei heißen soll, sondern der Dateiname selbst aus dem Inhalt der Zelle "B2" benannt wird?
Gruss
Stefan