Codeverbesserung für automatische Kommentare
27.02.2008 16:51:00
Erich
Ich habe gestern hier einen Code gefunden um Kommentare Automatisch nach eintrag eines Buchstabens in einer Zelle zu generieren. Leider funktioniert dieser nicht 100%, Wenn ich in Irgend eine Zelle der Spalte A- schreibe , und der Kommentar ausgefüllt ist, bleibt dieser offen und lässt sich nicht schließen. Weiss jemand was an dem Code falsch ist, damit er problemlos Funktioniert?.
Es funktioniert so sonst prima nur in Spalte A nicht. Und giebt es eine Möglichkeit diesen Code in ein Normales Modul zu packen?
Hier mal der Code:
Option Explicit
Dim adresse As String, zeile As Long, spalte As Long
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A1:IV65536")) Is Nothing And Target.Value = "A" Then
adresse = Target.Address
zeile = Range(adresse).Row
spalte = Range(adresse).Column
Range(adresse).AddComment
Range(adresse).Comment.Visible = True
Range(adresse).Comment.Shape.Select
Range(adresse).Comment.Text Text:="Eingabe:" & Chr(10) & ""
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If ActiveCell.Address = Range(adresse).Offset(0, 1).Address Or ActiveCell.Address = Range( _
adresse).Offset(0, -1).Address Or ActiveCell.Address = Range(adresse).Offset(-1, 0).Address Or _
ActiveCell.Address = Range(adresse).Offset(1, 0).Address Then Exit Sub
If Not Range(adresse).Comment Is Nothing Then
Range(adresse).Comment.Visible = False
End If
On Error GoTo 0
End Sub
Vielen Dank im Vorraus