Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt in Kommetar einfügen

Zellinhalt in Kommetar einfügen
14.06.2007 15:28:56
Dennis
Hallo,
damit meine Exceldatei von einem bestimmten Programm ausgelesen werden kann, müssen die relevanten Felder mit einem Kommentar (= Kurztext für die Zellbezeichnung) versehen werden. Der Text, der in die Kommentarfelder eingefügt werden soll, steht in der Nachbarzelle. Gibt es eine Möglichkeit diese Texte über VBA in die Kommentarfelder einzufügen und dabei am besten noch gleichzeitig den Benutzernamen inkl. Zeilenumbruch zu entfernen?
Gruß,
Dennis

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt in Kommetar einfügen
14.06.2007 15:32:03
Hajo_Zi
Hallo Dennis,
vielleicht hilft Dir dies weiter.

Sub Kommentar_eingeben()
'    Es sind noch keine Kommentare vorhanden
'    Ansonsten Error
Dim I As Integer
'    On Error Resume Next
For I = 106 To 161
With Cells(I, 6)
.AddComment
.Comment.Visible = False    ‚ Kommentar sollen ausgeblendet sein
.Comment.Text Text:=CStr(Cells(I, 7))
With .Comment.Shape
.ScaleWidth 4.24, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.51, msoFalse, msoScaleFromTopLeft
With .TextFrame.Characters
.Font.Size = 18
.Font.Name = « Comic Sans MS »
.Font.Bold = True
End With
End With
End With
Next I
End Sub



Anzeige
AW: Zellinhalt in Kommetar einfügen
14.06.2007 15:49:00
Dennis
Hallo Hajo,
nach ein paar Versuchen habe ich es endlich so hinbekommen wie es wollte.
Vielen Dank!!

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige