AddComment: mal geht's, mal nicht...?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andre,

find ich toll, dass Du Dich der Sache noch weiter annimmst, obwohl es eine Lösung gibt. Danke dafür. Aber zwei Fragen habe ich dazu:

Zunächst eine zur Sache: ich habe Deinen neuen Vorschlag ausprobiert: Fehlermeldung kommt keine, aber er tut nicht was er soll:

Er setzt nicht "t + 5" als Kommentar ein, sondern "t + 1". Was mache ich da noch falsch? Wohlgemerkt, er ändert einen vorher drin stehenden Kommentar sehr wohl in einen neuen, aber eben nicht in den richtigen!

Zum zweiten eine generelle Frage: ich gestehe ja freimütig, dass der Code nicht in allen Teilen allein auf meinem Mist gewachsen ist. Und dass er ohne Fehlerbehandlung auskommt, rührt einfach daher, dass ich ihn mir mit Eurer wertvollen Hilfe eben so zusammenstellen konnte.
Aber ich lese auch immer wieder, dass man auf Dinge wie "on error resume next", "goto" oder ähnliches nach Möglichkeit verzichten sollte. Stattdessen sollte man sich gefälligst darum bemühen, den Code "sauber auszuprogrammieren". Vielleicht könnte ich da ein bisschen Nachhilfe bekommen. Welche der beiden Varianten ist in dem Beispiel hier vorzuziehen. Und vielleicht ein klitzekleines WARUM dazu.

Vielen Dank schon mal (falls Du noch Lust hast) und Grüße
Franz

hallo franz,

schreibe den code mal so:

On Error Resume Next
Cells(t + 1, m).AddComment.Visible = False
Cells(t + 1, m).Comment.Text Text:=Chr(10) & Cells(t + 5, m).Value & Chr(10)
On Error GoTo 0

also vorne den range weg, und ein paar klammern weniger.
range(cells...) nimmt man besser nur, wenn man einen bereich mehrerer zellen verwendet, also z.b. range(cells(1,1),cells(2,2)
die ursprüngliche variante hat mir der debugger angemosert.

das mit dem on error ist gut zu gebrauchen, wenn man es gezielt einsetzt. wie im beispiel, wo dadurch das if ... gespart wird, oder wenn man eigene fehlerbehandlungen ansetzt, und wenn es nur eine msgbox ist.
durch on error goto 0 setzt man die fehlerbehandlung wieder aus.
z.b.

Sub Fehlerbehandlung()
On Error GoTo errorhandler 'Sprung zu Fehlerbehandlung
  Worksheets("tabelle11").Activate
On Error GoTo 0  'Rücksetzen der Fehlerbehandlung
  MsgBox "macht das hier Sinn? " & Chr(10) & ActiveSheet.Name
Exit Sub  'Verlassen des Makro
errorhandler:  'Fehlerbehandlung
  MsgBox "Sheet Tabelle11 nicht vorhanden"
Resume Next  'Rückkehr zur nächsten Zeile - nur "Resume" zur gleichen Zeile
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

manche schreiben es allerdings an den anfang, damit das makro durchläuft und sie sich keine weiteren gedanken machen brauchen....

gruss andre

Beliebteste Forumthreads (12 Monate)

AddComment: mal geht's, mal nicht...?

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread