möchte die Celle copieren, aber es soll nur der Wert eingefügt werden.
Was muß ich ändern?
ActiveCell.Offset(0, -5).Copy Sheets("Bögen").Range("E1")
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Bögen").Visible = False
Sheets("Spiele").Select
Danke Gruß Thomas