AW: VBA --Blätter ausgeblendet- kein Makro mögl.
16.11.2016 10:49:11
Andreas
Hallo Uwe, Danke erst mal für die Hilfe-
Ja es wird mit "select" gearbeitet.
- es sind viele Makros- habe mal eins eingefügt-
Sichtbar soll nur "Tabelle1; Bearbeiten; Drucken" bleiben - wenn das von Bedeutung wäre.
Sub ERstelle_58_ohne_Unter()
' Makro1 Makro
'''Bildschirmaktivitäten deaktivieren
Application.ScreenUpdating = False
Sheets("Zweierblatt").Select
Sheets("Zweierblatt").Copy Before:=Sheets(1)
Sheets("Zweierblatt (2)").Select
Sheets("Zweierblatt (2)").Name = "Tabelle1"
Range("A9").Select
Sheets("Drucken").Select
Range("A10:Q21").Select
Selection.Copy
Sheets("Tabelle1").Select
ActiveSheet.Paste
Range("A3").Select
Sheets("Drucken").Select
Range("A4:L8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
ActiveSheet.Paste
ActiveWindow.LargeScroll Down:=1
Range("A59").Select
ActiveSheet.Paste
ActiveWindow.ScrollRow = 56
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 48
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 31
ActiveWindow.ScrollRow = 30
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
Range("A26").Select
Sheets("Bearbeiten").Select
Range("A4:Q33").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
ActiveWindow.SmallScroll Down:=-9
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=36
Range("A69").Select
Sheets("Bearbeiten").Select
ActiveWindow.SmallScroll Down:=9
Range("A34:Q62").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=27
Range("A100").Select
Sheets("Drucken").Select
Range("A25:Q39").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
ActiveSheet.Paste
ActiveSheet.Shapes.Range(Array("Picture 30")).Select
Selection.Delete
ActiveSheet.Shapes.Range(Array("Picture 32")).Select
Selection.Delete
End Sub
Kann dann ja meine anderen darauf hin abändern.
Danke erst mal
LG Andreas