ich komme nicht weiter.VBA gut aber trotzdem häng ich fest.
Ich habe eine Datei mit vielen Sheets.
Die namen der sheets beginnen entweder mit "r" oder mit "v"
jetzt soll wenn ein Sheet aktiv ist z.b "vdetet" und auf das druckersymbol geklickt wird dieses sheet gedruckt werden und eines "DAVOR".
wenn ein Sheet aktiv ist das mit dem buchstaben "r" beginnt wie z.b "rdtdtd"
soll dieses Sheet gedruckt werden und eines "DANACH"
wie schaffe ich das ? Bitte um Hilfe.
habe es schon versucht mit diesem Code aber das klappt nicht so wie ich es will.
Set aktsheet = ActiveSheet
If Mid(aktsheet.Name, 1, 1) = "V" Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Worksheets(aktsheet.Index + 1).Select
Else
'erst Rückseite dann Vorderseite
Worksheets(aktsheet.Index - 1).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Danke für Eure Hilfe.