HERBERS Excel-Forum - das Archiv
Kommentare ergänzen/bearbeiten
Larissa

Hallo liebe Community,
ich bin dabei folgendes umzusetzen:
Ich möchte zu bestimmten Zellen Kommentarfelder hinzufügen. Das funktioniert auch soweit, aber habe folgendes kleines Problem, das ich mit Google bisher nicht gelöst habe:

rng.AddComment
rng.Comment.Visible = False
'Bisher nur ein Artikel in der Notiz
'muss möglich sein, dass mehrere Artikel abgespeichert werden..
rng.Comment.Text Text:="Artikel:" & ArtX(x)
Ich möchte also Artikelnamen hinzufügen. Da das ganze aber in einer For-Schleife passiert, überschreibt er immer die Kommenate. Ein Comment.Edit Befehl habe ich nicht gefunden.
Habt ihr Ideen? Ich freue mich auf Eure Anregungen!

geht es vielleicht mit Auslesen des alten Stands?
lupo1

rng.AddComment
rng.Comment.Visible = False
'Bisher nur ein Artikel in der Notiz
'muss möglich sein, dass mehrere Artikel abgespeichert werden..
rng.Comment.Text Text:=rng.Comment.Text & vbLf & "Artikel:" & ArtX(x)
ungetestet

Könnte sein, Lupo, aber zumindest früher gab's ...
Luc:-?

…da mal LängenBeschränkungen, die ab dem 256.Zeichen wohl ein etwas anderes Vorgehen (mit Characters-Methode) erforderten. Aber viell geht's ja jetzt auch so…
Gruß, Luc :-?
Besser informiert mit …

AW: Kommentare ergänzen/bearbeiten
selli

hallo larissa,
rng.Comment.Text Text:=rng.Comment.Text & "Artikel:" & ArtX(x)
gruß
selli

AW: Kommentare ergänzen/bearbeiten
Larissa 


rng.Comment.Text Text:=rng.Comment.Text & "Artikel:" & ArtX(x) & vbCrLf
Jetzt sogar noch mit Zeilenumbruch! Vielen Dank für die Hilfe!!!

AW: Kommentare ergänzen/bearbeiten
Larissa

Ich habe noch eine kleine Frage und zwar möchte ich folgendes tun:
rng.Comment.Text Text:=rng.Comment.Text & ArtX(x) & " (" & MenX(x) & ")" & vbCrLf & help & "/1,7" &vBCrLf
Jetzt ist das Ergebnis aber bei mehreren Artikeln folgendes: 
Artikel1(384)
0,8111616/1,7
Artikel2(0)
0,8111616/1,7
Ich möchte aber nur ein Verhältnis am Ende stehen haben. Also so ist die Ausgabe gewünscht:
Artikel1(384)
Artikel2(0)
0,8111616/1,7
Was muss ich dafür tun? Habt ihr Anregungen? Vielen lieben Dank!

Kommentare ergänzen/bearbeiten
Larissa

Hallo liebe Community,
ich bin dabei folgendes umzusetzen:
Ich möchte zu bestimmten Zellen Kommentarfelder hinzufügen. Das funktioniert auch soweit, aber habe folgendes kleines Problem, das ich mit Google bisher nicht gelöst habe:

rng.AddComment
rng.Comment.Visible = False
'Bisher nur ein Artikel in der Notiz
'muss möglich sein, dass mehrere Artikel abgespeichert werden..
rng.Comment.Text Text:="Artikel:" & ArtX(x)
Ich möchte also Artikelnamen hinzufügen. Da das ganze aber in einer For-Schleife passiert, überschreibt er immer die Kommenate. Ein Comment.Edit Befehl habe ich nicht gefunden.
Habt ihr Ideen? Ich freue mich auf Eure Anregungen!

geht es vielleicht mit Auslesen des alten Stands?
lupo1

rng.AddComment
rng.Comment.Visible = False
'Bisher nur ein Artikel in der Notiz
'muss möglich sein, dass mehrere Artikel abgespeichert werden..
rng.Comment.Text Text:=rng.Comment.Text & vbLf & "Artikel:" & ArtX(x)
ungetestet

Könnte sein, Lupo, aber zumindest früher gab's ...
Luc:-?

…da mal LängenBeschränkungen, die ab dem 256.Zeichen wohl ein etwas anderes Vorgehen (mit Characters-Methode) erforderten. Aber viell geht's ja jetzt auch so…
Gruß, Luc :-?
Besser informiert mit …

AW: Kommentare ergänzen/bearbeiten
selli

hallo larissa,
rng.Comment.Text Text:=rng.Comment.Text & "Artikel:" & ArtX(x)
gruß
selli

AW: Kommentare ergänzen/bearbeiten
Larissa 


rng.Comment.Text Text:=rng.Comment.Text & "Artikel:" & ArtX(x) & vbCrLf
Jetzt sogar noch mit Zeilenumbruch! Vielen Dank für die Hilfe!!!

AW: Kommentare ergänzen/bearbeiten
Larissa

Ich habe noch eine kleine Frage und zwar möchte ich folgendes tun:
rng.Comment.Text Text:=rng.Comment.Text & ArtX(x) & " (" & MenX(x) & ")" & vbCrLf & help & "/1,7" &vBCrLf
Jetzt ist das Ergebnis aber bei mehreren Artikeln folgendes: 
Artikel1(384)
0,8111616/1,7
Artikel2(0)
0,8111616/1,7
Ich möchte aber nur ein Verhältnis am Ende stehen haben. Also so ist die Ausgabe gewünscht:
Artikel1(384)
Artikel2(0)
0,8111616/1,7
Was muss ich dafür tun? Habt ihr Anregungen? Vielen lieben Dank!

Bewerten Sie hier bitte das Excel-Portal