Sub Speichern_Ergebnisse()
Sheets("Ergebnisse").Copy
Range("a1:z220").Copy
Range("a1").PasteSpecial xlPasteValues
Sheets("ergebnisse").Select
Columns("x").Delete Shift:=xlToLeft
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSaveAs).Show "Ergebnis"
Application.DisplayAlerts = True
ActiveWindow.Close
End Sub
was ich nicht hinbekomme das zum Speichername Ergebnis noch der Inhalt der Zelle B1 und der Inhalt der Zelle B2 hinzukommt.Im voraus schon vielen Dank für eure Hilfe
Schöne Grüße
Josi