Office: Kommentar einfügen

ChrigeBS · 1. Oktober 2014

Hallo Zusammen

Ich kriege es nicht hin den Kommentar einzufügen was mache ich falsch

Der Befehl

Code:

If Startzeit > "12:00" Then

With Worksheets(strAutotyp)
.Range(.Cells(intZeile, intSpalte + 1), .Cells(intZeile, intSpalte2 - 1).Offset(0, 1)).Interior.ColorIndex = 6
.Range(.Cells(intZeile, intSpalte + 1).Offset(0, 1))
.AddComment

.Comment.Text Text:="Christian:" & Chr(10) & strComment
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Hajo_Zi · 3. Oktober 2014

Code:

Option Explicit

Sub Kommentar()
Dim Startzeit As Date
Dim strAutotyp As String
Dim strComment As String
Dim intZeile As Long, intSpalte As Integer, intSpalte2 As Integer
intZeile = 2
intSpalte = 2
intSpalte2 = 3
strAutotyp = ActiveSheet.Name
strComment = "Kommentar"
Startzeit = "13:00"
If Startzeit > "12:00" Then
With Worksheets(strAutotyp)
.Range(.Cells(intZeile, intSpalte + 1), .Cells(intZeile, intSpalte2 - 1).Offset(0, 1)).Interior.ColorIndex = 6
With .Cells(intZeile, intSpalte + 1).Offset(0, 1)
.AddComment
.Comment.Text Text:="Christian:" & Chr(10) & strComment
End With
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ChrigeBS · 3. Oktober 2014

Hallo Hajo

Danke für deine schnelle Antwort

Habe den Code bei mir eingefügt
nun kommt bei mir in der Zeile :

.AddComment

ein Laufzeitfehler 1004
Anwendungs- oder objektdefinitiertert Fehler

Habe alles schon 3 mal durchsucht auf Fehler finde nichts auch die Zelle mit Text ist korrekt als Text formatiert.

Hast du noch ein Tipp?

GMG-CC · 3. Oktober 2014

Hallo NoName,

Hajos Code läuft einwandfrei.
Falls du auf dein eigenes Code-Fragmenet anspielst: Du versuchst den Gesamten Sheet einen Kommentar zuzuweisen, und das kannst du nur einer Zelle "zumuten".

xlph · 3. Oktober 2014

Hallo,

sollte der Code öfters gestartet werden, muss ein bereits bestehender
Kommentar zuvor gelöscht werden:

Code:

.
.
.
With .Cells(intZeile, intSpalte + 1).Offset(0, 1)
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment.Text Text:="Christian:" & Chr(10) & strComment
End With
.
.
.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ChrigeBS · 3. Oktober 2014

Hallo Günther

Ich möchte die Einfärbung erweitern mit dem Störtext als Kommentar einfügen in der ersten Zelle der Markierung.

Finde die Stelle nicht die du ansprichst
mit F8 durchlaufen bis Fehler zeigt alles korrekt an.

gruss Christian

ChrigeBS · 3. Oktober 2014

XLph

Super das war das Problem.

Vielen Dank für eure Hilfe

gruss Christian

GMG-CC · 3. Oktober 2014

Hallo Christian,

was du mit "Ich möchte die Einfärbung erweitern mit dem Störtext als Kommentar einfügen in der ersten Zelle der Markierung." meinst, kann ich nicht erkennen, da mir nicht das Arbeitsblatt vorliegt.

Meinst du deinen Code? Auch hier sehe ich nur den Ausschnitt. Und da trifft genau das zu, was ich sagte. Das frei in einer einzelnen Zeile stehende Code:

.AddComment
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wird vom Compiler so übersetzt:
Code:

Worksheets(strAutotyp).AddComment
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und das kann nun einmal nichthinhauen, da du dem kompletten WorkSheet keinen Kommentar zufügen kannst. Ich kann mir aber vorstllen, dass du es so meinst:
Code:

.Range(.Cells(intZeile, intSpalte + 1).Offset(0, 1)).AddComment
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... das sollte ohne Fehler durchlaufen (mangels Mustermappe ungeprüft).

ChrigeBS · 3. Oktober 2014

Vielen Dank Günther

ChrigeBS · 3. Oktober 2014

Hallo

Die Lösung von Hajo und Günter klappt nun brauche ich in einer anderen Tabelle gleiche Funktion mit Ausnahme, dass die Zelle mit Inhalt Text abfragt ob sie leer ist.
Wenn Zelle leer kein Kommentar und Zelle beinhaltet Text dann als Kommentar einfügen.

Code:

Option Explicit

Sub Kommentar()
Dim Startzeit As Date
Dim strAutotyp As String
Dim strComment As String
Dim intZeile As Long, intSpalte As Integer, intSpalte2 As Integer
intZeile = 2
intSpalte = 2
intSpalte2 = 3
strAutotyp = ActiveSheet.Name
strComment = Tabelle17.Cells(rngZelle.Row, 42)
Startzeit = "13:00"
If Startzeit > "12:00" Then
With Worksheets(strAutotyp)
.Range(.Cells(intZeile, intSpalte + 1), .Cells(intZeile, intSpalte2 - 1).Offset(0, 1)).Interior.ColorIndex = 6
With .Cells(intZeile, intSpalte + 1).Offset(0, 1)
If Not .Comment Is Nothing Then .Comment.Delete
.AddComment.Text Text:="Christian:" & Chr(10) & strComment
End With
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank für Unterstützung
Christian

GMG-CC · 3. Oktober 2014

Hallo Christian,

baue an passender Stelle ein

Code:

If IsEmpty(Range("A1")) Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ein. Damit prüfst du, ob die Zelle leer ist.

ChrigeBS · 5. Oktober 2014

Guten Morgen

Habe die Abfrage eingefügt nun will er den Kommentar nicht mehr eintragen wo mache ich ein Fehler (oder mehrere ;-) )

bekomme in der Zeile .AddComment.txt..... Fehlermeldung 438 Objeckt unterstützt diese Eigenschaft oder Methode nicht

Code:

If Startzeit > "12:00" Then
With Worksheets(strAutotyp)
.Range(.Cells(intZeile, intSpalte + 1), .Cells(intZeile, intSpalte2 - 1).Offset(0, 1)) = strZeile
If Not .Comment Is Nothing Then .Comment.Delete
If IsEmpty(Range(strComment2)) Then
.AddComment.Text Text:="Christian:" & Chr(10) & strComment
Else
.AddComment.Text Text:="Christian:" & Chr(10) & strComment2
End If

End With
Else
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ChrigeBS · 6. Oktober 2014

und wenn ich den pfad anhänge dann kommt Fehler 10040

Code:

' Beginn von 06:00 bis 11:59
With Worksheets(strAutotyp)
.Range(.Cells(intZeile, intSpalte), .Cells(intZeile, intSpalte2 - 1).Offset(0, 1)) = strZeile
If Not .Cells(intZeile, intSpalte).Comment Is Nothing Then .Comment.Delete
If IsEmpty((strComment2)) Then
.AddComment.Text Text:="Christian:" & Chr(10) & strComment
Else
Cells(intZeile, intSpalte).AddComment.Text Text:="Christian:" & Chr(10) & strComment2
End If

End With

End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Christian

ChrigeBS · 6. Oktober 2014

Hurra habe den Fehler gefunden ich hatte ein Punkt übersehen.....

Bin wieder ein Stück weiter vielen Dank trotzdem für eure Geduld

gruss Christian

Office: Kommentar einfügen

Kommentar einfügen

Kommentar einfügen

Kommentar einfügen

Kommentar einfügen

Kommentar einfügen

Kommentar einfügen - Similar Threads - Kommentar einfügen

Kommentare

Kommentar einfügen

Einfügen von Kommentaren und Notizen

Einfügen von Kommentaren und Notizen in Excel

Einfügen oder Löschen eines Kommentars

Einfügen von Kommentaren in einem Dokument

Grafik in Kommentar lässt sich nicht einfügen