Excel 2013 - Kommentare drucken

Falls Du Formatierungen des Textes mit übertragen musst, dann wird es schwieriger.
Das Comment.Shape.OLEFormat.Object ist die TextBox und die hat eine Characters Methode welche dann für jedes Zeichen über die Font Eigenschaft den Zugriff auf die Formatierung ermöglicht.

Ob jedoch Deine kaputte Datei überhaupt noch richtige Kommentare drin hat... das glaube ich weniger, da musst Du selber kucken was das nun für Dinger sind und wie Du die Informationen bekommst.

Dann viel Glück dabei, der Code unten wird wohl hilfreich sein.

Andreas.

Sub Test()

Dim C As Comment

Dim R As Range

Dim Sh As Shape

Dim T As TextBox

Dim All As New Collection

Dim Item

Dim i As Long



'Alle Kommentare in Tabelle1

For Each C In Sheets("Tabelle1").Comments

'Zelle holen

Set R = C.Parent

'Shape holen

Set Sh = C.Shape

'Textbox

Set T = Sh.OLEFormat.Object

'Anzahl fette Zeichen am Anfang

For i = 1 To Len(C.Text)

If Not T.Characters(i, 1).Font.Bold Then Exit For

Next

'In Collection abspeichern: Zelle/Text/Breite/Höhe/Anzahl

All.Add Array(R.Address(0, 0), C.Text, Sh.Width, Sh.Height, i - 1)

Next



'Alle Arrays in der Collection

For Each Item In All

'In Tabelle2

With Sheets("Tabelle2").Range(Item(0))

'Kommentar erzeugen

.AddComment Item(1)

'Shape holen und Größe übertragen

Set Sh = .Comment.Shape

Sh.Width = Item(2)

Sh.Height = Item(3)

'Formatierung

i = Item(4)

If i > 0 Then

Set T = Sh.OLEFormat.Object

T.Characters(1, i).Font.Bold = True

End If

End With

Next

End Sub

Hallo Andreas,

Danke für deine Code-Variante. Durch die Benutzung des Arrays ist diese Variante etwas eleganter als das, was ich mir zusammengebastelt habe.

Ich arbeite gerne mit kleinen Modulen die ich dann bei Bedarf einzeln nutzen oder eben zu einem gewünschten Ablauf zusammensetzten kann.

So bin ich hier auch vorgegangen.

Mit Arrays habe ich noch nicht so viel Erfahrung, daher habe ich mir die Zelladressen und die Kommentartexte in eine eigene Tabelle geschrieben, eigentlich nichts anderes, aber eben auch physikalisch sichtbar.

Diese Tabelle habe ich dann von oben abarbeiten lassen und die neuen Kommentarfelder an alter Stelle wieder erzeugt. Die Größe habe ich über " .Shape.TextFrame.AutoSize = True " definiert, was auch ganz gut funktioniert hat.

Sehr hilfreich war jedenfalls die Berücksichtigung der Textformatierung, die ich so noch nicht kannte. Somit noch ein wenig Handarbeit mehr eingespart.

Die neu eingefügten Kommentare werden jetzt auf jeden Fall auch wieder mit ausgedruckt. Ziel erreicht.

Vielen Dank für deine Unterstützung.

Grüße

Jörg ()

Hallo Andreas,

Danke für die Antwort und das Angebot dir die Datei anzuschauen.

Budget habe ich jedoch keins, versuche im Prinzip selber einem Kollegen bei diesem Problem zu helfen. Und die Zeit ist leider auch etwas knapp, Benötige eine Lösung bis Mitte nächster Woche.

Da ich, wie schon in meinem Hilferuf gesagt, mit allen möglichen Einstellungsvarianten zum Drucken, Konvertieren, "Datei öffnen und reparieren" keinen Erfolg hatte, werde ich es nun, um eine Menge Handarbeit zu sparen, am Wochenende versuchen einen Code
zu basteln um die Kommentare und zugehörigen Zelladressen zum einen auszulesen, dann aus den Zellen zu löschen und an selber Stelle wieder als neuen Kommentar einzulesen. Denn die neu eingefügten Kommentare werden ja wie angezeigt gedruckt.

Habe mir da schon etwas überlegt. Nur wie ich aus einer ausgelesenen Zelladresse (z. B. $R$4), die als String in einer Zelle xyz steht, wieder in einen variablen Cell- oder Rangebezug bringe um die entsprechende Ursprungszelle wieder zum Hinzufügen eines
neuen Kommentars anzusprechen , dafür habe ich noch keine passende Idee, also für den Schritt

Set Kom = "VARIABLE_ZELLADRESSE".AddComment

Grüße

Naja, da kann im Laufe der Zeit viel passiert sein.

Lade die Datei (möglicherweise mit anonymisierten Daten) auf einen Online-Datei-Hoster wie www.dropbox.com hoch und veröffentliche den Download-Link hier.

Ein Makro zur Anonymisierung von Daten in ausgewählten Zellen kann hier heruntergeladen werden:

https://www.dropbox.com/s/rkfxuh85j5wyj9y/modAnonymize.bas?dl=1

Ich komme aber frühestens am 19.2. dazu mir das Anzuschauen, ggf. noch eine Woche später...

Ob sich da überhaupt was machen läßt kann ich auch nicht sagen, einfach wird es wahrscheinlich nicht... hast Du ein Budget?

Ob ein Kommentar gedruckt wird oder nicht läßt sich seit 2000 nur in den Druckeinstellungen angeben:









Andreas.

Hallo Excel Hotze,

Siehe bitte diesen Artikel:
Format Kommentaren auf dem Arbeitsblatt

Dort wird beschrieben wie die Schriftart von Kommentaren gewechselt werden kann.

Beachte bitte dass der Artikel für Excel 2013 gilt.

Sollte es nicht funktionieren, lass mich bitte wissen.

MfG.

Bernard