Kommentare / farbige Felder

[Svhpe]

@schauan , danke

dann halte ich es erstmal so , ist nicht befriedigend aber ein Anfang.

[Svhpe]

Hallo , ich noch einmal ....
anbei ein Module um einen Zellinhalt(Text)  als Kommentar auszugeben .... , hier von C4 (Zellinhalt Text 123) nach J4 (als KommentarText 123 ) ....


Sub test()
Dim text As String
text = Range("C4").Value
    With Range("J4")
        .AddComment (text)
    End With
End Sub


Ich suche jetzt Blatt übergreifend eine Möglichkeit ..... den Text Blatt Ferien nach Blatt Beispiel zu bringen, ....wie muss ich das Modul umschreiben?
(von Blatt Ferien C4 auf Blatt Beispiel C4 )

LG und Danke für euer Wissen und Hilfe
S

[schauan]

Hallöchen,

dann schreibst Du die Blattnamen davor, Syntax ist z.B.

Sheets("Ferien").Range...

Übrigens noch ein Hinweis. AddComment könnte einen Fehler bringen, sofern schon ein Kommentar vorhanden ist. Man müsste den dann zuvor entfernen.

z.B. If Not Range("C4").Comment is Nothing Then Range("C4").ClearComments

[Svhpe]

@schauan , danke ich würde mich morgen noch einmal dran machen und dann noch einmal melden ob es funktioniert.

[Svhpe]

@schauan ,

ich habe heute morgen Deinen Rat umgesetzt und siehe da .....es funktioniert. Danke sehr !
Hier noch mal die Formel die Blatt übergreifend einen Zellinhalt einer Zelle ,als Kommentarin in einer anderen Zelle wieder zu geben.
Bei mir (Blatt Feiertag ZelleG4 , nach Blatt TD1.Halb. B3)


Sub test()
Dim text As String
text = Range("=Feiertage!G4").Value
    With Range("='TD 1.Halb'!B3").AddComment(text)
    End With
End Sub

Meine Frage wäre jetzt noch wie Reihe ich mehrere Daten in diese Formel ein.
Also mehrere Zellen als Kommentar von Blatt zu Blatt , verschieben /einpflegen?
Nicht nur die Eine!
Danke im Voraus ....

[schauan]

Hallöchen,

Deine Syntax ist zwar etwas ungewöhnlich, aber funktioniert

Bei mehreren Kommentaren kannst Du die codezeilen ensprechend wiederholen und ändern.
Wenn Du nur eine Aktion in einer bestimmten Zelle machst, kannst Du auch auf das With und End With für diese Zelle verzichten.

[Svhpe]

Ich stelle mir das so vor ....... ?
 

Sub test()
Dim text As String
text = Range("=Feiertage!G4").Value
     With Range("='TD 1.Halb'!B6").AddComment(text)

text = Range("=Feiertage!G4").Value
    With Range("='TD 1.Halb'!B7").AddComment(text)
    
text = Range("=Feiertage!G4").Value
    With Range("='TD 1.Halb'!B8").AddComment(text)
    
text = Range("=Feiertage!G4").Value
    With Range("='TD 1.Halb'!B9").AddComment(text)
    
    End With
End Sub

Aus einem Grund geht es aber noch nicht mit mehreren ....


Es geht ...hab With und End With rausgenommen !!!!!!!!!!! Danke danke danke

[Kuwer]

Hallo Sven,

und ich stelle es mir so vor:

Sub test()
  Dim strText As String
  strText = Range("=Feiertage!G4").Value
  Range("='TD 1.Halb'!B6").AddComment strText
  Range("='TD 1.Halb'!B7").AddComment strText
  Range("='TD 1.Halb'!B8").AddComment strText
  Range("='TD 1.Halb'!B9").AddComment strText
End Sub

Gruß Uwe

[Svhpe]

@ Uwe danke ,

ich versuche es und optimiere es für mich ...... , toller Vorschlag

[schauan]

Hallöchen,

in dem Fall kannst Du antürlich With verwenden:

Code:

With Sheets("TD 1.Halb")
.Range("B6").AddComment strtext
.Range("B7").AddComment strtext
.Range("B8").AddComment strtext
.Range("B9").AddComment strtext
End With

oder sogar eine Schleife nehmen

Code:

With Sheets("TD 1.Halb")
  For iCnt = 6 To 9
    .Range("B" & iCnt).AddComment strtext
  Next
End With

und noch "einfacher"

Code:

For Each Zellen In Sheets("TD 1.Halb'").Range("B7:B9")
  Zellen.AddComment strText
Next