Ich möchte aus einem Arbeitsblatt die Spalten C347:d388 in dem folgenden Macro eingsetzen (hinter der Druckroutiene) so dass Die Datei dann den Namen hat, der in A3 steht und dahinter das heutige Datum mit der Urzeit. Ist das möglich?
Sub Schaltfläche40_BeiKlick() ' Druckrutine
' Makro1 Sortiert Absteigend von Auswertung nach Menge
ActiveSheet.Unprotect Password:="mein Password"
Range("C350:D388").Select
Selection.Sort Key1:=Range("C351"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 9
Range("G9").Select
ActiveSheet.Protect Password:="ggwu21", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWindow.SelectedSheets.PrintOut copies:=1 ' Druckrutine
' Makro2 Sortiert Aufsteigend von Auswertung nach Name
ActiveSheet.Unprotect Password:="mein Password"
Range("C350:D388").Select
Selection.Sort Key1:=Range("D351"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.ScrollRow = 9
Range("G9").Select
ActiveSheet.Protect Password:="mein Password", DrawingObjects:=True, Contents:=True, Scenarios:=True
Ich Danke schon mal für die Anstrengung.
Denk bitte daran, dass ich fast keine VBA Kenntnisse habe.
Alles das was Du hier siehtst, stammt aus diesem Forum und ist ein Macro!!
Grüße von Rüdiger