Thema Datum  Von Nutzer Rating
Antwort
Rot Inhalt Variable formatiert in Kommentar
 27.05.2014 11:59:43 Thomas
NotSolved
27.05.2014 22:53:34 Gast86706
NotSolved
28.05.2014 11:34:17 Gast91444
NotSolved
28.05.2014 21:59:32 Gast5735
NotSolved
28.05.2014 22:37:22 Gast66671
NotSolved
29.05.2014 11:12:50 Gast95269
NotSolved
02.06.2014 07:53:54 Thomas
NotSolved
03.06.2014 04:50:03 Gast95269
NotSolved

Ansicht des Beitrags:
Von:
Thomas		 Datum:
27.05.2014 11:59:43		 Views:
1601		 Rating:
     
Antwort:
  Ja
Thema:
Inhalt Variable formatiert in Kommentar

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.:)

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
---
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???

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Inhalt Variable formatiert in Kommentar
 27.05.2014 11:59:43 Thomas
NotSolved
27.05.2014 22:53:34 Gast86706
NotSolved
28.05.2014 11:34:17 Gast91444
NotSolved
28.05.2014 21:59:32 Gast5735
NotSolved
28.05.2014 22:37:22 Gast66671
NotSolved
29.05.2014 11:12:50 Gast95269
NotSolved
02.06.2014 07:53:54 Thomas
NotSolved
03.06.2014 04:50:03 Gast95269
NotSolved