Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Kommentare / farbige Felder
#21
@schauan , danke

dann halte ich es erstmal so , ist nicht befriedigend aber ein Anfang.
Antworten Top
#22
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
Antworten Top
#23
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Svhpe
Antworten Top
#24
@schauan , danke ich würde mich morgen noch einmal dran machen und dann noch einmal melden ob es funktioniert.
Antworten Top
#25
@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 ....
Antworten Top
#26
Hallöchen,

Deine Syntax ist zwar etwas ungewöhnlich, aber funktioniert Smile

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.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#27
Ich stelle mir das so vor ....... ? Huh
 

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
Antworten Top
#28
Hallo Sven,

und ich stelle es mir so vor: Wink
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Svhpe
Antworten Top
#29
@ Uwe danke ,

ich versuche es und optimiere es für mich ...... , toller Vorschlag
Antworten Top
#30
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste