Hallo Forum-User,

ich habe da ein ein Problem mit meinem Excel-VBA und hoffe, dass ihr mir hierbei behilflich sein könnt. 

Ich möchte aus Tabelle1 (A1:K?) zeilenweise die Zellwerte in bestimmter Reihenfolge als Kommentar (ebenfalls in spezieller Formatierung) in Tabelle2 z.B. der Zelle A1 zuweisen.

Dabei brauche ich immer den Inhalt der ersten Zeile (A1:K1), da diese die Überschrift enthält. Den Inhalt dieser Zeile (alles Text also String) möchte ich formatiert in den Kommentar schreiben, d.h. wenn ich später die Variable "Kommentar" benutze und sie einer Zelle in Tabelle2 als Kommentar zuweisen möchte sollten die Inhalte aus A1:K1 fett und unterschriechen sein.

Was ich also tue ist, mir eine Variable "Kommentar" anlegen und den Zellinhalt wie ich es möchte dort hineinschreiben:  (kleines Bsp.:)

---
Sub InhaltAuslesen(ByVal Row As Integer)

Kommentar = _
Worksheets(blattname).Cells(1, 2).Value & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Worksheets(blattname).Cells(1, 3).Value & Chr(10) _
& Worksheets(blattname).Cells(Row, 2).Value & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Worksheets(blattname).Cells(Row, 3).Value & Chr(10) & Chr(10) _
& Worksheets(blattname).Cells(1, 9).Value _
& Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) _
& Worksheets(blattname).Cells(1, 4).Value & Chr(10) _
& Worksheets(blattname).Cells(Row, 9).Value & Worksheets(blattname).Cells(Row, 10).Value _
& Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) _
& Worksheets(blattname).Cells(Row, 4).Value & Chr(10) & Chr(10) _
& Worksheets(blattname).Cells(1, 6).Value & Chr(10) & Worksheets(blattname).Cells(Row, 6).Value & Chr(10) & Chr(10) _
& Worksheets(blattname).Cells(1, 5).Value & Chr(10) & Worksheets(blattname).Cells(Row, 5).Value & Chr(10) & Chr(10) _
& Worksheets(blattname).Cells(1, 8).Value & Chr(10) & Worksheets(blattname).Cells(Row, 8).Value & Chr(10) _
& Worksheets(blattname).Cells(1, 7).Value & Chr(10) & Worksheets(blattname).Cells(Row, 7).Value
End Sub

---

Das klappt alles wunderbar ... sowie auch das eintragen in Tabelle2!

Mein Problem ist, dass ich in der Variablen Kommentar nicht die Formate drin habe!!! Also, wenn ich die Variable als Kommentar einer Zelle zuweise ist die Formatierung für alles gleich der Standard. Keine fette und unterstrichene Überschrift (Ja der Inhalt der Zellen A1:K1 ist fett und unterstrichen).

Wie kann ich die Formatierung der Zelle A1:K1 in der Variablen aufrecht erhalten und diese dann bei der Zuweisung als Kommentar so übergeben???

Worksheets("Monate " & Year(DatZeile)).Cells(b, c).AddComment Kommentar

--> so übergebe ich die Variable Kommentar an die Zelle! Wie gesagt leider ohne die Formatierung die ich gerne hätte!

Ich würde mich über eine Antwort sehr freuen.

Thomas