Comment Threaded in Excel 2016

Moin liebes Forum,
ich hoffe Ihr könnt mir helfen.
Ich schreibe an einem Excelprogramm das bereits bei etlichen Kunden im Einsatz ist.
Bei einem Kunden verzweifele ich allerdings.
Es geht um commentthreaded.
Der Kunde hat Excel 2016 32 BIT im Einsatz.
Allerdings läuft immer ein Befehlt CommentThreaded auf ein Fehler.
Hintergrund: in diesem Excel ist der Befehl nicht enthalten, VBA kenn bei diesem Kunden einfach kein Threaded Comment.
Das scheint nur bei diesem Kunden der Fall zu sein, ich bekomme es auch einfach nicht abgefangen.
Ich frage die Excelversion an (Application.version) ob die Version 16 vorliegt (Läuft auch bei andern Kunden).
Dann habe ich ein On Error goto verbaut
Ich frage auf Nothing ab.
Trotzdem läuft der Aufruf von CommentThreaded auf einen Fehler, da dieser Befehlt einfach nicht vorhanden ist.
Was kann ich noch machen um den Fehler abzufangen, jemand eine Idee?
Oder woran kann es liegen dass Excel 2016 den Befehl nicht kennt?
Liegt es ggf. an 32 Bit Version?
Fehlendes Update VBA seitig?
Irgendwie weiß ich langsam nicht weiter.
Besten Dank für eure Hilfe
Katja

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Moin Hansueli,
absolut deiner Meinung.
Ich hatte auch davor gewarnt dieses Feature zu implementieren, da ich es programmatisch als schwierig empfinde.
Üblicherweise wissen ja immer alle mehr als die Person die sich damit beschäftigt.....
Ich habe mal meine aktuelle Fehlerbehandlung angefügt:
Evtl. habe ich ja einfach irgendwas übersehen und euch fällt es sofort auf.
Ihr seht die ist schon recht aufwendig geworden, ist halt immer weiter gewachsen.
Gruß
Katja


If IsNumeric(left(Application.version, 2)) Then
If CInt(left(Application.version, 2)) >= 16 Then
'28477 KB 20.5.2020 Anpassung der Fehlerbehandlung. Es gibt eben doch Excel 2016 Versionen wo das nicht Lauffähig ist
On Error GoTo jumpOvera
If Not lactsheet.Range("c1").CommentThreaded Is Nothing Then
lactsheet.Range("c1").CommentThreaded.Delete
End If
On Error GoTo Jumpover2a
jumpOvera:
lactsheet.Range("C1") = ""
Jumpover2a:
On Error GoTo handleCancel
Else
lactsheet.Range("C1") = ""
End If
Else
lactsheet.Range("C1") = ""
End If

Sub t() Set lactsheet = ActiveSheet If IsNumeric(Left(Application.Version, 2)) Then If CInt(Left(Application.Version, 2)) >= 16 Then '28477 KB 20.5.2020 Anpassung der Fehlerbehandlung. Es gibt eben doch Excel 2016 Versionen wo das nicht Lauffähig ist On Error GoTo jumpOvera If Not lactsheet.Range("c1").CommentThreaded Is Nothing Then lactsheet.Range("c1").CommentThreaded.Delete End If On Error GoTo Jumpover2a jumpOvera: lactsheet.Range("C1") = "" MsgBox "x" Jumpover2a: On Error GoTo handleCancel Else lactsheet.Range("C1") = "" End If Else lactsheet.Range("C1") = "" End If Exit Sub handleCancel: MsgBox "y" End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread