Office 2016 - Makro läuft nicht mehr ganz rund
09.05.2018 19:42:05
Heinz
Seit wir in der Firma auf Windows10 & Office 2016 umgestellt haben, läuft ein Code nicht mehr rund.
Mit einem Doppelklick in einen Tab.Blatt werden die Werte kopiert und in Sheets "MA" eingefügt.
Es werden die Werte auch kopiert und eingefügt aber es dauert ewig lange.
Hat jemand eine Ahnung warum?
Jetzt die 2 Makros
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A3:A154")) Is Nothing Then
Cancel = True
'Cancel = Not Target.Column = 1
Sheets("MA").Activate
Suche_Namen Target
End If
End Sub
Sub MA_Kopieren()
ScreenUpdating = False
EnableEvents = False
'
Sheets("MA").Range("C60:AG60").Copy 'Jänner
Range("C3").PasteSpecial
Sheets("MA").Range("C61:AE61").Copy 'Februar
Range("C7").PasteSpecial
Sheets("MA").Range("C62:AG62").Copy 'März
Range("C11").PasteSpecial
Sheets("MA").Range("C63:AF63").Copy 'April
Range("C15").PasteSpecial
Sheets("MA").Range("C64:AG64").Copy 'Mai
Range("C19").PasteSpecial
Sheets("MA").Range("C65:AF65").Copy 'Juni
Range("C23").PasteSpecial
Sheets("MA").Range("C66:AG66").Copy 'Juli
Range("C27").PasteSpecial
Sheets("MA").Range("C67:AG67").Copy 'August
Range("C31").PasteSpecial
Sheets("MA").Range("C68:AF68").Copy 'September
Range("C35").PasteSpecial
Sheets("MA").Range("C69:AG69").Copy 'Oktober
Range("C39").PasteSpecial
Sheets("MA").Range("C70:AF70").Copy 'November
Range("C43").PasteSpecial
Sheets("MA").Range("C71:AG71").Copy 'Dezember
Range("C47").PasteSpecial
Sheets("MA").Range("C2").Select
ScreenUpdating = True
EnableEvents = True
End Sub
Danke & Gruß, Heinz