Supportnet / Forum / Tabellenkalkulation

hi. hier die datei mit meinem problem. [url]http://www.herber.de/bbs/user/5246.xls[/url] wie kann ich es machen, dass wenn unter der selben nr ein neuer kommentar eingegeben wird, der alte kommentar nicht gelöscht sondern noch erhalten bleibt. theoretisch: alten wert aus zelle in variable (A) kopieren, dann den neuen wert (der als variable (B) gespeichert ist) und den alten wert zusammen und nacheinander einfügen. so, das brauche ich jetzt nur noch in der richtigen programsprache. danke euch.

hi $mooth :)

mehr experimentierfreudigkeit :)

hier was auf einen schon bestehenden kommentar in A1 verlangt und ergaenzt :)

minibeispiel :)

gruss nighty

Sub makro01()
With Worksheets(1).Range("A1").Comment
neuertext$ = "hallo"
ActiveCell.Comment.Visible = False
altertext$ = .Text
ActiveCell.Comment.Text Text:=altertext$ + neuertext$
End With
End Sub

hi $mooth :)

hier etwas brauchbereres makro vielleicht :)

es wird von der AKTIVEN zelle ein bestehender kommentar ergaenzt :)

Sub makro01()
adress$ = ActiveWindow.RangeSelection.Address
adress1 = Len(adress$)
For mo = 1 To adress1
If Mid$(adress, mo, 1) = "$" Then
llp = llp + 1
Else
If llp = 1 Then
spalte$ = spalte$ + Mid$(adress, mo, 1)
End If
If llp = 2 Then
zeile$ = zeile$ + Mid$(adress, mo, 1)
zeile1 = Val(zeile$)
End If
End If
Next mo
With Worksheets(1).Range(spalte$ & zeile1).Comment

neuertext$ = "hallo"

rem oder alternativ deine zelle
rem neuertext$ = Cells(1, 2)

ActiveCell.Comment.Visible = False
altertext$ = .Text
ActiveCell.Comment.Text Text:=altertext$ + neuertext$
End With
End Sub

hi $mooth :)

oder hier noch ein nettes makro von einem anderen user ,womit ein bild in originalgroesse dem kommentarfeld uebergeben wird :)

Sub makro01()
'Das Bild erstmal in die Tabelle einfügen
ActiveSheet.Pictures.Insert( _
"C:\Briefe\micha\jpg\zille.jpg" _
).Select
'Breite/Höhe merken
mywidth = Selection.Width
myheight = Selection.Height
'Bild löschen
Selection.Delete

'evtl vorhandenen Kommentar löschen
On Error Resume Next
Range("C16").Comment.Delete
On Error GoTo 0

'Kommentar erstellen
Range("C16").AddComment
Range("C16").Comment.Visible = False

Application.DisplayCommentIndicator = xlCommentAndIndicator
Range("C16").Comment.Shape.Select True

'Jetzt die gemerkte Breite/Höhe auf das Kommentarobjekt übertragen
With Selection.ShapeRange
.Width = mywidth
.Height = myheight
End With
' Selection.ShapeRange.Line.Weight = 0.75

'Kommentarhintergrund mit Bild befüllen
Selection.ShapeRange.Fill.UserPicture _
"C:\Briefe\micha\jpg\zille.jpg"
Range("C16").Select
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End Sub

so zum experimentieren hast jetzt reichlich :)

gruss nighty :)

• Makro erstellen für Kommentar einfügen
• Grafik automatisch in Kommentar einfügen (vom 23.03.2006)
• Excel: Grafik automatisch in Kommentar einfügen