Berchnung
15.05.2006 12:37:39
Jacky
habe da einen Code der Kommentare in bestimmten Zellen anzeigt.
Leider wird die Berechnung immer auf Manuel gesetzt. Ich muß dann immer unter Option auf Automatic umstellen oder F9 drücken. Kann mir jemand helfen das die Berechnung immer auf Automatic stehen bleibt?
Gruß Jacky
Hier der Code !!!
Option Explicit
Public Merker As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
'Application.ScreenUpdating = False
Application.DisplayCommentIndicator = xlCommentAndIndicator
Application.Calculation = xlManual
If Merker <> "" Then Worksheets("6GP").Range(Merker).NoteText ""
If Target.Cells.Count <> 1 Then Exit Sub
If pruef(Target) = False Then Exit Sub
Merker = Target.Address
Worksheets("6GP").Range(Merker).NoteText Worksheets("6GP").Cells(Target.Row, 4)
Fehler:
Application.Calculation = xlAutomatic
'Application.ScreenUpdating = True
End Sub
Function pruef(Zelle As Range) As Boolean
Dim n As Byte, Pruef1 As Boolean, pruef2 As Boolean
If Zelle.Row >= 9 And Zelle.Row For n = 6 To 24 Step 2
If Zelle.Column = n Then
pruef2 = True
Exit For
End If
Next n
If Pruef1 = True And pruef2 = True Then pruef = True
End Function