die inputBox läuft nur bekommen ich das mit der Eintragung in A 1 nicht hin.
hoffe kann mir jemand helfen.
Sub Druck()
IntAnz = InputBox("Wieviele Kopien sollen gedruckt werden?")
ActiveWindow.SelectedSheets.PrintOut Copies:=IntAnz, Collate:=True
ThisWorkbook.Sheets("Tabelle1").Range("A1") = ThisWorkbook.Sheets("Tabelle1").Range("A1") = IntAnz 'Eintragung soll z.B 1 von 5 je nach dem was ich an Kopien eingebe
End Sub