11.09.2018, 15:31
19.09.2018, 18: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
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
19.09.2018, 19:21
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
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
19.09.2018, 20:25
@schauan , danke ich würde mich morgen noch einmal dran machen und dann noch einmal melden ob es funktioniert.
20.09.2018, 06:56
@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 ....
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 ....
20.09.2018, 07:35
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.
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.
20.09.2018, 07:46
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
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
20.09.2018, 08:04
Hallo Sven,
und ich stelle es mir so vor:
und ich stelle es mir so vor:
Sub test()Gruß Uwe
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
20.09.2018, 08:06
@ Uwe danke ,
ich versuche es und optimiere es für mich ...... , toller Vorschlag
ich versuche es und optimiere es für mich ...... , toller Vorschlag
20.09.2018, 08:27
Hallöchen,
in dem Fall kannst Du antürlich With verwenden:
oder sogar eine Schleife nehmen
und noch "einfacher"
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