Thema Datum  Von Nutzer Rating
Antwort
24.03.2014 14:58:01 knox
NotSolved
24.03.2014 18:29:34 Amicro2000
NotSolved
24.03.2014 18:47:48 Gast85803
NotSolved
Blau Excel - VBA - Zweispaltigen Comment einfügen
 24.03.2014 23:08:29 H27
NotSolved
25.03.2014 15:27:13 knox
NotSolved
25.03.2014 22:38:27 Gast13535
NotSolved
26.03.2014 17:51:41 knox
NotSolved

Ansicht des Beitrags:
Von:
H27		 Datum:
24.03.2014 23:08:29		 Views:
3189		 Rating:
     
Antwort:
  Ja
Thema:
Excel - VBA - Zweispaltigen Comment einfügen

Mahlzeit,

alles eine Frage des (guten) Geschmacks und der Mühe

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub Makro2()
'
' Makro2 Makro
'
' das ist eine Aufzeichnung !
'
    Range("A3").AddComment
    Range("A3").Comment.Visible = False
    Range("A3").Comment.Text Text:="Administrator:" & Chr(10) & "das ist " & Chr(10) & "Kommentar"
    Range("A3").Select
End Sub
 
Sub myComment()
SySerialNo1 = 128444
Systemname1 = "woswasiden"
SySerialNo2 = 555129
Systemname2 = "iwaswos"
Tabulator = "Tabulator"
 
With [A4]
  On Error Resume Next
  .Comment.Delete
  On Error GoTo 0
  .AddComment
  'selbstplaudernd könnt´ma auch zuvor eine Stringvariable basteln
  .Comment.Text Text:=CStr(SySerialNo1)
  .Comment.Text Text:=Chr(32), Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=Systemname1, Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=Chr(10), Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=CStr(SySerialNo2), Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=Chr(32), Start:=Len(.Comment.Text) + 1
  .Comment.Text Text:=Systemname2, Start:=Len(.Comment.Text) + 1
   
  'nur das Tabulator-Kennzeichen vbTab Chr(9) murkst
  '.Comment.Text Text:=Chr(9), Start:=Len(.Comment.Text) + 1
  '.Comment.Text Text:=Tabulator, Start:=Len(.Comment.Text) + 1
   
  With .Comment.Shape
    .Height = 60
    .Width = 160
    With .Fill
      .ForeColor.RGB = RGB(240, 240, 20)
      '.BackColor.RGB = RGB(155, 155, 100)
    End With
    .AutoShapeType = msoShapeParallelogram
    With .TextFrame.Characters  'bei nonprop-Schriften greift Format-Funktion eher
      With .Font
        .Name = "Courier New"
        .Size = 8
        .Bold = True
        .Color = RGB(0, 0, 255)
      End With
    'usw
    End With
    'usw
  End With
   
End With
 
End Sub

Guck auch http://www.vba-forum.de/forum/View.aspx?ziel=17117

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
24.03.2014 14:58:01 knox
NotSolved
24.03.2014 18:29:34 Amicro2000
NotSolved
24.03.2014 18:47:48 Gast85803
NotSolved
Blau Excel - VBA - Zweispaltigen Comment einfügen
 24.03.2014 23:08:29 H27
NotSolved
25.03.2014 15:27:13 knox
NotSolved
25.03.2014 22:38:27 Gast13535
NotSolved
26.03.2014 17:51:41 knox
NotSolved