Kommentar einfügen nach Makro

• Kommentar einfügen nach Makro von Alex vom 23.02.2005 13:15:44
• AW: Kommentar einfügen nach Makro - von Luc am 23.02.2005 13:27:13
  • AW: Kommentar einfügen nach Makro - von RainerK am 23.02.2005 13:32:01
    • Ja Danke genau so meinte ich es. oT - von Alex am 23.02.2005 13:34:55
      • Danke für die Rückmeldung o. T. - von RainerK am 23.02.2005 13:36:38
        • Rainer kann man die Schriftgröße Bestimmen im Kom. - von Alex am 23.02.2005 13:57:08
          • AW: Rainer kann man die Schriftgröße Bestimmen im Kom. - von Fred am 23.02.2005 14:04:45
          • AW: Rainer kann man die Schriftgröße Bestimmen im Kom. - von RainerK am 23.02.2005 14:11:30
            • AW: Rainer kann man die Schriftgröße Bestimmen im Kom. - von Alex am 23.02.2005 14:16:18
              • AW: Rainer kann man die Schriftgröße Bestimmen im Kom. - von Werner Oertli am 23.02.2005 15:22:34

Betrifft: Kommentar einfügen nach Makro
von: Alex

Geschrieben am: 23.02.2005 13:15:44
Hi Excelisten,
habe folgen Code um die Aktive Zelle mit einem Muster zu färben.

Sub Seminar()
ActiveSheet.Unprotect "xxx"
With Selection.Interior
.ColorIndex = 0
.Pattern = xlGray16
.PatternColorIndex = xlAutomatic
End With
ActiveSheet.Protect "xxx", UserInterfaceOnly:=True
End Sub

Jetzt möcht ich gerne in den Code noch eingebaut haben das er mir einen Kommentar in die Aktive zelle zusätzlich einfügt. Es soll aber jedesmal etwas in den Kommtar eingegeben werden können nach Ausführung des Makros. Hat jemand vielleicht eine Idee oder kann mir Helfen. Ist es überhaupt möglich ???
Vielen Dank im Vorraus
Gruß Alex

Betrifft: AW: Kommentar einfügen nach Makro
von: Luc

Geschrieben am: 23.02.2005 13:27:13
Hallo Alex,
das geht im Prinzip mit einem Befehl, der an die aktuelle Auswahl (evtl die Zelle direkt ansprechen) einen Kommentar anfügt:
Selection.Comments.Add
Wenn du den Text manuell eingeben willst, würde dahinter noch .Select kommen. Das Ganze müsste der letzte Befehl in deinem Makro sein. Würde sich aber mit deinem Blattschutz beißen, wenn nicht Formobjekte (spez. Kommentare) vom Schutz ausgenommen sind.
Gruß Luc

Betrifft: AW: Kommentar einfügen nach Makro
von: RainerK

Geschrieben am: 23.02.2005 13:32:01
Hi,
meinst Du so:

Sub Seminar()
Dim km As String
On Error Resume Next
ActiveSheet.Unprotect "xxx"
With Selection.Interior
.ColorIndex = 0
.Pattern = xlGray16
.PatternColorIndex = xlAutomatic
End With
km = InputBox("Bitte Kommentar eingeben.")
If Len(km) > 0 Then
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=km
End If
ActiveSheet.Protect "xxx", UserInterfaceOnly:=True
End Sub

MfG Rainer

Betrifft: Ja Danke genau so meinte ich es. oT
von: Alex
Geschrieben am: 23.02.2005 13:34:55
Hi Rainer,
vielen vielen Danke für Deine hilfe genau so wollte ich es haben Super.
Gruß Alex

Betrifft: Danke für die Rückmeldung o. T.
von: RainerK
Geschrieben am: 23.02.2005 13:36:38

Betrifft: Rainer kann man die Schriftgröße Bestimmen im Kom.
von: Alex
Geschrieben am: 23.02.2005 13:57:08
Hi Rainer,
eins noch kann man eigentlich die schriftgröße für den Kommentar festlegen ???
Gruß Alex

Betrifft: AW: Rainer kann man die Schriftgröße Bestimmen im Kom.
von: Fred
Geschrieben am: 23.02.2005 14:04:45
Das bekommst mit dem Makrorekorder raus.
Fred

Betrifft: AW: Rainer kann man die Schriftgröße Bestimmen im Kom.
von: RainerK
Geschrieben am: 23.02.2005 14:11:30
Hi,
das übersteigt leider mein Wissen. Hinbekommen habe ich es nicht, sorry.
Gruß Rainer

Betrifft: AW: Rainer kann man die Schriftgröße Bestimmen im Kom.
von: Alex

Geschrieben am: 23.02.2005 14:16:18
Hi,
hatte es schon mit dem Makrorecorder versucht und dieses eingesetz macht er aber leider nicht. Er fügt immer die eine Größe ein. Hatte es auch schon als Standartvorlage gesetzt hat aber leider noch nicht funktioniert.
"Danke Rainer für deine Hilfe"
Gruß Alex

Betrifft: AW: Rainer kann man die Schriftgröße Bestimmen im Kom.
von: Werner Oertli

Geschrieben am: 23.02.2005 15:22:34
Hallo Alex
Das ist schon möglich. Nur musst Du den Kommentar zuerst anzeigen lassen.
Dann Rechte Maustaste
Dann Kommentar formatieren..

Sub KommetarSchrift()
Range("C5").Select
ActiveCell.Comment.Visible = True
Range("C5").Comment.Shape.Select True
With Selection.Font
.Name = "Tahoma"
.FontStyle = "Fett"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
End Sub

Dieser Kommetar ist in Zelle C5
Gruss Werner

Excel-Beispiele zum Thema "Kommentar einfügen nach Makro"
Anwendername im Kommentar nicht fettgedruckt	Zellwert in Kommentar übernehmen
Zellen auf Kommentar überprüfen	Schriftart und -größe eines Kommentars festlegen
Kommentare in geschützte Tabellen einfügen	Schriftart für Kommentar ändern
Zellinhalt und Kommentar nach Eingabe festlegen	Kommentarfenster in bestimmter Größe erstellen
Bereichsnamen ermitteln und als Kommentare anzeigen	Bedingte Formatierung in Abhängigkeit eines Zellkommentars