Weitere Zellinhalte in Kommentarfeld ergänzen
Constantin
mit nachstehendem Programm wird der Zellinhalt von Spalte A (von Tabelle1) gemäß der Zelladresse, die in Spalte B, steht nach Tabelle2 in ein Kommentarfeld übertragen. Die Tabelle1 wird hierbei durchlaufen, bis alle Einträge abgearbeitet sind.
Ich möchte nun drei weitere Spalteninhalte von Tabelle1 (C, D und E) mit berücksichtigen und ebenfalls in das Kommentarfeld mit aufnehmen. Dabei soll der Inhalt der Zelle C und D (der jeweils gleichen Zeile von Tabelle1) in die nächste Zeile im Kommentarfeld mit einem Schrägstrich getrennt eingefügt werden (z.B. "Text von Zelle C2" / "Text von Zelle D2"). Der Inhalt von Zelle E soll im Kommentarfeld ebenfalls in eine neue Zeile geschrieben werden.
Das Kommentarfeld sollte dann so gefüllt werden:
"Text von Zelle A2 aus Tabelle1"
"Text von Zelle C2 aus Tabelle1" / "Text von Zelle D2 aus Tabelle1"
"Text von Zelle E2 aus Tabelle1"
Wie müsste ich nachstehendes Programm anpassen?
Im voraus Danke für eure Unterstützung.
Constantin
Option Explicit
Sub addComment()
Dim rng As Range, rngCmnt As Range
With Sheets("Tabelle1")
For Each rng In .Range("A1:A" & CStr(.Cells(Rows.Count, 1).End(xlUp).Row))
If rng "" Then
On Error Resume Next
Set rngCmnt = Sheets("Tabelle2").Range(rng.Offset(0, 1).Text)
On Error GoTo 0
Err.Clear
If Not rngCmnt Is Nothing Then
If rngCmnt.Comment Is Nothing Then
rngCmnt.addComment rng.Text
Else
rngCmnt.Comment.Shape.TextFrame.Characters.Text = rngCmnt.Comment.Text & vbCrLf & _
rng.Text
End If
End If
End If
Set rngCmnt = Nothing
Next
End With
Set rng = Nothing
End Sub