Office: Kommentare

Hallo wollte fragen ob es möglich ist, in der von mir angehängten Tabelle. Den Text in Spalte A wo hinter der 2stelligen Zahl steht und nicht mehr zu sehen ist, in der jeweiligen Zelle als Kommentar zu wiedergeben?

Danke im voraus!

 

Hallo!

Wenn es sich immer um zweistellige Zahlen handelt:
Dieser Code übernimmt den Zellinhalt als Kommentar und schneidet die ersten drei Stellen weg (zwei Ziffern + 1 Leerzeichen):

Code:

Sub Kommentar()
Dim Zelle As Range, Komm As Comment
For Each Zelle In Columns(1).SpecialCells(xlCellTypeConstants)
On Error Resume Next
Set Komm = Zelle.AddComment
Komm.Text Mid(Zelle, 4, 999)
Next Zelle
End Sub

Bereits vorhandene Kommentare bleiben erhalten!!!

 

OK alles klar funktioniert super! Noch eine Frage wie stelle ich die Breite, Höhe, Position und Schriftgröße der Kommentare ein?

 

Hallo!

Dieser Teil würde dem Kommentar z.B. die Schrift Arial Fett 12pt zuweisen und die Größe des Feldes anpassen:

Code:

With Komm.Shape.TextFrame.Characters.Font
.Name = "Arial"
.Size = 12
.Bold = True
End With
Komm.Shape.TextFrame.AutoSize = True

 

Danke sehr gut! Und was mach ich wen ich das Kommentar nicht links neben der Zelle haben will sondern z.B rechts unten?

 

Hallo!

Mit der Positionierung von Kommentaren kenne ich mich leider nicht aus. Ich meine auch, irgendwo mal gelesen zu haben, dass das bei Kommentaren nicht ganz so einfach sei, da es darauf auch nur begrenzte Zugriffmöglichkeiten gibt.

 

Oh man!;-) Das erstemal wo du mal was nicht weist^^ Was auch komisch ist wen ich z.B bei einem Kommentar auf Bearbeiten gehe und es an eine andere Stelle ziehe, bestätige und dann wieder auf das Kommentar gehe ist es wieder an der gleichen Stelle wie zuvor!
Naja mach nix danke trotzdem!

 

Ich glaube, du kannst die Position nur dann fixieren, wenn der Kommentar ständig eingeblendet ist, aber wenn ich mir deine Tabelle so vorstelle, dann ist das wohl nicht in deinem Sinne. (Und auch dann wüsste ich erstmal noch nicht, wie das geht...)