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
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
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