Kommentare umschalten
03.01.2010 18:06:14
Ewald Sadowski
Hallo
habe folgendes Problem:
In einer Mappe sind in Tabelle1 SpalteA Kommentare eingetragen. Diese können aber über Button umgeschaltet werden (Spalten kopieren) Das funktioniert auch.
Nun möchte ich von Tabelle2 auf diese Kommentare zugreifen aber dies funktioniert nicht richtig.
Bei den kommentaren erscheint "#Wert". Wenn ich dann die Formel im Formeleditor öffne, nichts ändere, den Formeleditor schließs, wird der Kommentar angezeigt. Wenn ich dann umschalte, tut sich wieder nichts.
in der Zelle E11 wo der Kommentar erscheinen soll ist folgender Code hinterlegt
Code:
=TakeComment(Tabelle1!A8;E11)
In einem Modul dazu
Code:
Public Function TakeComment(rngQuelle As Range, Optional rngZiel As Range)
If rngZiel Is Nothing Then
Set rngZiel = Application.Caller
End If
With rngZiel
If Not .Comment Is Nothing Then
.Comment.Delete
End If
If rngQuelle.Value <> "" Then
.AddComment rngQuelle(1, 1).Text
TakeComment = "OK"
Else
TakeComment = "leer"
End If
End With
End Function
wenn nach oben geschilderter Methode der Kommentar erscheint, so ist er immer eingeblendet. Muß dann immer von Hand ausgeblendet werden.
Bei der Suche nach dem Fehler "Spur zum Fehler" erhalte ich folgende Meldung:
Der Fehlerdetektiv hat Spurpfeile oder Zirkelbezüge gefunden.
ich find aber keinen Zirkelbezug
habe noch mal einiges probiert:
wenn ich die Daten in Spalte A von Hand lösche und neu eintrage wechselt der Kommentar
Vielleicht liegt der Fehler auch im Code der Button mit denen kopiert wird.
Sie sehen so aus:
Button 1
Code:
Private Sub CommandButton1_Click()
Worksheets("Tabelle1").Range("C1:C15").Copy Destination:=Worksheets("Tabelle1").Range("A1")
End Sub
Button 2
Code:
Private Sub CommandButton2_Click()
Worksheets("Tabelle1").Range("D1:D15").Copy Destination:=Worksheets("Tabelle1").Range("A1")
End Sub
Sonderbar ist nur das es bei Text,Hyperlinks und Steuerelementbezeichnungen funktioniert.
Allerdings ist auch bei der manuellen Änderung der Kommentar eingeblendet.
Habe versucht mit Code:
Comment.Visible = False
auszublenden, funktionierte allerdings auch nicht.
Vielleicht hat ja jemand eine Lösung zum Problem
Gruß