Workbook_SheetChange -> Excel hängt...
21.09.2016 12:07:02
cH_rI_sI
ich habe nun in meinem Code versucht die Zahlen bei Range / Cells durch Namen zu ersetzen (sofern möglich), damit beim Einfügen von Spalten oder Zeilen die Makros weiterhin funktionieren.
Excel hängt jedoch nach Einfügen einer Spalte (z.B. zwischen Spalte E und F) - aber warum? Wie kann ich das Verhindern?
Anbei der Code welchen ich in "Dieser Arbeitsmappe" hinterlegt habe:
Option Explicit
Private Sub Workbook_Open()
Dim shp As Shape
Dim dattab As Range
Dim datum As Date
Dim i As Long
Dim WSh As Worksheet
Dim mySheet As Worksheet
For Each WSh In Worksheets
If WSh.CodeName = "Tabelle1" Then Set mySheet = WSh: Exit For '
Next
mySheet.Select
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Set shp = ActiveSheet.Shapes("Gerade Verbindung 11")
'Range("A1") = 0
Range("ZählerHeutelinie") = 0
'Set dattab = ActiveSheet.Range("Y15:AQD15")
Set dattab = ActiveSheet.Range(Cells(Range("CalcDate").Row, Range("EndeKW").Column + 1), _
Cells(Range("CalcDate").Row, 16384))
' actual date
datum = Now()
'datum = Range("C9")
' user defined date
'If Range("C8") > 0 Then
'datum = Range("C8")
If Range("Heute") > 0 Then
datum = Range("Heute")
End If
' find the date in the date table
For i = 1 To 1100
If datum = dattab(1, i) Then
'Range("A1") = 1100
Range("ZählerHeutelinie") = 1100
End If
' for dates before first date mark column AD
If datum Wenn ich den Code deaktiviere, kann ich ohne Probleme Spalten oder Zeilen einfügen und alle Makros funktionieren weiterhin - daher muss es fast an den Events liegen...
Vielleicht kann sich das jemand kurz anschauen - schonmal vielen lieben Dank!!!
Lg,
Chrisi