Blöder Fehler SelectChange
16.11.2005 11:38:38
Gerhard
Habe mir jetzt einen saublöden Fehler eingebaut und find keine Lösung.
Habe mich riesig gefreut über meinen selbt "gestickten" VBA Code doch leider kommt das folgende Macro in Konflikt mit meinen andern Macros in Verbindung mit den Blattschutz.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Static Row As Range
'Call BlattschutzAus
'ActiveSheet.Range("3:200").Font.Size = "10"
'ActiveSheet.Range("3:200").EntireRow.RowHeight = "14"
'ActiveSheet.Range("A3:C200").Interior.ColorIndex = "19"
'ActiveSheet.Range("D3:D200").Interior.ColorIndex = "24"
'ActiveSheet.Range("A3:M200").Font.ColorIndex = xlAutomatic
'Call Blattschutz
'On Error GoTo Schluss
'If Target.Row >= 3 And Target.Row < 200 Then
'If Target.Offset(0, -1) <> "" Then
'If Target.Column = 4 Then
'Call BlattschutzAus
'Vergrößern Target.Offset(0, -1).Address(False, False)
'Rows(Target.Row).Font.Size = "19"
'Rows(Target.Row).RowHeight = "28"
'Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone
'Target.Offset(0, -1).Font.ColorIndex = "3"
'Target.Offset(0, -1).Font.Size = "29"
'Call Blattschutz
'End If
'Else
'If Target.Column = 4 Then Call BlattschutzAus
'Anzeige_löschen
'If Target.Column = 4 Then Call Blattschutz
'End If
'Else
'If Target.Column = 4 Then Call BlattschutzAus
'Call BlattschutzAus
'Anzeige_löschen
'If Target.Column = 4 Then Call Blattschutz
'Call Blattschutz
'End If
'Exit Sub
'Schluss:
'Anzeige_löschen
End Sub
Kann mir bitte jemand helfen!
Wenn das SelectChange aktiv ist kann ich den Blattschutz zwar auschalten aber sobald ich die Zelle wechsle ist der Blattschutz wieder aktiv.
Kann deshalb in den andern Macros nicht mehr kopieren od. einfügen auch wenn ich den Blattschutz auschalte.
Wenn ich das "SelectChange" ausschalte gehts wieder!
Kann ich in einen Macro das SelectChange deaktivieren und am Ende wieder einschalten?
Oder habe ich in dem SelectChange einen Blödsinn gebaut?
Gruss
Gerhard
Anzeige