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

Kommentare einfügen

Kommentare einfügen
17.07.2008 10:55:10
Alex
Folgendes Problem:
In der Spalte 88 (Spalte CJ) in den Zeilen 10 bis 100 stehen Werte.
Dies Werte möchte ich in die Spalte 8 (Spalte H) als Kommentar einfügen.
Was kann ich machen?
Danke für Deine Hilfe.
Gruß
Alex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kommentare einfügen
17.07.2008 11:13:00
Beverly
Hi Alex,

Sub kommentare_einfuegen()
Dim loZeile As Long
Dim coKommentar As Comment
Application.ScreenUpdating = False
For loZeile = 10 To 100
If Cells(loZeile, 88)  "" Then
If Cells(loZeile, 8).Comment Is Nothing Then
Cells(loZeile, 8).AddComment Cells(loZeile, 88).Text
Set coKommentar = Cells(loZeile, 8).Comment
coKommentar.Shape.OLEFormat.Object.AutoSize = True
End If
End If
Next loZeile
Application.ScreenUpdating = True
Set coKommentar = Nothing
End Sub




Anzeige
AW: Kommentare einfügen
17.07.2008 11:17:00
UweD
Hallo Alex
so z.B.

Sub Kommentar()
Dim i%
Range(Cells(10, 8), Cells(100, 8)).ClearComments
For i = 10 To 100
Cells(i, 8).AddComment Cells(i, 88).Text
Next i
End Sub


Gruß UweD

AW: Kommentare einfügen
17.07.2008 12:05:59
Alex
Danke Beverly und Uwe,
hat sehr gut geklappt.
Gruß
Alex

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige