Kommentar aus Zelle

26/06/2015 - 18:36 von Peter Schuerer | Report spam
Hallo Zusammen,

Excel2002.

Mit diesem Makro erstelle ich Kommentare aus Zellen einer anderen Tabelle:

Sub KommentareAkt()
On Error Resume Next 'falls kein Kommentar vorhanden
ActiveSheet.Unprotect (XXXX)
Range("G1").Activate
ActiveCell.Comment.Delete
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=[Tabelle8].Range("C3") & Chr(10) & ""
End Sub

Dieses Makro möchte ich jetzt in der aktiven Tabelle, von "G1" bis "U1",
15 mal nach rechts durchlaufen lassen. Für die aktive Tabelle bekomme
ich die Schleife ja noch hin, nur wie mache ich das mit
[Tabelle8].Range("C3") ...[Tabelle8].Range("Q3")?

Danke und Gruß
Peter
 

Lesen sie die antworten

#1 Claus Busch
26/06/2015 - 18:57 | Warnen spam
Hallo Peter,

Am Fri, 26 Jun 2015 18:36:08 +0200 schrieb Peter Schuerer:

Dieses Makro möchte ich jetzt in der aktiven Tabelle, von "G1" bis "U1",
15 mal nach rechts durchlaufen lassen. Für die aktive Tabelle bekomme
ich die Schleife ja noch hin, nur wie mache ich das mit
[Tabelle8].Range("C3") ...[Tabelle8].Range("Q3")?



probiere es mal so:

Sub KommentareAkt()
Dim i As Long
Dim myStr As String

With ActiveSheet
.Unprotect ("XXXX")

For i = 7 To 21
With .Cells(1, i)
myStr = Sheets("Tabelle8").Cells(3, i - 4) & Chr(10) & ""
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment myStr
.Comment.Visible = False
.Comment.Shape.TextFrame.AutoSize = True
End With
Next
End With
End Sub


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen