nach dem ich mich auf der Suche nach der farbigen Übertragung von Ferien/Feiertagen (extra Blatt) in eine Spalte in einerm anderen Blatt fündig geworden bin , bin ich nun auf ein Makro gestoßen welches auf seine Weise funktioniert.
Jedoch muss ich bei jeder Änderung der Kommentare das Makro manuell neu Ausführen.
Meine Frage ? könnte mir das jemand erweitern / umschreiben das es automatisch läuft (Exler sagen glaube ich "Schleife" dazu)
Danke!!!
Bedienung:
- In deinem Master-Blatt Kommentare bearbeiten
- alle Zellen markieren, deren Kommentare auf andere Blätter übertragen werden sollen
- Blätter auswählen
- Makro ausführen
Sorgt für Gleichheit der Kommentare bei den markierten Blättern ggf. auch mit Löschen von Kommentaren
Public Sub GH_CopyCommentOverMarkedSheets()
Dim Blaetter As Sheets
Dim SH As Worksheet
Dim Zellchen As Range
Dim GHAktuellerKommentar As String
Dim Quellblatt
Quellblatt = ActiveSheet.Name
Set Blaetter = ActiveWindow.SelectedSheets
If Blaetter.Count = 1 Then Exit Sub
Sheets(Quellblatt).Select
For Each Zellchen In Selection.Cells
If Zellchen.Comment Is Nothing Then
GHAktuellerKommentar = ""
Else
GHAktuellerKommentar = Zellchen.Comment.Text
End If
For Each SH In Blaetter
If SH.Name <> Quellblatt Then
If SH.Range(Zellchen.Address).Comment Is Nothing Then
If GHAktuellerKommentar = "" Then
Else
'SH.Range(Zellchen.Address).Select
SH.Range(Zellchen.Address).AddComment GHAktuellerKommentar
End If
Else
If GHAktuellerKommentar = "" Then
SH.Range(Zellchen.Address).Comment.Delete
Else
SH.Range(Zellchen.Address).Comment.Text GHAktuellerKommentar
End If
End If
End If
Next SH
Next Zellchen
End Sub
-------------------------
Quelle des Makros: Herbers Exel ,
www.Herber.de/forum