Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Komentareformat automatisch anpassen

Forumthread: Komentareformat automatisch anpassen

Komentareformat automatisch anpassen
17.07.2008 17:36:31
Alex
Folgendes Problem:
Ich habe ein Makro aus dem automstisch Werte aus einer anderen Zelle in
ein Kommentar übertragen werden.
Nun ist in einigen Fällen das Format für den angeziegten Kommentar zu klein.

Sub Kommentar_Kriterien()
ActiveSheet.Unprotect
Dim i%
Range(Cells(10, 7), Cells(120, 7)).ClearComments
For i = 10 To 120
Cells(i, 7).AddComment Cells(i, 95).Text
Next i
End Sub


Was muss ich tun?
Vielen Dank für Deine Hilfe.
Gruß
Alex

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Komentareformat automatisch anpassen
17.07.2008 18:33:00
Tino
Hallo,
bringt dies den gewünschten Effekt?

Sub Kommentar_Kriterien()
ActiveSheet.Unprotect
Dim i&
Range(Cells(10, 7), Cells(120, 7)).ClearComments
For i = 10 To 120
With Cells(i, 7)
With .AddComment
.Visible = False
.Text Cells(i, 95).Text
End With
.Comment.Shape.TextFrame.AutoSize = True
End With
Next i
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Komentareformat automatisch anpassen
18.07.2008 06:48:00
Alex
Hallo Tino,
vielen Dank für Deinen Einsatz,
Grunsätzlich funktioniert es,jdoch wäre eine Zelnumbruch von nöten?
Weißt Du wie das geht?
Gruß
Alex

AW: Komentareformat automatisch anpassen
18.07.2008 10:05:00
Tino
Hallo,
du kannst anstatt von

&nbsp.Comment.Shape.TextFrame.AutoSize = True


dieses verwenden und die Größe die du benötigst selbst einstellen.

&nbsp.Comment.Shape.Width = 100


&nbsp.Comment.Shape.Height = 100


Oder du machst in deine Zellen wo der Text drin steht,
Manuelle Zeilenumbrüche rein, „Alt+Enter“
Gruß Tino

www.VBA-Excel.de


Anzeige
AW: Komentareformat automatisch anpassen
18.07.2008 14:26:36
Alex
Hallo Tino,
vielen Dank nochmal für Deine Unterstützung.
Deine Arbeit war nicht umsonst.
Ich habe mich jetzt entschieden nicht mit dem Autoformat,
sondern mit individuellen Einstellungen zu arbeiten.
Danke
Alex
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige