Discussion:
Kommentar per VBA ändern
(zu alt für eine Antwort)
Daniel Engelschalt
2004-06-29 07:25:53 UTC
Permalink
Hallo,

im Workbook_Open habe ich folgenden Code, um einen Kommentar, je nach
Sprachauswahl, zu setzen. In der Messagebox wird der richtige Kommentar
angezeigt, jedoch nicht in die Zelle übertragen bzw. der Standardkommentar
überschrieben.

Dim NewComment as String

[Kommentar holen]

MsgBox (NewComment) ' <-- zeigt mir den richtigen Kommentar an
Worksheets("Tabelle").Range("FilloutComment").Comment.Text
Text:=NewComment ' <-- passiert gar nichts

Auch ein ...Comment.Text NewComment bringt nichts. Setze ich aber ein
...Comment.Text "Blabla", geht das...?

Hat jemand einen Tip?

Daniel
Stefan Onken
2004-06-29 16:34:09 UTC
Permalink
hallo Daniel,
bei mir funktioniert dein Code, ausprobiert mit

Sub Komm()
Dim NewComment As String
NewComment = Date & vbNewLine & Time
MsgBox (NewComment)
Worksheets("Tabelle1").Range("FilloutComment"). _
Comment.Text Text:=NewComment
End Sub

Ist bei dir der Name der Tabelle evtl nicht richtig? Da hast du ("Tabelle")
stehen.
Bei einem On Error Resume Next würde ein Fehler so übersprungen werden.

Gruß
stefan
Post by Daniel Engelschalt
Hallo,
im Workbook_Open habe ich folgenden Code, um einen Kommentar, je nach
Sprachauswahl, zu setzen. In der Messagebox wird der richtige Kommentar
angezeigt, jedoch nicht in die Zelle übertragen bzw. der Standardkommentar
überschrieben.
Dim NewComment as String
[Kommentar holen]
MsgBox (NewComment) ' <-- zeigt mir den richtigen Kommentar an
Worksheets("Tabelle").Range("FilloutComment").Comment.Text
Text:=NewComment ' <-- passiert gar nichts
Auch ein ...Comment.Text NewComment bringt nichts. Setze ich aber ein
...Comment.Text "Blabla", geht das...?
Hat jemand einen Tip?
Daniel
MaRuSoft
2004-06-29 16:41:16 UTC
Permalink
hallo Daniel
mit folgendem code müsste es gehen

Sub Kommentar()
Dim NewComment As String
NewComment = "Kommentar"
Range("FilloutComment").ClearComments
Range("FilloutComment").AddComment NewComment
End Sub

MfG
MaRuSoft
http://www.marusoft.de
Post by Daniel Engelschalt
Hallo,
im Workbook_Open habe ich folgenden Code, um einen Kommentar, je nach
Sprachauswahl, zu setzen. In der Messagebox wird der richtige Kommentar
angezeigt, jedoch nicht in die Zelle übertragen bzw. der Standardkommentar
überschrieben.
Dim NewComment as String
[Kommentar holen]
MsgBox (NewComment) ' <-- zeigt mir den richtigen Kommentar an
Worksheets("Tabelle").Range("FilloutComment").Comment.Text
Text:=NewComment ' <-- passiert gar nichts
Auch ein ...Comment.Text NewComment bringt nichts. Setze ich aber ein
....Comment.Text "Blabla", geht das...?
Hat jemand einen Tip?
Daniel
Daniel Engelschalt
2004-06-30 13:30:50 UTC
Permalink
Hallo Manfred, hallo Stefan,

vielen Dank für die Antworten.

Mit dem unten stehenden Beispiel klappt das sehr gut - nur leider habe ich
jetzt ein anderes Problem: die Mappe ist, bis auf die Eingabefelder, mit
Passwort gesperrt (Extras->Schutz->Blattschutz). Excel weigert sich
zurecht, einen neuen Kommentar hinzuzufügen (ClearComments geht nicht,
bringt aber auch keinen Fehler :) In der NG wurde folgendes Beispiel
angeführt, um für das UI den Schutz aufrecht zu erhalten, Makros aber
auszuführen:

Worksheets("Tabelle").Protect _
Password:="MyPassword", _
UserInterfaceOnly:=True

Aber leider geht auch danach nichts - immer wieder die Fehlermeldung:
"Anwendungs- oder objektorientierter Fehler". Selbst ein:

ActiveWorkbook.Unprotect Password:="MyPassword"

hilft nicht weiter.

Jetzt bin ich etwas ratlos...

Daniel

On Tue, 29 Jun 2004 09:41:16 -0700, MaRuSoft
Post by Stefan Onken
hallo Daniel
mit folgendem code müsste es gehen
Sub Kommentar()
Dim NewComment As String
NewComment = "Kommentar"
Range("FilloutComment").ClearComments
Range("FilloutComment").AddComment NewComment
End Sub
MfG
MaRuSoft
http://www.marusoft.de
Post by Daniel Engelschalt
Hallo,
im Workbook_Open habe ich folgenden Code, um einen Kommentar, je nach
Sprachauswahl, zu setzen. In der Messagebox wird der richtige Kommentar
angezeigt, jedoch nicht in die Zelle übertragen bzw. der
Standardkommentar
überschrieben.
Dim NewComment as String
[Kommentar holen]
MsgBox (NewComment) ' <-- zeigt mir den richtigen Kommentar an
Worksheets("Tabelle").Range("FilloutComment").Comment.Text
Text:=NewComment ' <-- passiert gar nichts
Auch ein ...Comment.Text NewComment bringt nichts. Setze ich aber ein
....Comment.Text "Blabla", geht das...?
Hat jemand einen Tip?
Daniel
stefan onken
2004-06-30 14:56:57 UTC
Permalink
hallo Daniel,
probiers mal so:

Sub Kommentar()
Dim NewComment As String
NewComment = "Kommentar"
Worksheets("Tabelle").Unprotect _
Password:="MyPassword"
Range("FilloutComment").ClearComments
Range("FilloutComment").AddComment NewComment
Worksheets("Tabelle").Protect _
Password:="MyPassword"
End Sub

Gruß
stefan
-----Originalnachricht-----
Hallo Manfred, hallo Stefan,
vielen Dank für die Antworten.
Mit dem unten stehenden Beispiel klappt das sehr gut -
nur leider habe ich
jetzt ein anderes Problem: die Mappe ist, bis auf die
Eingabefelder, mit
Passwort gesperrt (Extras->Schutz->Blattschutz). Excel
weigert sich
zurecht, einen neuen Kommentar hinzuzufügen
(ClearComments geht nicht,
bringt aber auch keinen Fehler :) In der NG wurde
folgendes Beispiel
angeführt, um für das UI den Schutz aufrecht zu
erhalten, Makros aber
Worksheets("Tabelle").Protect _
Password:="MyPassword", _
UserInterfaceOnly:=True
Aber leider geht auch danach nichts - immer wieder die
ActiveWorkbook.Unprotect Password:="MyPassword"
hilft nicht weiter.
Jetzt bin ich etwas ratlos...
Daniel
On Tue, 29 Jun 2004 09:41:16 -0700, MaRuSoft
Post by Stefan Onken
hallo Daniel
mit folgendem code müsste es gehen
Sub Kommentar()
Dim NewComment As String
NewComment = "Kommentar"
Range("FilloutComment").ClearComments
Range("FilloutComment").AddComment NewComment
End Sub
MfG
MaRuSoft
http://www.marusoft.de
Post by Daniel Engelschalt
Hallo,
im Workbook_Open habe ich folgenden Code, um einen
Kommentar, je nach
Post by Stefan Onken
Post by Daniel Engelschalt
Sprachauswahl, zu setzen. In der Messagebox wird der
richtige Kommentar
Post by Stefan Onken
Post by Daniel Engelschalt
angezeigt, jedoch nicht in die Zelle übertragen bzw.
der
Post by Stefan Onken
Post by Daniel Engelschalt
Standardkommentar
überschrieben.
Dim NewComment as String
[Kommentar holen]
MsgBox (NewComment) ' <-- zeigt mir den richtigen
Kommentar an
Post by Stefan Onken
Post by Daniel Engelschalt
Worksheets("Tabelle").Range
("FilloutComment").Comment.Text
Post by Stefan Onken
Post by Daniel Engelschalt
Text:=NewComment ' <-- passiert gar nichts
Auch ein ...Comment.Text NewComment bringt nichts.
Setze ich aber ein
Post by Stefan Onken
Post by Daniel Engelschalt
....Comment.Text "Blabla", geht das...?
Hat jemand einen Tip?
Daniel
.
Loading...