AW: Inhalte aus diversen Zellen in einen Kommentar
29.08.2019 09:30:04
EtoPHG
Hallo Alexander,
Diese Codes in ein Standardmodul:
Option Explicit
Sub AdjustComments()
Dim lRow As Long
For lRow = Cells(Rows.Count, 6).End(xlUp).Row To 4 Step -1
InsertComment Cells(lRow, 6)
Next lRow
End Sub
Sub InsertComment(rC As Range)
If Not rC.Comment Is Nothing Then rC.Comment.Delete
rC.AddComment rC.Offset(-rC.Row + 2, -5) & ": " & rC.Offset(, -5) & vbCrLf & _
rC.Offset(-rC.Row + 2, -4) & ": " & rC.Offset(, -4) & vbCrLf & _
rC.Offset(-rC.Row + 2, -3) & ": " & rC.Offset(, -3) & vbCrLf & _
rC.Offset(-rC.Row + 2, -2) & ": " & rC.Offset(, -2) & vbCrLf & _
rC.Offset(-rC.Row + 2, 1) & ": " & rC.Offset(, 1) & vbCrLf & _
rC.Offset(-rC.Row + 2, 2) & ": " & rC.Offset(, 2)
rC.Comment.Shape.Height = 75
rC.Comment.Shape.Width = 180
End Sub
Das Makro AdjustComments kann jederzeit aufgerufen werden und ersetzt alle Kommentare in Spalte 6 (F).
Diesen Code in das Tabellenblatt mit den Daten (dein Code komplett ersetzen):
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rC As Range
For Each rC In Target
If rC.Column = 6 And rC.Row > 3 Then InsertComment rC
Next rC
End Sub
Reagiert sobald in Spalte F neue Texte eingefügt werden.
Gruess Hansueli